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1.1 Hex-, Binär- und Dezimalsystem 

Bevor Sie sich den weiteren Kapiteln dieses Buches, sei es 
Grafikprogrammierung oder Aufbau einer BASIC-Zeile, zu¬ 
wenden, ist es nötig, sich mit einigen wichtigen Grundlagen 
vertraut zu machen. Es handelt sich dabei um verschiedene 
Zahlensysteme, die wir erläutern wollen. Sollten Sie mit hexa¬ 
dezimalen und binären Zahlen bereits vertraut sein, so können 
Sie diesen Unterpunkt des ersten Kapitels überschlagen und mit 
Kapiteln 1.2 fortfahren. 

Das Wort dezimal kommt aus dem Lateinischen und bedeutet; 
auf die Grundzahl zehn bezogen. Mit den zehn Ziffern unseres 
Dezimalsystems (0, 1, 2, 3 bis 9), läßt sich jede beliebige Zahl 
darstellen. Für die Zahlen von null bis neun reicht eine Ziffer 
aus. Wollen wir aber eine Zahl darstellen, die größer als neun 
ist, reicht eine Ziffer nicht mehr aus, und wir müssen weitere 
Stellen belegen. Dies sei hier an der Zahl dreizehn verdeutlicht. 
Die ersten zehn 'Elemente' werden zu einem Zehner zusammen¬ 
gefaßt, die drei restlichen Elemente bleiben als Einer stehen. 
Wir erhalten also einen Zehner und drei Einer. Damit haben wir 
die Zahl 13 im Dezimalsystem dargestellt. Reichen aber auch 
neun Zehnerstellen und neun Einerstellen nicht aus, um unsere 
Zahl darzustellen, müssen wir noch einen Übertrag hinzu¬ 
nehmen. Diese Stelle enthält die Hundertereinheiten unserer 
Zahl. Die Gliederung einer Dezimalzahl sieht also wie folgt aus: 
von rechts nach links stehen die Einer, Zehner, Hunderter und 
so weiter. Die Einerstelle kann aber auch als 10^ geschrieben 
werden, Ebenso ist 10 = 10^, 100 ■ 10*, 1000 = 10* und so wei¬ 
ter. Als Beispiel für die Einheiten betrachten wir die Zahl 2134 
einmal genauer: 

2 1 3 4 


Tausender Hunderter Zehner Einer 
1000 100 10 1 
10*5 10*2 10*1 10*0 
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Die Zahl 2134 kann demnach auch folgendermaßen dargestellt 
werden: 

2*10’+1*10*+3*10^+4*10° - 2*1000+l*100+3*10+4*l - 2134 

Der Mensch bedient sich des Dezimalsystems, weil er zehn Fin¬ 
ger hat und diese anfangs zun Rechnen benutzte. Mittlerweile 
sind fast alle Einheiten im Zehnersystem definiert. So ist I km = 
1000 m, I t ■ 1000 kg oder I dm > 10 cm, um nur einige Bei¬ 
spiele zu nennen. 

Der Computer hat aber keine zehn, sondern nur zwei "Finger", 
um zu zählen. Er erkennt nur, ob Strom ein- oder ausgeschaltet 
ist und verfügt daher nur über zwei Ziffern, 0 und 1. Demnach 
arbeitet er mit einem Zweiersystem, auch Binärsystem genannt. 
Analog zum Dezimalsystem kann hier nur bis eins gezählt wer¬ 
den, danach findet ein Übertrag statt. Diese Übertragsstelle, 
links neben der Einerstelle, hat den Wert 2^ = 2. Hier werden 
also die Zweiereinheiten abgelegt. Die nächsten Einheitenstellen 
entsprechen im Dezimalsystem den Werten 4, 8, 16, 32, 64 und 
128. Eine solche Einheitenstelle ist die kleinste Information, die 
der Prozessor verarbeiten kann. Die einzelnen Kleinstinfor- 
mationen werden Bit genannt und sind die Grundlage für jede 
Rechneroperation. Acht Bits werden jeweils zu einem Byte 
zusammengezogen, das dann höchstens den Wert 11111111 > 25S 
haben kann. 


Bit: 7 6 5 4 3 2 10 
11111111 
■ 12B'f64«32«16'fS *2 s 255 

Größere Rechner können auch 16 Bits zu einem sogenannten 
"Word" zusammenfassen. Da der 6502 nicht über diese Fähigkeit 
verfügt, bedient man sich hier eines kleinen Tricks. Die 16 Bits 
werden jeweils in zwei Bytes auf geteilt und hintereinander im 
Speicher abgelegt. Hierbei ist zu beachten, daß die Bits 0 bis 7, 
das sogenannte LOW-Byte, immer zuerst abgelegt werden. 
Danach kommen erst die Bits 8 bis IS, die das höherwertige 
Byte der Zahl darstellen. Dieses Byte nennt man HIGH-Byte. 
Mit 16 Bits kann man 2^^ = 65535 Zahlen darstellen, was genau 
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dem Adressbereich des C64 entspricht. Wie man sieht, ist es für 
Adressierungen sehr günstig, wenn man Zahlen in zwei Bytes 
darstellt. Um alle Einheiten zu nennen, muß an dieser Stelle 
noch erwähnt werden, daß ein Byte auch in zwei Einheiten zu 
je vier Bits unterteilt werden kann. Die ersten vier Bits nennt 
man LOW-, die zweiten vier Bits HIGH-Nibble des Bytes. 

Nun wollen wir versuchen, mit Binärzahlen zu rechnen. Die 
Addition zweier Zahlen geschieht genau wie im Dezimalsystem 
auch; die einzelnen Stellen der Zahlen werden addiert. Sollte ein 
Übertrag entstehen, wird dieser zu der links folgenden Stelle 
hinzuaddiert. Hierzu ein Beispiel; 

189 « 10111101 
♦ 42 s 00101010 


= 231 » 11100111 

Um im Umgang mit Zahlen im Bezug auf Computer völlig ver¬ 
traut zu werden, fehlt noch die Einsicht in das Hexadezimal¬ 
system und natürlich die nötige Übung. 

Das Hexadezimalsystem verfügt über 16 Ziffern, von denen die 
ersten zehn, von 0 bis 9, mit denen des Dezimalsystems identisch 
sind. Danach folgen als Ziffern A, B, C, D, E und F, die auf 
den ersten Blick etwas mysteriös erscheinen, da sie uns bisher 
nur als Buchstaben bekannt sind. Im Hexadezimalsystem werden 
diese Symbole jedoch benutzt, um Ziffern für die Werte 10 bis 
IS darzustellen. Die dezimalen Werte der einzelnen hexadezima¬ 
len Ziffern können Sie der folgenden Tabelle entnehmen; 

Hexadezimal: 0123456789 A B C D E F 
Dezimal: 0 1 2 3 4 5 6 7 6 9 10 11 12 13 14 15 

Der Unterschied zum Dezimalsystem besteht darin, daß nach der 
Ziffer 9 kein Übertrag entsteht, sondern mit A weitergezählt 
wird. Stattdessen findet der Übertrag erst nach der Ziffer F 
statt. Mit einer Stelle läßt sich also maximal die Zahl 15 darstel¬ 
len. Im Binärsystem würde man dazu vier Stellen benötigen. 
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Mit zwei Ziffern läßt sich maximal die Zahl FF = 
15*16^15*16*’ > 255 darstellen. Im Gegensatz zum Binärsystem, 
in dem man für diesen Wert acht Stellen braucht, genügen hier 
zwei. Um den gesamten Adressbereich ansprechen zu können, 
kommt man jetzt mit vier statt mit 16 Stellen aus. Der 
Vollständigkeit halber wollen wir hier noch auf das Rechnen mit 
Hexadezimalzahlen anhand eines Beispiels eingehen: 

Deiiml Binär Hexadezimal 

133 s 10000101 - 85 
4- 42 s 00101010 « 2A 


»175 s 10101111 • AF 

Sie sehen, daß sich auch hier am Rechenprinzip nichts geändert 
hat, wenn man von den sechs neuen Ziffern absieht. Mit einiger 
Übung werden Sie sowohl das Rechnen mit den Zahlensystemen, 
als auch das Umrechnen zwischen diesen als Selbstverständlich¬ 
keit ansehen. Für das Umrechnen zwischen Binär- und Hexa¬ 
dezimalsystem gibt es eine kleine Hilfe, die auch Sie sich zu 
Nutze machen können: 

Wie schon erwähnt, lassen sich die acht Bits eines Bytes in zwei 
Nibbles unterteilen. Nehmen wir die Zahl 42 « 00101010, so Ist 
das LOW-Nibble 1010 = 10 » $A. Das HIGH-Nibble hat den 
Wert 0010 ■ $2. Schreiben wir die beiden Nibbles, in der 
Reihenfolge HIGH- und LOW-Nibble, hintereinander, erhalten 
wir die Zahl $2A = 00101010. Wir haben also die zwei Stellen 
der hexadezimalen Zahl einzeln betrachtet und umgerechnet. 
Dadurch arbeiten wir nur noch mit Zahlen im Bereich von 0 bis 
15, beziehungsweise von 0 bis F, was uns das Rechnen erheblich 
erleichtert. 


1.2 Logische Verknüpfungen 

Die logischen Verknüpfungen stammen aus der Booleschen 
Algebra, so genannt nach dem Mathematiker George Boole. Im 
BASIC hat man Zugriff auf die Verknüpfungen NOT, AND und 
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OR. In Assembler kann man den Befehl NOT nicht benutzen. 
Dort hat man dafür aber den Befehl EOR, mit dem man unter 
anderem auch die Wirkung von NOT erzielen kann. 

Die erste Verknüpfung, die wir behandeln wollen, ist NOT. Auf 
deutsch übersetzt bedeutet NOT 'NICHT’. Wenn man weiß, daß 
sich eine logische Verknüpfung immer auf die einzelnen Bits 
eines Bytes bezieht, dürfte es nicht schwer fallen, sich vor¬ 
zustellen, welche Wirkung dieser Befehl hat. Jedes Bit wird 
negiert, also einfach umgedreht. Wenn ein Bit 1 ist, wird es 0 
und umgekehrt. NOT ist also keine Verknüpfung im eigentlichen 
Sinn, da es sich nur auf eine Zahl bezieht und keine zwei Zah¬ 
len miteinander verknüpft werden. Zu NOT nun ein Beispiel: 

NOT 195 
Ergebnis: 60 

Das Betrachten des Bitmusters veranschaulicht das Ergebnis: 

Zahl 11000011 - 195 
NOT 00111100 - 60 

Es ist zu beachten, daß sich dieses Zahlenbeispiel nur auf das 
Bitmuster bezieht. Da die Zahlen im BASIC zuerst in das 
Integerformat umgewandelt und dann erst negiert werden, ist 
das Ergebnis hier nicht dasselbe. In BASIC würden Sie -196 
erhalten. 

Jetzt kommen wir zu den Verknüpfungen, die auch in As¬ 
sembler Verwendung finden. Als erstes wäre hier AND, zu 
deutsch UND, zu nennen,. Hierbei müssen jeweils beide zu ver¬ 
knüpfenden Bits gesetzt sein, damit das Bit im Ergebnis auch 
gesetzt ist. Ist eines der beiden Bits 0 und das andere I, so wird 
das Ergebnisbit 0. 

PRINT 31 AND 85 
Ergebnis: 21 
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Auch hier verdeutlichen die Bitkombinationen das Ergebnis: 

1. Zrfil 00011111 • 31 
AND Z. Zahl 01010101 s 85 


Ergebnis 00010101 s 21 

Ein Anwendungsbeispiel für die AND-Verknüpfung ist zum 
Beispiel das Löschen einzelner Bits. Möchte man beispielsweise 
das letzte Bit eines Bytes löschen, ohne die anderen Bits zu 
verändern, so braucht man die entsprechende Zahl nur mit 
11111110 a: 254 zu verknüpfen. 

Zahl: 01101101 
verknüpft nits 11111110 


ergibt: 01101100 

ln diesem Beispiel wurde das letzte Bit gelöscht, ohne die ande¬ 
ren Bits dabei zu verändern. Dieses System ist vor allem dann 
von Nutzen, wenn die einzelnen Bits eines Bytes verschiedene 
Funktionen übernehmen und nicht alle Bits bekannt sind. 

Eine Umkehrung dieser Funktion, also das Setzen eines beliebi¬ 
gen Bits, kann man mit OR erreichen. Bei OR muß mindestens 
eines der jeweiligen Bits gleich. ! sein, damit das Ergebnisbit 
gesetzt wird. Es können natürlich auch beide Bits gesetzt sein. 
Um das letzte Bit einer Zahl zu setzten, muß man es nur mit I 
OR-verknüpfen. War es gelöscht, so wird es jetzt gesetzt, da 0 
OR 1 = I ist. War es aber schon 1, wird der Wert beibehalten, 
da 1 OR 1 auch 1 ist. 


Ein Beispiel könnte so aassehen: 

Zahl! 10010100 
verknüpft mit: 00000001 


ergibt: 10010101 
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Da die restlichen Bits mit 0 verknüpft werden, bleiben sie 
unverändert. Aus dem BASIC heraus muß man die betreffende 
Zahl mit I OR-verknüpfen, wenn man das letzte Bit setzen will. 
Möchte man Bit 2 setzen, muß man die Zahl 00000010 = 21 ^2 
benutzen. 

Während die bislang besprochenen Verknüpfungen zum Standard 
fast jeder Programmiersprache gehören, muß EXOR fast als 
’Exot’ unter den Verknüpfungen angesehen werden. EX steht 
dabei für EXklusiv oder NUR. Eine wahre Aussage erhält man, 
wenn zwei verschiedene Bits miteinander verknüpft werden, es 
muß also genau ein Bit gesetzt sein. Um eventuellen Ver¬ 
wirrungen vorzubeugen, muß an dieser Stelle eingefügt werden, 
daß in der Boolschen Algebra eine 1 als Ergebnis einer Ver¬ 
knüpfung eine wahre Aussage bedeutet. Eine 0 als Ergebnis 
steht hingegen für eine falsche Aussage. 

Auf den ersten Blick erscheint das Anwendungsgebiet von 
EXOR sehr begrenzt, doch das ändert sich, wenn man ein wenig 
damit arbeitet. Verknüpft man zum Beispiel eine Zahl A mit 
einer zweiten Zahl B, so sind im Ergebnis die überein¬ 
stimmenden Bits gelöscht. Diese Anwendung eröffnet neue 
Möglichkeiten, vor allem in der Assemblerprogrammierung. Da 
eine Zahl A zweimal mit einer Zahl B verknüpft wieder die 
Zahl A ergibt, eignet sich EXOR auch hervorragend zum 
Codieren eigener Programme, um diese vor fremden Eingriffen 
zu schützen. Dabei muß das Programm in codierter Form abge¬ 
speichert sein, nachdem man es zuvor 'per Hand’ mit einer be¬ 
stimmten Zahl EXOR-verknüpft hat. Dem Hauptprogramm muß 
dann eine kleine Decodierroutine vorangestellt werden. 

Hier sind die sogenannten Wahrheitstabellen der Booleschen 
Algebra noch einmal genau aufgeführt: 


NOT 


AND 



OR 


EXOR 


0 = 1 

0 

0 = 

0 

0 

0 > 

0 

0 

0 S 

0 

1 « 0 

0 

1 = 

0 

0 

1 • 

1 

0 

1 = 

1 


1 

0 : 

0 

1 

0 > 

1 

t 

0 = 

1 


1 

1 = 

1 

1 

t • 

1 

1 

1 = 

0 
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1.3 Der Aufbau einer BASIC-Zeile 

Der COMMODORE 64 verfügt über einen recht komfortablen 
BASIC-Interpreter, der auf dem des COMMODORE PET 2001 
aufbaut. Dieser Interpreter wurde von der Firma Microsoft ent¬ 
wickelt und findet auch in der 3000er Serie von COMMODORE 
Verwendung. Da es sich auch hier um das BASIC mit der Ver¬ 
sionsnummer 2.0 handelt, entsprechen sich die Funktionen der 
beiden Interpreter. Doch nun zur Funktionsweise des Inter¬ 
preters. 

Nach dem Einschalten befindet sich der Computer in einer Ein¬ 
gabewarteschleife, sofern kein Modul angeschlossen ist. Wie sich 
schon aus dem Wort entnehmen läßt, wartet der Rechner hier 
auf die Eingabe einer BASIC-Zeile, die mit RETURN abge¬ 
schlossen werden muß. Danach verzweigt er in eine Schleife, die 
für die Umwandlung in den Interpretercode zuständig ist. Dabei 
wird überprüft, ob es sich bei dem ersten Zeichen dieser Zeile 
um eine Zahl handelt. Ist dies nicht der Fall, so wird die Zeile 
im Direktmodus abgearbeitet. Handelt es sich jedoch um eine 
Zahl, wird diese als Zeilennummer angesehen. Existiert diese 
Zeilennummer schon, wird die betreffende BASIC-Zeile im 
Speicher gelöscht und der Rechner kehrt in die Eingabe¬ 
warteschleife zurück. Normalerweise folgt nach der Zeilennum¬ 
mer jedoch ein Text, der dann vom BASIC-Interpreter in den 
Interpretercode umgewandelt und abgespeichert wird. Bei dieser 
Umwandlung wird jeder BASIC-Befehl in eine Codenummer 
übersetzt. Die entsprechenden Werte kann der Computer aus 
einer Tabelle ablesen, die wir auf einer der nächsten Seiten 
abgedruckt haben. Diese Werte, mit denen der Interpreter 
arbeitet, werden auch Tokens genannt. Texte, die etwa in 
Anführungsstrichen stehen, werden nicht in solche Tokens um¬ 
gewandelt, sondern in normalem ASCII-Code (American 
Standart Code for Information Interchange), im Hexadezimalsys¬ 
tem abgelegt. Zum besseren Verständnis haben wir einige Bei¬ 
spielzeilen mit dem dazugehörigen Interpretercode abgedruckt, 
die wir noch weiter dokumentieren wollen. 
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BASIC'Zeile Interpretercode 


(8 41 6C 4C 4F 22 00 
HALLO" 


10 PRtHT"HALLO" 


20 REM TOKEN 


30 END 


OE 08 OA 00 99 22 
080E 0010 PR. '■ 

1A 08 14 00 BF 20 
081A 0020 REH 

20 08 IE 00 80 00 
0820 0030 EHO 


54 4F 4B 45 4E 00 
TOKEN 


00 00 


Fangen wir mit Zeile 10 an; Die ersten beiden Bytes stehen mit 
der BASIC-Zeile in keinem direkten Zusammenhang und kön¬ 
nen deshalb etwas verwirren. Es handelt sich hierbei um die 
Anfangsadresse der jeweils nächsten BASIC-Zeile. Diese Adresse 
liegt als LOW- und HIGH-Byte vor. Die nächste Zeile fängt in 
unserem Beispiel also bei $080E an. Hierbei sind wir davon aus¬ 
gegangen, daß der BASIC-Start bei $0801 (2049) liegt, was nach 
dem Einschalten des Rechners normalerweise der Fall ist. Die 
nächsten beiden Bytes geben die Zeilennummer der BASIC-Zeile 
an. Schauen wir uns diese beiden Bytes an, so sehen wir, daß es 
sich um die Zeilennummer SOOOA handelt, die in das Dezimal¬ 
system umgerechnet der Zahl 10 entspricht. Nun folgt der erste 
BASIC-Befehl, der in ein Token umgewandelt wurde. Der 
Befehl PRINT ist hier in den Codewert $99 (153) umgewandelt 
worden. Danach folgt die Zahl $22 (34), die dem Hochkomma¬ 
zeichen, auch Anführungsstriche genannt, entspricht. Der in 
Hochkommazeichen eingeschlossene Text wird nicht in Tokens 
umgewandelt, sondern als ASCIl-Code abgelegt. Das Wort 
'HALLO’ bleibt also in seiner vollen Länge von fünf Bytes 
erhalten. Jetzt kommt wieder der Token für das Hochkomma¬ 
zeichen und im Anschluß die Zahl Null. Diese Null wird nach 
jeder BASIC-Zeile vom Interpreter automatisch angehängt, um 
das Ende der Zeile zu markieren. 

ln der zweiten Zeile wiederholt sich dieses Prinzip. Die ersten 
Bytes zeigen auf den Anfang der dritten Zeile, die sich in 
$081A (2074) anschließt. Der Codewert $8F (143) ist der Token 
für den BASIC-Befehl REM. 
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Der Text hinter REM wird, wie der in den Hochkommazeichen 
auch, als ASCII-Code abgelegt. Wie bei der ersten Zeile wird an 
das Ende eine Null angehängt. Auch die dritte Zeile ist nach 
demselben System auf gebaut, weist jedoch zu den ersten beiden 
einen Unterschied auf. Die ersten beiden Bytes zeigen nicht auf 
den Anfang der nächsten BASIC-Zeile, da diese nicht existiert. 
Die Bytes zeigen hinter das Ende der letzten Zeile. An diese 
Stelle setzt der Interpreter zu der Null für das Ende der Zeile 
noch zwei weitere Nullen. Hier befinden sich jetzt also drei 
Nullen, die für den Interpreter das Ende des gesamten BASIC- 
Programms markieren. 

Bei der Umwandlung in den Klartext, also einem LIST, wandelt 
der Interpreter die Tokens in ASClI-Codes um. Diese Methode 
hat zwei wesentliche Vorteile. Zum einen wird für ein Pro¬ 
gramm weniger Speicherplatz benötigt, zum anderen muß das 
Programm nicht bei jedem Ablauf erst umgewandelt werden, 
was zu einem schnelleren Programmablauf führt. 

Hier nun die Tabelle der Befehlsworte und ihrer Tokens: Die 
Adresse hinter den Tokens gibt den Einsprung der jeweiligen 
Routinen im BASIC-Interpreter an, soweit dieses möglich ist. 


Befehl Token Adresse 


EMD 

SSO 12fi 

SA831 

FOR 

$81 129 

M742 

NEXT 

$82 130 

$AD1D 

DATA 

$83 131 

$A8F8 

IHPUT« 

$84 132 

$ABA5 

IHPUT 

S8S 133 

SABBF 

DIH 

$86 134 

$0081 

READ 

$87 135 

$AC06 

LET 

$88 136 

$A9A5 

GOTO 

$89 137 

$A6A0 

RUN 

$8A 138 

$A871 

IF 

$80 139 

$A928 

RESTORE 

SSC 140 

$A61D 

60SU3 

$80 141 

$A^ 


Befehl 

Token 

Adresse 

RETURN 

SSE 

142 

M8D2 

REH 

$8F 

143 

SA93B 

STOP 

$90 

144 

$A82F 

ON 

$91 

145 

$A94B 

WAIT 

$92 

146 

$b82D 

LOAD 

$93 

147 

$E168 

SAVE 

$94 

148 

$E156 

VERIFV 

$95 

149 

$E165 

DEF 

$96 

150 

$B3B3 

POKE 

$97 

151 

$6824 

PRINT« 

$98 

152 

$AA80 

PRINT 

$99 

153 

SAAAO 

CONT 

$9A 

154 

$A857 

LIST 

$98 

155 

$a69C 
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CLR 

S9C 

156 

SA65E 

SGN 

SB4 180 

SBC39 

CHD 

S9D 

157 

SAA86 

INT 

SBS 181 

S6CCC 

SYS 

S9E 

158 

SE12A 

ABS 

SB6 182 

SBC58 

OPEN 

S9F 

159 

SE1BE 

USR 

S67 183 

S0310 

ClOSE 

SAO 

160 

SE1C7 

FRE 

SBS 184 

SS370 

CET/GET# 

SA1 

161 

SAB7B 

POS 

SB9 185 

SB39E 

NEW 

SA2 

162 

SA642 

SQR 

SBA 186 

SBF71 

TABC 

tA3 

163 

- 

RND 

SBB 187 

SE097 

TO 

SA4 

164 

- 

LOG 

SBC 188 

SB9EA 

FN 

sas 

165 

SB3F4 

EXP 

SBD 189 

SBFED 

SPC( 

SA6 

166 

- 

COS 

S8E 190 

SE264 

TNEN 

SA7 

167 

- 

SIN 

SBF 191 

SE26B 

NOT 

SAS 

168 

SAED4 

TAN 

SCO 192 

SE2B4 

STEP 

SA9 

169 

- 

ATN 

SCI 193 

SE30E 

+ 

SAA 

170 

SB&6A 

PEEK 

SC2 194 

SB80D 

• 

SAB 

171 

SB853 

LEN 

SC3 195 

SS77C 

• 

SAC 

172 

SBA2B 

STRS 

SC4 196 

SB465 

/ 

SAD 

173 

SBB12 

VAL 

$C5 197 

S67AD 

- 

SAE 

174 

SBF7B 

ASC 

SC6 198 

S678B 

AND 

SAF 

175 

SAFE9 

CHRS 

SC7 199 

SS6EC 

Oft 

o 

CD 

V» 

176 

SAFE6 

LEFTS 

SC8 200 

SB700 

Größer 

SB1 

177 

. 

RIGHTS 

SC9 201 

SB72C 

■ 

SB2 

178 

. 

MIDS 

SCA 202 

SB737 

Kleiner 

SB3 

179 

. 

GO 

SCB 203 

• 


Als Ergänzung muß noch hinzugefügt werden, daß das höchst¬ 
wertige Bit, also Bit 7, der Tokens immer gesetzt ist. Daraus er¬ 
gibt sich zwangsläufig, daß die Werte der Tokens immer größer 
als 127 sind. 

Neben den Tokens finden noch folgende Werte im Interpreter 
Verwendung: 
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$00 Der Nullcode »erkiert Zeilen- oder 

Programenden 

$20 (32) bis SP (95) Diese Werte sind identisch mit dem 
A5C ll-Code 

$FF (255) Codewert für die Zahl Pi 


Betrachten wir die Wertebereiche der Codes, stellen wir fest, 
daß die Bereiche von (1) bis $IF (31), $60 (96) bis $7F (127) 
und $CC (204) bis SFE (2S4) vom Betriebssystem nicht benutzt 
werden. Sie eignen sich damit hervorragend, um eigene Befehle 
in BASIC einzubinden. Zu diesem Thema erfahren Sie weiteres 
in Kapitel 1.5 


1.4 Ablage von Variablen und Arrays 

Die Variablen des Commodore-BASIC werden in drei Arten 
unterteilt, die sich in bestimmten Adressbereichen des BASIC- 
Speichers befinden. Hierbei wird zwischen einfachen, also nicht¬ 
indizierten, Variablen, indizierten Variablen und den Inhalten 
von Stringvariablen unterschieden. 

Die nichtindizierten Variablen werden unmittelbar hinter dem 
BASIC-Programm abgelegt. Der Anfang dieses Blocks ist in 
einem Zeiger in der Zero-Page in den Adressen $2D/2£ (45/46) 
festgelegt. Da sich der Block direkt hinter dem Programm befin¬ 
det, ist es klar, daß diese Variablen beim Einfügen eines neuen 
Programmteils gelöscht werden. Hinter diesem Adressbereich 
schließt sich der Block mit den indizierten Variablen an, dessen 
Beginn in den Adressen $2F/30 (47/48) festgelegt ist und der 
gleichzeitig das Ende des ersten Blocks markiert. Das Ende des 
zweiten Variablenbereichs wird durch den Zeiger in $31/32 
(49/50) gekennzeichnet. Die Inhalte der Stringvariablen werden 
am Ende des BASIC-Speichers abgelegt und auf der folgenden 
Seite noch näher erläutert. 
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Als erstes schreiten wir zur Erklärung der nichtindizierten 
Variablen, die sich in vier Variablentypen gliedern. Dieses sind 
die REAL-Variablen, die INTEGER-Variablen, die STRING- 
Variablen und die Variablen von selbstdefinierten Funktionen 
mittels DIM. Die Einträge bestehen aus jeweils sieben Bytes, die 
den Variablennamen und den Variablenwert beziehungsweise 
den Zeiger auf den Variablenwert beinhalten. 


Type 

Byte 0 

Byte 1 

Byte 2 

Byte 3 

Byte 4 

Byte 5 

Byte 6 

Real 

N « m t 

Bit 7 - Q 

Name 
8M 7 = 0 

EapOncM 

Variablem | 
wert ! 

variablen! 
wert 1 

Variabian 

wart 

Variablen 

wert 

Integer 

Nami 

Bll 7>0 

Nan« 

Bll J = \ 

Wan 

waci 

<Hi0h) 


. 

rv" 

String 

N am« 

Bil ;-i 

Nama 

eil ’ = o 

Llnga 

Aoraaaa ' 

(Low) , 

AOraaia 

(High) 

_ 


FN 

N am« 

Bll 7»1 

Name 

BM 7s 1 

(Low) 

AOraeea 

(HlOfc) 

wart 

<Low) 

Wart 

(High) 



Abb. 1,4.1: Format der Variablentypen 


Die Bytes 0 und 1 eines jeden Eintrages beinhalten den Namen 
und den Typ der Variablen. Der Typ wird durch die beiden 
siebten Bits gekennzeichnet, die entsprechend gesetzt sind, wie 
Sie aus der Abbildung 1.4.1 ersehen können. Bei der REAL- 
Variable enthält das Byte 2 den Exponenten und die restlichen 
Bytes den Variablenwert. Bei INTEGER-Variablen ist es noch 
einfacher, da dort die Bytes 2 und 3 das LOW- und HIGH-Byte 
der entsprechenden Zahl beinhalten. Da Strings in den restlichen 
fünf Bytes meistens nicht genug Platz finden, werden dort nur 
die Stringlänge und die jeweilige Startadresse abgelegt. Ähnlich 
verhält es sich bei den selbstdefinierten Funktionen. Hier wer¬ 
den die Adresse der Funktion und der eigentlichen Variable 
hintereinander abgelegt. 

Die STRINGS werden in einem Bereich am Ende des BASIC- 
RAMs abgespeichert, auf den der Zeiger in S37/38 (55/56) 
zeigt. Von dort an werden die Variablen nach unten hin ange¬ 
baut. Die untere Grenze dieses Bereichs wird in S33/34 (51/52) 
festgehalten. Zu beachten wäre noch, daß bei Stringoperationen 
die Zwischenergebnisse abgespeichert und die Endergebnisse 
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angehängt werden. Bei Platzmangel werden die Zwischen¬ 
ergebnisse gelöscht, was auch durch den Befehl FRE (0) 
erzwungen werden kann. 

Bei dimensionierten (indizierten) Variablen werden für die Ein¬ 
träge nicht mehr grundsätzlich sieben Bytes zur Verfügung 
gestellt, sondern nur noch die Anzahl der benötigten Bytes. Dies 
entspricht zum Beispiel zwei Bytes beim Integerformat oder drei 
Bytes bei Strings. Jedem Feld geht ein Arrayheader voraus, der 
in Tabelle 1.4.2 erklärt wird. 

Zum Schluß noch eine Bemerkung, die Zeit sparen hilft: Es ist 
auf jeden Fall sinnvoll, die Variablen vor den Arrays zu dekla¬ 
rieren, da beim Einfügen von Variablen alle Arrays verschoben 
werden müssen. 


Byte 0 

Byte 1 

Byte 2 

Byte 3 

Byte 4 

Byte 5 

Byte 6 

Nsm« 

Bit 7 = 1 

Name 

Sit 7 b1 

Feld - 
l^nga 
tUow) 

Feia- 

länga 

(High) 

Anzitil 

dar 

Dinan- 

»onsn 

s^aiian - 

lang« 

(Low) 

Sastlan - 

lange 

(Higt) 



Abb. 1.4.2: Dimcntioniert« V«risblen 


1.5 Wie erweitert man BASIC? 

Eigene Maschinenroutinen lassen sich außer der Realisierung 
durch USR- und SYS-Funktion noch eleganter direkt in den 
BASIC-lnterpretercode einbinden. Sehen wir uns dazu die Stelle 
im Interpreter an, die ein BASIC-Statement holt und ausführt. 
Hier ist der entsprechende Auszug aus dem ROM-Listing: 


A7E1 6C Oe 03 
um ?o 73 00 
A7E7 20 B A7 
A7EA 6C AE A7 


JNP (S0308): zeigt noriMlerHeise auf SA7E4 
JSR S0073 ; Zeichen aus BASIC-Text holen 
JSR SA7ED ; Statement ausführen 
JMP SA7AE ; zurück zur Interpreterschleife 
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An dieser Stelle können wir nun eingreifen. In der Adresse 
50308/50309 (776/777) steht der Zeiger für die Ausführung 
eines BASIC-Befehls, den wir auf eine eigene Routine umstellen 
können. In dieser Routine können wir dann überprüfen, ob es 
sich um unseren selbstdefinierten Befehl handelt und entspre¬ 
chend verzweigen. Eine übliche Methode ist es, eigene Befehls¬ 
erweiterungen durch ein vorangestelltes Sonderzeichen, zum 
Beispiel ein Ausrufezeichen, zu kennzeichnen, so könnte 

100 IPRINT 

eine eigene modifizierte Druckroutine aufrufen. Unsere Routine 
prüft dann auf das Ausrufezeichen. Wird es gefunden, kann in 
die eigene Routine verzweigt werden, ansonsten wird die Rou¬ 
tine des BASIC-Interpreters auf gerufen. Ein entsprechender 
Programmausschnitt könnte so aussehen: 


ÜBERPRÜFEN 

JSR 

B0073 

; CHRGET, nächstes Zeichen holen 


CHP 

«S21 

; mit Sonderzeichen vergleichen 


BEO 

FOUHO 

; Verzweigung zur eigenen Routine 


JSR 

»0079 

; CHR60T, Flags wieder setzen 


JHP 

»A7E7 

; Interpreterbefehl ausführen 

FOUND 

JSR 

»0073 

; CHRGEf, nächstes Zeichen holen 


JSR 

COHKANO 

; eigenen Befehl ausführen 


JMP 

SA7E4 

; zurück zur Interpreterschleffe, 


nächstes Zeichen holen 


Der Zeiger in 50308/50309 muß beim Initialisieren der Befehls- 
erweiterung auf die Anfangsadresse (das Label ÜBERPRÜFEN) 
des obigen Beispielprogramms gesetzt werden. Will man mehrere 
Befehle implementieren, so kann man noch eine Routine zur 
Unterscheidung der Befehlsworte einbauen, die die ver¬ 
schiedenen Befehlserweiterungen selektiert und wiederum ent¬ 
sprechend vergleicht. 

Im folgenden finden Sie einige Anregungen zur Verwirklichung 
eigener Routinen. Beim ersten Beispiel handelt es sich um eine 
Hardcopyroutine. Die Hardcopy-Funktion hat den Zweck, den 




26 


64 Inlern 


Bildschirminhalt auf den Drucker mit der Gerätenummer 4 zu 
kopieren und kann mit SYS 36864 direkt aufgerufen werden. Es 
ist jedoch sinnvoller, ein kleines Starterprogramm nach dem obi¬ 
gen Muster zu schreiben, um die Routine als BASIC-Er- 
weiterung nutzen zu können. 

Hardcopy Funktion: 


9000 

A9 

04 


LOA 

«S04 



9002 

85 

BA 


STA 

SBA 

P 

Gerätenuimer des Druckers 

9004 

A9 

7E 


LOA 

MTE 



9006 

85 

B8 


STA 

SB8 

» 

LeSische Fllerx/mer 

9006 

A9 

00 


LOA 

«900 

• 

9 

Law*Byte des Bildechirns 

900A 

AO 

04 


LOV 

«S04 

9 

HIGH-Byte des Bfldschfrins 

900c 

85 

71 


STA 

S71 

i 

als Zeiger merken 

900E 

84 

72 


STY 

$72 



9010 

85 

B7 


STA 

$B7 

• 

9 

kein Filenamen 

9012 

85 

09 


STA 

SB9 

9 

SekundtSradresse gleich 0 

9014 

20 

CO 

FF 

JSR 

SFFCO 

9 

Drucker File öffnen 

9017 

A6 

B8 


LDX 

SB8 

• 

# 

logische Fi lenumer des Drucker 

9019 

20 

C9 

FF 

JSR 

$FFC9 

• 

9 

Drucker als AusgabegerSt 

901C 

A2 

19 


LDX 

«S19 

9 

Anzahl der Bi Idschirnzeilen (24) 

901E 

A9 

00 


LOA 

«soo 

9 

ne<je Zei le 

9020 

20 

02 

FF 

JSR 

$FF02 

9 

an Drucker 

9023 

20 

El 

FF 

JSR 

$FFE1 

• 

4 

Stoptaste abfragen 

9026 

fo 

2E 


BEQ 

$9056 

» 

r 

gedrückt, dam beenden 

9028 

AO 

00 


LOY 

#$00 



902A 

Bl 

71 


LOA 

($71), 

y; 

Zeichen von Bi Idschirm holen 

902C 

85 

67 


STA 

$67 



902E 

29 

3F 


ANO 

«$3F 



9030 

06 

67 


ASL 

$67 



9032 

24 

67 


BIT 

$67 

9 

Bildschirmkode 

9034 

10 

02 


BPL 

$9038 

9 

in ASClI'Kode unuarideln 

9036 

09 

80 


ORA 

«$80 



9036 

70 

02 


BVS 

$903C 



9036 

09 

40 


ORA 

#$40 



903C 

20 

02 

FF 

JSR 

$FF02 

9 

und ZUM Drucker schicken 

903F 

08 



INT 




9040 

CO 

28 


CPT 

«$28 

9 

Zeile zu Ende 7 




Der BASIC-Interpreter 


27 


9062 

DO 

E6 


ONE 

S902A 


9066 

98 



TYA 



9065 

18 



CLC 


; ja, Zeiger auf nächste 

9066 

65 

71 


AOC 

$71 

; Zeile setzen 

9048 

85 

71 


STA 

$71 


904A 

90 

02 


BCC 

$904E 


904C 

E6 

72 


INC 

$72 


904E 

CA 



DEX 


; schon alle Zeilen ausgegeben ? 

904P 

DO 

CD 


BNE 

$901E 


9051 

A9 

00 


LDA 

«$0D 


9053 

20 

d2 

FF 

JSR 

$FFD2 

; neue Zeile 

9056 

20 

cc 

FF 

JSR 

$FFCC 

; Ausgabe Nieder auf Bi Idschirm 

9059 

A9 

7E 


LDA 

0S7£ 


905B 

4C 

C3 

FF 

JHP 

$FFC3 

; Druckdatei schlieBen und fertig 


Es folgt ein Ladeprogramm in BASIC: 


100 

POKE 

56,9*16 : CLR : FOR 

1 s 36864 TD 36957 



110 

READ 

X : PDKE I.X : SsS«> 

: NEXT 



120 

DATA 

169, 4,133.186,169, 

,126,133,184,169, 0. 

160, 

4 

130 

DATA 

133,113,132,114,133, 

,183,133,185, 32,192, 

255, 

166 

140 

DATA 

184, 32,201,255,162, 

25,169, 13, 32,210,: 

255, 

32 

150 

DATA 

225,255,240, 46,160, 

0,177,113.133,103, 


63 

160 

DATA 

6,103, 36,103, 16, 

, 2, 9,128.112, 2. 

9. 

64 

170 

DATA 

32.21D,255.200,192. 

40,208,230.152, 24, 

101. 

113 

180 

DATA 

133,113.144, 2.230. 

114.202,208,205,169, 

13. 

32 

190 

DATA 

210,255, 32,204,255, 

169,126, 76,195,255 



200 

IF S 

<> 12023 THEN PRINT 

"FEHLER IN DATAS I!" 

: END 

210 

PRIHT "OK !• 





Hier noch ein Programm, daß es Ihnen ermöglicht, die beiden 
Programme durch Aufrufen mit !H für Hardcopy und !R für 
Renew als BASIC-Erweiterung zu benutzen: 
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JSR 10073 ; nächstes Zeichen holen 
CHp #$21 ; mit Sonderzeichen vergleichen 

BEO FCUND ; gleich; eigene Routine 
JSR $0079 ; CHRGOT. Flags wieder setzen 
JHP $A7E7 ; Interpreterbefehl ausführen 
FOUND CMP #$52 ; Vergleich auf R 

BNE TEST ; ungleich: dann Hardcopy 

JHP SCFDO ; Renew 

JHP $9000 ; Hardcopy aufrufen 

Das folgende Beispiel stellt eine RENEW-Funktion dar. Das 
Programm kann dann nützlich sein, wenn man versehentlich ein 
Programm mit NEW gelöscht hat. Das Programm findet das 
Ende des gelöschten Programms und setzt die BASIC-Zeiger 
wieder auf die alten Werte, sofern danach keine neuen 
Programmzeilen eingegeben oder Variablen benutzt wurden. Die 
Startadresse ist hier 12*4096+15*256 gleich 52992. 


Die RENEW-Funklion holt ein gelöschtes Programm wieder zu¬ 
rück. 


CFDO 

AS 

28 

LOA 

$2B ; 

BASIC-Progrannstart 

CF02 

A4 

2C 

LOT 

$2C 


CF06 

85 

22 

STA 

$22 ; 

als Zaiger speichern 

CF06 

84 

23 

STT 

$23 


CF08 

AO 

05 

LOY 

#$05 


CFDA 

C8 


INT 



CFOB 

B1 

22 

LOA 

($22),T; 

sucht Ende der ersten Zeile 

CFOD 

DD 

FS 

BNE 

$CF0A ; 

(Nullbyte) 

CFOF 

C8 


INY 



CF10 

98 


TYA 



CF11 

18 


ClC 



CF12 

65 

22 

AOC 

$22 ; 

Offset addieren 

CF16 

AO 

00 

LOY 

#$00 


CF16 

91 

28 

STA 

($2B),Y; 

als Zeiger auf nächste 

CF18 

AS 

25 

LDA 

$23 


CFIA 

69 

00 

ADC 

«$00 ; 

Zeile speichern 

CF1C 

C8 


INT 
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CF10 

91 

2B 

STA 

(S2B},T 


CF1F 

aa 


OET 


; enthalt jetzt null 

CF20 

A2 

03 

LDX 

«S03 


CF22 

E6 

22 

INC 

$22 


CF24 

00 

02 

BNE 

SCF23 

; Prograweende gleich 

CF26 

E6 

23 

INC 

$23 

; drei Nullbytes suchen 

CF28 

Bl 

22 

LOA 

($22).T 


CF2A 

DO 

F4 

BNE 

$CF20 


CF2C 

CA 


DEX 



CF2D 

DO 

F3 

BNE 

$CF22 


CF2F 

AS 

22 

LOA 

$22 


CF31 

69 

02 

AOC 

«'$02 


CF33 

as 

20 

STA 

$20 


CF3S 

AS 

23 

LDA 

$23 ; 

Zeiger auf Prograwiiende setzen 

CF37 

69 

00 

AOC 

«900 


CF39 

as 

2E 

STA 

$2E 


CF3B 

4C 

63 a6 

JHP 

$A663 ; 

CLR und ready. 


Hier wieder ein Ladeprogramm in BASIC. Dieses Programm 
muß natürlich zuerst geladen und gestartet werden, bevor man 
sein eigenes BASIC-Progamm einlädt oder schreibt. Ansonsten 
würde man mit dem Nachladen des Beispielprogramms sein 
eigenes zerstören. 


100 

FOR 1 

' s 52992 TO 1 

$3053 





110 

READ 

X : POKE I.X 

: SsS4X 

: NEXT 




120 

DATA 

165. 43.164. 

44,133. 

34,132, 

35,160, 

3,200, 

177 

130 

DATA 

34.208.251.200.152. 

24,101, 

34,160, 

0.145. 

43 

140 

DATA 

165. 35.105. 

0,200, 

145, 43, 

,136.162. 

3.230. 

34 

ISO 

DATA 

208. 2.230, 

35,177, 

34,208, 

244,202, 

208,243, 

165 

160 

DATA 

34,105, 2,133, 45, 

165. 35, 

105, 0. 

133. 46. 

76 

170 

DATA 

99,166 






180 

IF S 

<> 7000 THEN 

PRINT " 

FEHLER IN DATAS 

H" : END 

190 

PRINT 

"OK 1" 
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1.6 Übergabe von BASIC-Parametern Ober USR und SYS 

Welcher BASIC-Programmierer hat nicht schon einmal daran ge¬ 
dacht, Maschinenroutinen in sein Programm einzubinden, sei es, 
um ein Programm zu beschleunigen oder um Routinen ausnutzen 
zu können, die in BASIC nicht verfügbar sind. Eine gute Mög¬ 
lichkeit dazu stellen die Befehle SYS und USR dar. 

Mit SYS kann ein Maschinenprogramm an einer beliebigen Stelle 
des Speichers aufgerufen werden. Natürlich können auch fertige 
Routinen des Betriebssystems verwendet werden. Startet man 
zum Beispiel die Routine BILDSCHIRM-RESET ab der Adresse 
$E5I8 (S86d8), werden der Videocontroller und die Bildschirm¬ 
zeiger initialisiert, die Farbe für den Bildschirm neu gesetzt, die 
Cursorblinkzeit eingestellt, der Bildschirm gelöscht und der 
Cursor auf die Position HOME gesetzt. Die Routine muß mit 

SYS 58648 

aufgerufen werden. Eine erweiterte Variante des SYS-Befehls 
werden wir später noch besprechen. 

Für Funktionen mit einem Argument bietet sich die USR- 
Funktion an. Wie funktioniert nun die USR-Funktion? Sie kann 
genauso wie alle anderen Funktionsaufrufe des Interpreters, zum 
Beispiel die SIN-Funktion zur Berechnung von Variablen oder 
auch in einem PRINT-Statement, verwendet werden. Die Beson¬ 
derheit dabei ist, daß Parameter an das Maschinenprogramm 
übergeben werden können. Der Befehl 

X = USR (10) 

übergibt zum Beispiel die Zahl 10 an den Fließkommaakku¬ 
mulator, kurz FAC genannt. Damit der Interpreter weiß, an 
welcher Stelle des Speichers sich die eigene Routine befindet, 
muß die Startadresse in die Adressen $0311/0312 (785/786) 
geschrieben werden. An dieser Stelle befindet sich der soge¬ 
nannte USR-Vektor. über den der Interpreter beim Aufruf des 
USR-Befehls zur eigenen Routine verzweigt. Normalerweise ist 
dieser Vektor auf $B248 gerichtet, wo sich der Einsprung für 
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die Fehlermeldung 'illegal quantity’ befindet. Möchte man seine 
Routine ab der Adresse SCOOO starten, dann sieht das folgender¬ 
maßen aus: 

POKE 785,0 : POKE 786,12*16 

Es ist auch möglich, die Werte aus dem Maschinenprogramm 
wieder in das BASIC-Programm zu Übergeben. Zur Veran¬ 
schaulichung des USR-Befehls wollen wir eine Routine zur 
Berechnung der Quadratwurzel einer Zahl schreiben. Der 
BASIC-Interpreter stellt eine solche Funktion zwar bereits zur 
Verfügung, unsere Routine soll jedoch schneller und genauer 
werden, da wir keine Potenzierung benutzen wollen, die den 
Aufruf von LCXJ und EXP erfordert, sondern stattdessen eine 
Iteration durchführen. Als Startwert nehmen wir dazu das 
Argument und halbieren den Exponent, was bereits eine gute 
Schätzung des Wurzelwertes ist. Die Iterationsvorschrift lautet: 
X(N+1) • (X(N) + A/X(N)) / 2, wobei A das Argument und 
X(N) und X(N+1) der alte und der neue Schätzwert sind. Durch 
Ausprobieren zeigt sich, daß sich das Ergebnis nach vier Itera¬ 
tionen nicht mehr ändert. 


C800 

JSR 

S8C2B 

t 

Vorzefchen testen 

C803 

BEO 

SC839 

• 

4 

Uert gleich 0, fertig 

C805 

BPL 

SC80A 

• 

t 

positiv, dann in Oritiws 

C807 

JHP 

SB248 

• 

negativ, 'ILLEGAL QUAHTITT' 

C80A 

JSR 

SBBC7 

• 

FAC nach Akku IfA übertragen 

C8M> 

LOA 

S61 



C80F 

SEC 




C810 

SBC 

AIS81 

9 

Exponent normalisieren 

C812 

PHP 




C813 

LSR 


t 

Exponent halbieren 

C814 

CLC 




C81S 

AOC 

BSOI 



C817 

PLP 




C818 

BCC 

SC81C 



C81A 

AOC 

«7F 

9 

Exponent wiederherstellen 

C81C 

STA 

S61 



C81E 

LOA 

m 

t 

6 Iterationen 
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C820 

STA 

S67 



C822 

JSR 

SBBCA 


FAC nach Akku i(i 

C825 

LDA 

•ssc 



C827 

LOY 

«soo 

* 

Zeiger auf Akku #4 

C829 

JSR 

SBBOF 


durch FAC dividieren 

C82C 

LOA 

IIIS57 



C82E 

LDT 

«SOO 

m 

t 

Zeiger auf Akku KS 

C830 

JSR 

SB867 

m 

t 

zu FAC addieren 

C833 

OEC 

S61 

• 

FAC ! 2 (Exponent ninus 1) 

C835 

DEC 

$67 

■ 

t 

Zähler erniedrigen 

C837 

BNE 

SC822 

# 

t 

noch eine Iteration 

C839 

RTS 


m 

t 

Rücksprung ins BASIC 


Bevor wir unsere neue USR-Funktion aufrufen, müssen wir, wie 
bereits erwähnt, die Startadresse festlegen. Dazu wird das LOW- 
Byte der Adresse nach S311 (785) und das HIGH-Byte nach 
$312 (786) gepoket. Für unsere Funktion sähe das so aus: 

POKE 785,0 : POKE 786, 12*16+8 

Das folgende Ladeprogramm in BASIC enthält diese Pokes 
bereits. 


100 FDR I = 51200 TD 51257 

110 READ X : PDKE I,X : S=S-fX : HEXT 

120 DATA 32, 43,188,240 , 52, 16 , 3 , 76. 72.178 , 32,199 

130 DATA 187,165, 97, 56,2 33.129 , 8 . 74 , 24,105, 1, 40 

140 DATA 144, 2,105.127,133, 97.169. 4,133,103, 32,202 

150 DATA 187,169, 92,160, 0, 32, 15,187,169, 87,160, 0 

160 DATA 32,103,184,198, 97,198,103,208,233, 96 

170 If S <> 6211 TUEN PRINT "FEHLER IN DATAS •<" : END 

180 POKE 785,0 : POKE 786,200 : PRINT "OK !" 

Jetzt läßt sich mit ? USR(A) unsere Routine aufrufen. Ver¬ 
gleicht man die Ausführungszeit unserer Routine mit der SQR- 
Routine des Interpreters, so ist unsere mit ca. 12 Millisekunden 
gegenüber ca. 52 Millisekunden etwa viermal schneller als die 
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des Interpreters. Jetzt wollen wir uns noch ein etwas komplizier¬ 
teres Beispiel ansehen. 

Oft steht man vor der Aufgabe, eine Zahlenreihe zu addieren. 
Dies ist zum Beispiel bei der Ermittlung des Durchschnitts oder 
anderen statistischen Berechnungen der Fall. Wir nehmen an, 
daß die Daten in einem Array, also einer dimensionierten Vari¬ 
ablen, zur Verfügung stehen. 


10 DIM AdOOO) 

. Berechnungen oder Einlesen der Daten 

100 S s 0 

110 FOR I ■ 0 TO 1000 : S s S + Ad) : NEXT 
120 PRINT S 


Unsere USR-Funktion soll nun die BASIC-Zeilen 100 und HO 
ersetzen. Wir wollen dafür 

100 S s USR(A) 

schreiben. Der Parameter A steht dabei für den Arraynamen. 
Wie wir später sehen werden, läßt sich durch Ändern zweier 
Maschinenbefehle auch das Produkt der Arrayelemente berech¬ 
nen. 


033C 

JSR 

SAD8D ; 

033F 

LOX 

SZF 

0341 

LDA 

S30 ; 

0343 

STX 

SSf 

0345 

STA 

S60 ; 

0347 

CKP 

S32 

0349 

6NE 

S034F 

034B 

CPX 

$31 

034D 

BEQ 

S03ÖC 

034F 

LOT 

#S00 ; 

0351 

LDA 

($5F).r; 

0353 

INY 

p 


Variable numerisch? 

Zeiger auf Beginn der Arraytabelle 
laufender Zeiger 


Ende der Arraytabelle? 
Zeiger setzen 

erster Buchstabe des Namens 
Zeiger erhöhen 
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0356 

CMP 

S45 

mit gesuchtem Namen vergleichen 

0356 

BNE 

S035E ; 

nein, dam nächstes 6rr8y testen 

0358 

L06 

S46 

zweiter Buchstabe 

0356 

CHP 

(*5F).Y; 

vergleichen 

035c 

BEO 

S0375 ; 

gefmden 

035E 

INY 



035F 

LD6 

(»5F>,Y 


0361 

CLC 



0362 

6DC 

S5F ; 

Offset für nächstes 6rray addieren 

0364 

T6X 



0365 

INY 



0366 

LD6 

<I5F),Y 


0368 

6DC 

S60 


0366 

BCC 

$0343 


036c 

LDX 

ifl$E2 


036E 

STX 

$22 ; 

Zeiger auf Fehlermeldung 

0370 

106 

ifl$03 


0372 

JHP 

$6445 ; 

Fehlermeldung ausgeben 

0375 

INY 



0376 

LD6 

($5F),Y 


0378 

CLC 



0379 

6DC 

$5F 


037B 

ST6 

$24 


037D 

INY 



037E 

LD6 

<$5F),Y 


0380 

6DC 

$60 


0382 

ST6 

$25 


0384 

INY 



0385 

L06 

<$5F),Y; 

6nzahl der Indizes 

0387 

JSR 

$B196 ; 

Zeiger auf erstes 6rrayelenent 

0386 

ST6 

$5F 


038c 

STY 

$60 ; 

Zeiger nach Teep 

038E 

BIT 

$DE ; 

Integerflag testen 

0390 

BMI 

$03B1 


0392 

JSR 

$BB62 ; 

Element in F6C 

0395 

CLC 



0396 

BCC 

$039C ; 

Sprung in Schleife 

0398 

JSR 

$B867 ; 

Variable plus F6C 

039B 

CLC 



039C 

LD6 

$SF 
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039E 

AOC 

»5 

Zeiger auf nächstes Element 

03AO 

STA 

S5F 


03A2 

BCC 

S03A6 


03A6 

INC 

WO 


03A6 

LOY 

$60 


03A8 

CKP 

$240 ; 

Ende des Arrays? 

03AA 

BCC 

$0398 


03AC 

CPY 

$25 


03AE 

BCC 

$0398 


03B0 

RTS 

• 

1 

Ja, fertig 

03B1 

JSR 

$0305 ; 

Integervariable nach FAC 

03B« 

JSR 

secoc ; 

FAC nach ARG 

03B7 

CLC 



03B8 

LOA 

S5F 


03BA 

AOC 

#$2 ; 

Zeiger auf nächstes Arrayelement 

03BC 

STA 

$5F 


03BE 

BCC 

$03C2 


03C0 

INC 

$60 


03C2 

CMP 

$24 

Ende des Arraybereiehs? 

03C4 

BCC 

$03CC 


03C6 

LOA 

$60 


03C8 

CMP 

$25 


03CA 

BCS 

$03B0 


03CC 

JSR 

$0305 ; 

Integervariable nach FAC holen 

03CF 

JSR 

$B86F ; 

FAC + ARG 

0302 

JHP 

$03B4 


0305 

LOT 

«$00 


0307 

LOA 

(«5F),Y 


0309 

TAX 



030A 

INY 



03DB 

LOA 

(«5F),T 


0300 

TAT 



030E 

TXA 



03DF 

JHP 

$B391 ; 

nach FlieBkoema 

03E2 

41 52 52 TAB 

.ASC "ARRAY NOT FOUN" 

03E5 

41 59 20 4E 4F 54 20 46 50 55 4E 

03F0 

C4 


.BYTE “O" + $80 
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Wieder das dazugehörige Ladeprogramm in BASIC 


100 

FOR ) 

1 = 828 TO 1008 





110 

READ 

X : POKE I.X 

: SsS+X : HEXT 




120 

DATA 

32,141,173,166, 47, 

165, 48, 

134, 95, 

133, 96, 

197 

130 

DATA 

50,208, 4,; 

228, 49, 

240, 29. 

160, 0, 

177, 95,200 

140 

DATA 

197, 69,208, 

6,165, 

70,209, 

95,240, 

23,200,' 

177 

150 

DATA 

95, 24,101, 

95,170, 

200,177, 

95,101, 

96,144,; 

215 

160 

DATA 

162,226,134, 

34,169, 

3, 76, 

69,164,; 

200,177, 

95 

170 

DATA 

24,101, 95, 

133, 36, 

200,177, 

95,101, 

96,133, 

37 

180 

DATA 

200,177, 95, 

32,150, 

177,133, 

95,132, 

96, 36, 

14 

190 

DATA 

«, 31, 32, 

162,187, 

24,144, 

4, 32, 

103,184, 

24 

200 

DATA 

165, 95,105, 

5,133, 

95,144, 

2,230, 

96,164, 

96 

210 

DATA 

197, 36,144,236,196, 

37,144,, 

232, 96, 

32,213, 

3 

220 

DATA 

32, 12,188, 

24,165, 

95,105, 

2,133, 

95,144, 

2 

230 

DATA 

230, 96,197, 

36,144, 

6,165, 

96,197, 

37,176,228 

240 

DATA 

32,213, 3, 

32,111, 

184, 76, 

180, 3, 

160, 0,' 

177 

250 

DATA 

95,170,200,' 

177, 95, 

168,138, 

76,145, 

179, 65. 

82 

260 

DATA 

82, 65, 89, 

32, 78, 

79, 84, 

32, 70, 

79, 85, 

78 

270 

DATA 

196 






280 

IF S 

<> 20399 THE« PRINT 

"FEHLER 

IN DATAS 

!(" : END 

290 

PDKE 

785, 3*16+12 

: POKE 

786, 3 : 

PRINT "OK I"lln1 


Das Programm kann sowohl Arrays mit reellen Zahlen als auch 
Integer-Arrays verarbeiten. Wird ein Array nicht gefunden, so 
wird die Fehlermeldung ’array not found error’ ausgegeben.Da 
die Logik zum Errechnen des Produkts der Arrayelemente gleich 
ist, kann man eine Produktfunktion erhalten, indem wir die 
Aufrufe zur Addition durch die Multiplikationsroutine ersetzen. 
Dazu muß ab Adresse $0398 20 28 BA (JSR $BA28) stehen 
und ab Adresse $03CF steht 20 2B BA (JSR $BA2B). Vom 
BASIC aus kann dies mit POKE 921,40 ; POKE 922, 186 ; 
POKE 976, 43 : POKE 977, 186 geschehen. 

Um unsere Routine, die diesmal im Bandpuffer liegt, benutzen 
zu können, müssen wir wieder die Startadresse in $0311/0312 
poken, was im BASIC-Programm schon geschehen ist. 


POKE 785, 3*16+12 : POKE 786. 3 
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Berechnen Sie zum Vergleich einmal die Summe mit einer 
BASIC-Schleife und dann mit unserer Routine - der Zeit¬ 
unterschied ist gewaltig. 

Sollen mehr als ein Parameter übergeben werden, so ist die 
USR-Funktion nicht mehr geeignet. Hier bietet sich eine erwei¬ 
terte Variante des SYS-Befehls an. Normalerweise führt der 
SYS-Befehl nur das Maschinenprogramm ab der angegebenen 
Adresse aus und übergibt keine weiteren Parameter. Unsere 
Routine soll nun einen oder beliebig viele Parameter an das 
Maschinenprogramm übergeben. Neben der Routine zur Formel¬ 
auswertung stehen noch eine Reihe weiterer Einsprungpunkte 
und Unterroutinen zur Verfügung, die zum Beispiel Parameter 
in Klammern auswerten oder auf ein nachfolgendes Komma 
prüfen. Auch läßt sich der Variablentyp, String oder numerisch, 
testen. Bei numerischen Variablen ist zusätzlich noch eine 
Bereichsüberprüfung möglich. Die wichtigsten Routinen sind 
unten zusammengestellt. Weitere Einzelheiten entnehmen Sie 
bitte unserem ROM-Listing. 


Adresse 

Beschreib! Aig: 

AD6A 

Argument auswerten und auf nunerisch prüfen 

A06D 

auf ninerisch prüfen 

AD8F 

auf String prüfen 

A09E 

Arguaientauswertung, beiiebiger Ausdruck 

AEF1 

Arguaient in Klaiwiern auswerten 

AEF7 

prüft auf Klanner zu 

AEFA 

prüft auf klaiHRer auf 

AEFD 

prüft auf Koflvua 

B79E 

holt Byte, (0 bis 255} in X-Register 

0073 

holt nächstes Zeichen aus BASIC-Text 


Bei Bereichsüberschreitung wird 'ILLEGAL QUANTITY’ ausge¬ 
geben, falscher Variablentyp ergibt 'TYPE MISMATCH’. Die 
Umwandlung der verschiedenen Formate miteinander ist mit 
folgenden Routinen möglich: 
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Adresse Beschreibung 

B1BF wandelt FAC nach Integer 

B39S wandelt 16-Bit Integerzahl in A/X nach FlieBkonm 

B3A2 wandelt Byte in Y nach FlieAkonma 

BC9B war^elt FAC nach 16-8it Zahl 

BCF3 wandelt Ziffernstring nach FlieBkonra 

BDDD wandelt FAC in Ziffernstring 


Jetzt wollen wir uns noch ein Beispiel für einen SYS-Aufruf mit 
ParameterQbergabe ansehen. Will man von BASIC aus eine 
Bildschirmausgabe an eine bestimmte Position machen, so muß 
man mit der Cursorsteuerung nach HOME die entsprechende 
Anzahl an Cursor-right-und Cursor-down-Zeichen drucken. Dies 
ist umständlich und verbraucht viel Speicherplatz. Einfacher 
geht es mit einer selbstgeschriebenen Maschinenroutine. Der 
Aufruf soll folgende Syntax haben; 

SYS PR, Spalte, Zeile, Text 

Dabei ist PR die Startadresse der Routine, Zeile und Spalte 
bestimmen die Cursorposition, an die die Variablen oder Aus¬ 
drücke des Textes wie beim normalen PRINT-Befehl ausgegeben 
werden. In unserem Beispiel ist PR « 49152 (SCOOO). 


cooo 

JSR 

SAEFO 

C003 

JSR 

SB79E 

C006 

TXA 


C007 

PHA 


C008 

JSR 

SAEFO 

cooe 

JSR 

SB79E 

CODE 

PLA 


COOF 

TAY 


C010 

CLC 


C011 

JSR 

SFFFO 

C016 

JSR 

SAEFO 

cai7 

JHP 

SAAA4 


; prüft auf Komna 
: holt spaltenwert nach X 
; Spaltenwert fn Akku 
; Spal tennunner merken 
; prüft auf Konmia 
: holt Zei lenwert 
; Spaltenwert holen 
; Spaltenwert nach Y 
; Flag für Cursor setzen 
• setzt Cursor 
; prüft auf Koems 
; weiter mit PRINT>Befehl 
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Hier wieder das BASIC-Programm: 

100 FOR I = 49152 TO 49177 

110 READ X : PCXE I.X : S=S*X : HEXT 

120 OATA 32,255,174, 32,158,183,138, 72, 32,253,174, 32 

130 DATA 158,183,104,168, 24, 32,240,255, 32,253,174, 76 

140 OATA 164,170 

150 IF S <> 3566 THEN PRINT "FEHLER IN DATAS !•" : END 
160 PRINT "OK !" 


Wenn man zu Anfang des Programms der Variablen PR die 
Startadresse $C000 der Routine zuweist, läßt sich mit dem fol¬ 
genden Befehl der Text "Beispiel" ab der 24. Spalte der 20. Zeile 
ausgeben. 

10 PR « 12*4096 

100 SYS PR, 24, 20, "Beispiel" 


1.7 Sprungvektoren und Autostart 

Der C64 verfügt im Gegensatz zu vielen anderen Computern 
über ein ROM (Read Only Memory), in dem das Betriebssystem 
des Rechners fest abgelegt ist. Das hat den Vorteil, daß das 
Betriebssystem nach dem Einschalten nicht erst eingeladen wer¬ 
den muß. Andererseits bringt gerade diese Eigenschaft einen 
großen Nachteil für den Anwender mit sich, der das ROM nicht 
abändern und seinen Bedürfnissen anpassen kann. Um dem ein 
wenig abzuhelfen, bietet der C64 eine Reihe von sogenannten 
Sprungvektoren an, die zwar vom Betriebssystem benutzt wer¬ 
den, aber nicht im ROM, sondern am Anfang des Arbeitsspei¬ 
chers abgelegt sind. Diese Vektoren liegen ab der Adresse $0300 
(768) und verweisen auf die jeweiligen Routinen innerhalb des 
Betriebssystems. An dieser Stelle kann der Programmierer ein¬ 
greif en, indem er die Vektoren auf seine eigenen Routinen 
stellt. Es lassen sich jedoch auch andere Effekte erreichen, die 
äußerst nützlich sein können. 
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Hier soll eine schematische Darstellung verdeutlichen, wie die 
Sprungvektoren vom Betriebssystem benutzt werden. 



Abb. 1.7.1: Punktion der Sprunfvcktorcn 

Nachdem die Routine direkt oder aus einer anderen Routine 
heraus angesprungen wurde, wird über einen indirekten Sprung 
Über die Vektoren zur eigentlichen Routine verzweigt. Diese 
Routine befindet sich im allgemeinen direkt hinter dem in¬ 
direkten Sprungbefehl. Die ersten Vektoren sind die des BASIC- 








Der BASIC-Interpreter 


41 


Interpreters, die die nachfolgend aufgeführten Funktionen 
erfüllen. Zum besseren Verständnis ist es ratsam, die Routinen 
im ROM-Listing nachzuschlagen. 


Adresse Vektor Beschreibung 


S0300/0301 (760/769) $0300 

$0302/0303 $A403 (770/771) 

$0304/0305 $A57C (772/773) 
$0306/0307 $A71A (774/775) 
$0300/0309 $A7E4 (776/777) 

$030A/030B $AE66 (770/779) 

$0311/0312 $B240 (785/706) 


Vektor für BASIC'Warmstart; wird nach 
END sowie beim Auftreten eines Fehlers 
angesprungen (Fehlernimer im Akku) 
Vektor für Eingabe einer Zeile; 

Rechner bleibt in der Eingabewarte- 
schleife, bis RETURN erfolgt 
Vektor für Umwandlung in den Inter¬ 
pretercode 

LIST-Vektor; wird bei Utiwandlung in 
den Klartext angesprungen. 

Vektor für BASIC-Befehlsadresse holen; 
zeigt an die Stelle des Interpreters, 
die den BASIC-Befehl ausführt 
Vektor wird angesprungen, wenn ein 
Element eines Ausdrucks berechnst 
werden soll 

USR-Vektor; steht normalerweise auf 


'ILLEGAL OUANTITV 


Die Vektoren des Betriebssystems stehen ab S03I4/031S 


Adresse Vektor Beschreibung 


$0314/0315 

$EA31 

(700/709) 

IRQ'Vektor; wird jede 1/60 Sekunde an 

gesprungen 

$0316/0317 

$FE66 

(790/791) 

BRK-Vektor 

$0310/0319 

$FE47 

(792/793) 

NMI-Vektor; wird beim Drücken der 

RESTORE-Taste benutzt 

$031A/031B 

$F34A 

(794/795) 

OPEN-Vektor 

$0310/0310 

$F291 

(796/797) 

CLOSE-Vektor 

$031E/031F 

$F20E 

(790/799) 

CHKIN-Vektor 

$0320/0321 

$F250 

(800(001) 

CKOlJT-Vektor 
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S0322/0323 

SF333 

(802/803) 

CLRCH-Vektor 

S0324/0325 

$F157 

(804/805) 

INPUT-Vektor; nonMlerweise auf Ein¬ 
gabe von der Tastatur 

S0326/0327 

SF1CA 

(806/807) 

OUTPUT-Vektor; normalerweise auf Aus¬ 
gabe auf den Bi Idschi m 

S0328/0329 

SF6ED 

(808/809) 

STOP-Vektor 

S032A/032B 

$F13E 

(810/811) 

GET-Vektor 

S032C/032D 

SF32F 

(812/813) 

CLALL-Vektor 

S032E/032F 

SFE66 

(814/815) 

WarnBtartvektor 

S0330/0331 

SF4A5 

(816/817) 

LOAD-Vektor 

$0332/0333 

SFSED 

(818/819) 

SAVE-Vektor 

Mit diesen Vektoren 

lassen sich nun einige 'Kunststücke* voll 


bringen. Man kann zum Beispiel die LIST-Vektoren so um¬ 
stellen, daß diese auf ein RTS zeigen. Das bewirkt, daß nach 
einem LIST sofort wieder ins BASIC zurückgesprungen wird, 
ohne daß überhaupt etwas gelistet wird. Der Befehl wird also 
einfach ignoriert. Wir haben noch eingige andere Ideen für Sie 
auf geschrieben; 


POKE 774, 

POKE 775, 

Adresse 

Routine 

226 

252 

$FCE2 (64738) 

RESET 

68 

166 

$A644 (42564) 

NEU 

7 

168 

$A807 (43015) 

SYNTAX ERROR 

160 

240 

ein $02-Uert 

Absturz des Systems 


Natürlich lassen sich auch die anderen Vektoren auf diese Rou¬ 
tinen *umbiegen’. Wirkungsvoll wäre es zum Beispiel noch beim 
SAVE-Vektor. Das Umstellen dieses Vektors läßt es zu, mit 
einem Programm wie üblich zu arbeiten, ohne es jedoch danach 
wieder abspeichern zu können. Dieser Trick stellt also einen 
kleinen Kopierschutz dar. 

Für den BASIC-Anwender kann es auch von Nutzen sein, den 
RESTORE-Vektor abzuändern, wodurch eine Unterbrechung des 
Programms mittels RUN/STOP-RESTORE unmöglich wird. 
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Auch hier kann wieder zu einer eigenen Routine verzweigt oder 
die Funktion ganz ausgeschaltet werden. Dies kann zum Beispiel 
durch POKE792,193: POKE 793,254 erzielt werden. 

Nun aber zu einer der interessantesten Anwendungen dieser 
Vektoren, dem Autostart. Wie Sie bestimmt wissen, kann man 
mit LOAD"PROGRAMMNAME",8,l ein Programm in einen 
bestimmten Bereich des Speichers laden, wenn es zuvor in die¬ 
sem Bereich abgesichert wurde. Dieses kann man am einfachsten 
mit einem Maschinensprachemonitor, wie zum Beispiel dem 
PROFI-MON, machen. Werden nun beim Laden eines Pro¬ 
gramms die Sprungvektoren überschrieben, werden dadurch alle 
Zeiger umgestellt und der Rechner stürzt ab. Wurde jedoch vor 
dem Abspeichern nur ein Zeiger umgeändert und die anderen in 
ihrem Zustand gelassen, lädt der Computer ordnungsgemäß, und 
nur eine Routine wird anders ausgeführt. Man kann nun einen 
Vektor umstellen, der nur manchmal benutzt wird, wie zum 
Beispiel den LIST-Vektor, oder einen, über den ständig ver¬ 
zweigt wird. Dazu bietet sich die Eingabewarteschleif e 
($0302/0303) an, die fast ständig auf eine Eingabe von der 
Tastatur wartet. Diesen Vektor kann man nun auf den eigenen 
Programmstart stellen, so daß nach dem Laden nicht mehr der 
Cursor erscheint, sondern direkt ein Programmstart erfolgt. Es 
ist sinnvoll, das Programm in den Cassettenpuffer ab $033C 
(828) zu legen, da sonst der Bildschirm mit abgespeichert wer¬ 
den muß. 

Auf diese Weise kann aber nur ein Maschinenprogramm gestar¬ 
tet werden, da zu einer bestimmten Adresse gesprungen wird. 
Soll ein BASIC-Programm gestartet werden, so muß eine kleine 
Routine zwischengeschaltet werden, die folgendermaßen aus¬ 
sieht: 


033C JSR $A6S9 ;CHRCET'Zeiger auf Progrannetsrt und CLR 
033F JNP SA7AE ;in die Interpreterschleife springen 

I ine andere Möglichkeit ist es, über den Vektor $0326/0327 zu 
verzweigen, da dieser bei jeder Ausgabe auf den Bildschirm 
:ingesprungen wird und dementsprechend schwer zu unter¬ 
drücken ist. 
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Eine weitere Alternative bietet der sogenannte Stapelautostart. 
Der Stapel, auch Stack genannt, befindet sich im Bereich von 
$0100 (256) bis $0IFF (511) und beinhaltet unter anderem die 
Absprungadressen des Programms beim Aufrufen von Unter¬ 
programmen. Da auch das Laden von einem Unterprogramm aus 
geschieht, kann der Stapel dabei mit dem Einsprung unseres 
Programms überschrieben werden. Dabei muß die Startadresse in 
Low- und High-Byte abgelegt werden, zu der noch 1 hinzu¬ 
addiert wird. Beim Rücksprung holt sich der Rechner nun die 
Adresse aus dem Stapel, die ja mittlerweile abgeändert wurde, 
und verzweigt dementsprechend. 

Das folgende Programm ermöglicht es Ihnen, ein gewöhnliches 
Programm, das mit RUN gestartet wird, mit einem Autostart zu 
versehen. 


5 N=49152 

10 READX:rFX = ‘1THEN30 
20 SsS+X'-POCE N.X-.NsH*1:(j0T0 10 

30 IFS<>22926 Oft N<>49339 THEN PRINfFEHLER IN DATA S":EHD 
40 SYS491S2 

101 DATA 169,0,141,32,20fi,141.33,20fi,169,5.141,134,2,162,0.1S9,14S 
,192,201 

102 DATA 32,240.7,32,210.255,232.76,15,192,32,130,192,162,8,160,1, 
32,186,255 

103 DATA 162,0,160,207,134,187,132,188.169.0,133,157,32,213,255,16 
5,144,201 

104 DATA 64.208,196,162,0,189,149,192,240,7.32,210.255,232.76,62,1 
92,32,130 

105 DATA 192,162,0,169,32,157,0,4,232,208.250,162,64,160,3,142,38, 
3,140,39 

106 DATA 3,162.0.189,170,192.157,64.3.232,224,16,208,245,162,0,160 
,3,134,251 

107 DATA 132,252,169,251,166,174,164,175,32,216.255.76.64,3,162,0, 
134,183 

108 DATA 32.207.255,157,0,207.232,230,183.201,13.208.243.96,147,13 
.80.82.79 
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109 DATA 71.82.65.77.77.78.65.77.69.58.32.40.78.69.85.61,0.162.202 
.160,241 

110 DATA 142.38.3.140.39.3.32.89.166.76.174.167,32.-1 

1.8 Die Adressen der BASIC-Routinen 

Im folgenden sind die Einsprungadressen der BASIC-Routinen 
aufgeführt. Sie eignen sich zur Verwendung in eigenen BASIC- 
und Assemblerprogrammen, wie in Kapitel 6.1 beschrieben wird. 
Zum genaueren Verständnis schauen Sie sich die Routinen bitte 
auch im ROM-Listing an. Nun noch ein Wort zu den Routinen 
beim VC 20. 

Der BASIC-Interpreter des Commodore 64 ist mit dem des VC 
20 identisch. Er ist lediglich in der Adresslage verschoben. Die 
Umrechnung einer Adresse des Commodore 64 in die entspre¬ 
chende Adresse des VC 20 geschieht folgendermaßen; Bei 
Adressen von SAOOO bis SBFFF wird einfach $2000 dazuaddiert, 
aus $A860 wird die Adresse $C860 im VC 20. Bei Adressen von 
SEOOO bis $E37A wird von der Commodore-64-Adresse der 
Wert 3 abgezogen. Aus $E30E wird die VC 20 Adresse $E30B. 


Adresse Beschreibuns 

AOOO Stertvektor 

A002 NMI-Vektor 

A004 'cbirtjasic' 

AOOC Adressen der BASIC-Befehle Minus 1 

A052 Adressen der BASIC-Funktionen 

A080 Hiererchiecodes und Adressen der BASIC-Operstoren 

A09E Liste der BASIC-Befehlsworte 

A19E BASIC-Fehlertneldungen 

A328 Adressen der Fehleroieldungen 

A364 Meldungen des BASIC-Interpreters 

A38A Stapelsuchroutine für FOR-NEXT und SOSUB 

A3B8 Blockverschieberoutine 

A3FB prüft auf Platz in Stapel 

A406 schafft Platz im Speicher 

A435 Ausgabe von 'out of nenory' 
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A437 Fehterneldung ausgeben 

A469 Break-Einsprung 

A474 Ready-Einsprung 

AA0O Eingabe-Uarteschleffe 

AA9C löschen und Einfügen von Progrennzeilen 

A533 BASIC-Programzei len neu binden 

A560 holt eine Zeile in den Eingabepuffer 

A571 Ausgabe von 'string too long' 

A579 lAtHandlung einer Zeile in Interpretercode 

A613 Startadresse einer BASIC-Zefle suchen 

A64Z BASIC-Befehl NEW 

A65E BASIC-Befehl Clft 

A68C Progrannzeiger auf BASIC-Start setzen 

A69C BASIC-Befehl LIST 

A717 Interpretercode in Befehlswort inuandeln 

A742 BASIC-Befehl FOR 

A7AE Interpreterschleife, führt BASIC-Befehle aus 

A7ED führt einen BASIC-Befehl aus 

A810 BASIC-Befehl RESTORE 

A82C bricht Progrann bei gedrückter Stop-Taste ab 

A82F BASIC-Befehl STOP 

A831 BASIC-Befehl END 

A857 BASIC-Befehl COHT 

A871 BASIC-Befehl RUN 

AB83 BASIC-Befehl GOSUB 

A8A0 BASIC-Befehl GOTO 

A802 Basie-Befehl RETURN 

A8F8 BASIC-Befehl DATA 

A906 sucht nächstes Statement 

A909 sucht nächste Zeile 

A928 BASIC-Befehl If 

A93B BASIC-Befehl REM 

A9AB BASIC-Befehl ON 

A96B sucht Adresse einer BASIC-Zeile 

A9A5 BASIC-Befehl LET 

AA80 BASIC-Befehl PRINT« 

AA86 BASIC-Befehl CHD 

AAAO BASIC-Befehl PRINT 

ABTE String ausgeben 

AB3E Leerzeichen bzw. Cursor right ausgeben 
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AB40 Fehlerbeharidlung bei Eingabe 

AB7B BAStC-Befehl GET 

ABAS BASIC-Befehl IHPUT» 

ABBF BASIC-Befehl INPUT 

AC06 BASIC-Befehl READ 

ACFC 'Textra ignored' und '?redo fron Start' 

AD10 BASIC-Befehl NEXT 

AD8A FRHNUH: holt Ausdruck und prüft auf niiserisch 

A080 prüft auf nuserisch 

AD6F prüft auf String 

AD99 Ausgabe von 'type nfsmatch' 

AD9E FRHEVL holt und wertet beliebigen Ausdruck aus 

AE83 arithmetischen Ausdruck holen 

AEA8 Fließkonmakonstante Pi 

AE04 BASIC-Befehl HOT 

AEF1 holt Ausdruck in Klatmern 

AEF7 prüft auf 'Klwmier zu' 

AEFA prüft auf 'Kleotner auf 

AEFD prüft auf 'Koxne' 

AEFF prüft auf Zeichen im Akku 

AF08 Ausgabe von ' syntax error' 

AF28 holt Variable 

AFE6 BASIC-Befehl OR 

AFE9 BASIC-Befehl AND 

B016 Vergleichsoperationen 

B061 BASIC-Befehl DIM 

B113 prüft auf Buchstabe 

B194 berechnet Zeiger auf erstes Arrayelement 

B1A5 Fließkonnakonstante -3Z786 

B1AA FAC nach Integer wandlen 

BZ45 Ausgabe von ’bad subscript' 

B248 Ausgabe von 'illegal quantity' 

B34C berechnet ArraygröSe 

B370 BASIC-Funktion FrE 

B39E BASIC-Funktion POS 

B3A8 Test auf Direkt-Hodus 

B3AB Ausgabe von 'illegal direct' 

B3AE Ausgabe von ’undef'd fuiction' 

B3B3 BASIC-Befehl DEF 

B3E1 FN-Syntax prüfen 
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B3F4 BASIC-Funktbn FH 

B46S BASIC-Funktion STRt 

B47S Stringverwaltung, Zeiger »uf String berechnen 
B467 String einrichten 

BS26 Garbage Collection, nichtgebrauchte Strings löschen 

B63D Stringverknüpfung 

B6A3 Stringverwaltung FRESTR 

86EC BASIC-Funktion CHR» 

B700 BASIC-Funktion LEFTS 

B72C BASIC-Funktion RIGHTS 

B737 BASIC-Funktion MIDS 

B77C BASIC-Funktion LEN 

B762 Stringparameter holen 

B7eB BASIC-Funktion ASC 

B79B Holt Byte-Ausdruck (0 bis 255} 

B7AD BASIC-Funktion VAL 

B7EB Holt AdressefO bis 65535) und Byte-UertCO bis 255) 

B7F7 FAC nach Adreßformat wandeln (Bereich 0 bis 65535) 

BSOD BASIC-Funktion F>EEK 

Bfi24 BASIC-Befehl POKE 

682D BASIC-Befehl UAIT 

B849 FAC » FAC * 0.5 

B8S0 Minus FAC = Konstante (A/Y) - FAC 

B853 Minus FAC = ARG - FAC 

B867 Plus FAC = Konstante (A/V) - FAC 

B86A Plus FAC > ARG * FAC 

B97E Ausgabe von 'overflow' 

B9BC Fließkonnakonstanten für LOG 

B9EA BASIC-Funktion LOG 

BA28 Multiplikation FAC > Konstante (A/Y) * FAC 
BA2B Multiplikation FAC = ARG * FAC 

BA8C ARG ■ Konstante (A/Y) 

BAE2 FAC ■ FAC * 10 

BAF9 FlieBkonnakonstante 10 

8AFE FAC > FAC / 10 

B60F FAC > Konstante (A/Y) / FAC 

BB12 FAC > ARG / FAC 

BS8A Ausgabe von ’division by zero' 

BBA2 FAC B Konstante (A/Y) 

BBC7 Akkuil4 « FAC 
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8BCA Akl(uil3 s FAC 

B8D0 Variable « FAC 

8BFC FAC s ARG 

BCOC = FAC 

BC1B FAC runden 

eCZe Vorzeichen von FAC holen 

BC39 BASIC-Funktion SGN 

BC58 BASIC-Funktion ABS 

BC5B Konstante (A/Y) mit FAC vergleichen 

BC9B UnuarKllung FAC nach Integer 

BCCC BASIC-Funktion INT 

BCF3 Umwandlung ASCII nach FtieBkonna 

BDB3 FlieBkcmmakanstanten für FLießkcnna nach ASCII 

BDC2 Ausgabe der Zeilennunner bei Fehlermeldung 

BDCD Positive Integerzahl (0 bis 65535} ausgeben 

BDDD FAC nach ASClI-Forniat wandeln 

BF11 Fließkoonakonstante 0.5 

BF16 Binärzahlen für Umwandlmg FAC nach ASCII 

BF71 BASIC-Funktion SQR 

BF7S Potenzierung FAC = Konstante (A/Y) hoch FAC 

BF7B Potenzierung FAC = ARG hoch FAC 

BFBF Fließkonnekonstanten für EXP 

BFED BASIC-Funktion EXP 

E043 Polynonberechnung 

E059 Polynantierechnung 

E080 FlieBkoswakonstanten für RND 

E097 BASIC-Funktion RM> 

E107 Ausgabe von 'break' 

E10C BSOUI: ein Zeichen ausgeben 

E112 BASIH: ein Zeichen eepfangen 

E118 CKOUT: Ausgabegerät festsetzen 

E11E CHKIN: Eingabegerät festsetzen 

E124 GETIH: ein Zeichen holen 

E12A BASIC-Befehl SYS 

E156 BASIC-Befehl SAVE 

E165 BASIC-Befehl VERIFY 

E168 BASIC-Befehl lOAD 

E1BE BASIC-Befehl OPEN 

E1C7 BASIC-Befehl CLOSE 
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E104 Parameter für LOAD und SAVE holen 

E219 Parameter für OPEN holen 

E264 BASIC-Funktion COS 

E26B BASIC-Funktion SIN 

E2B4 BASIC'Funktion TAN 

E2E0 FlieBkomiiakonstanten für SIN und COS 

E30E BASIC-Funktion ATN 

E33E FHeßkoffnakonstanten für ATN 

E37B BASIC-HNl-Einsprung 

E394 BAStC-Kaltstart 

E3A2 Kopie der CHRCET-Routine 

E3BA Anfangswert für RNO-Funktion 

E3BF RAH für BASIC initialisieren 

E447 Tabelle der BASIC-Vektoren 

E4S3 BASIC-Vektoren laden 


1.9 Fließkommaarithmetik 

Maschinensprache bietet gegenüber BASIC den Vorteil der 
hohen Geschwindigkeit. Dafür hat sie jedoch den unübersehba¬ 
ren Nachteil, daß sie schwer zu handhaben ist. Dies zeigt sich 
besonders bei komplizierteren Berechnungen. Addition und Sub¬ 
traktion lassen sich noch auf recht einfache Weise durchführen, 
selbst Multiplikation und Division sind mit ein wenig Mehrauf¬ 
wand realisierbar. Kompliziert wird es aber, wenn man solche 
Rechnungen nicht nur mit ganzen Zahlen (Integer-Zahlen), son¬ 
dern auch mit gebrochenen Zahlen, Zahlen mit Nachkommastel¬ 
len also, durchführen will. Wie läßt sich zum Beispiel in 
Maschinensprache der Umfang eines Kreises mit dem Radius R 
berechnen? In BASIC stellt das kein Problem dar. Der entspre¬ 
chende Befehl lautet einfach; U=2*Pi*r . 2*r stellt auch in 
Maschinensprache kein Problem dar, dagegen die Multiplikation 
mit Pi ein ziemlich großes. 

Die Lösung dieses Problems trägt den Namen "Fließkom¬ 
maarithmetik". Fließkommaarithmetik ermöglicht beispielsweise 
dem BASIC-Interpreter, solche Berechnungen wie die oben 
genannte mit der uns bekannten Genauigkeit auszuführen. Wenn 
wir solche Formeln in Maschinensprache ausrechnen wollen. 
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brauchen wir uns demnach keine eigenen Programmteile dafür 
zu schreiben, sondern wir können auf die Unterroutinen des 
Interpreters zurückgreifen. Es ist dem Verständnis dieser 
Routinen dienlich, wenn man den Aufbau von Fließkommazah¬ 
len kennt. Wer sich hier schon auskennt oder wer kein Interesse 
an ein wenig Theorie hat, kann den folgenden Absatz übersprin¬ 
gen. 


Format von Fließkommazahlen 

Der Aufbau von Fließkommazahlen läßt sich am einfachsten 
darstellen, wenn man sich überlegt, auf welche verschiedenen 
Arten sich ein und dieselbe gebrochene Zahl in BASIC darstellen 
läßt. Die Zahl 1.234S67 läßt sich auch noch als 0.I234S67E1, 
0.01234567E2 oder 12.34567E-1 schreiben. Der Teil vor dem E 
heißt “Mantisse", der Teil dahinter "Exponent". Das E trägt die 
Bedeutung von ''*10''”, 

Die Art der Darstellung ist, wie man sieht, nicht eindeutig fest¬ 
gelegt. Da der Computer allerdings Fließkommazahlen auch als 
Mantisse und Exponent getrennt abspeichert, muß man eine ein¬ 
heitliche Darstellung finden. Man einigt sich darauf, den Expo¬ 
nenten so zu wählen, daß die Mantisse kleiner als Eins wird, 
jedoch keine führenden Nullen hinter dem Komma, bezie¬ 
hungsweise dem Dezimalpunkt in BASIC, besitzt. Das Komma 
wird also durch Änderung des Exponenten so verschoben, daß 
die am weitesten links stehende Ziffer der Mantisse direkt rechts 
neben ihm steht. Daher auch die Bezeichnung "Fließkomma"; Das 
Komma "fließt" entlang der Zahl. 

Der Computer arbeitet natürlich nicht mit einem Exponenten, 
der eine Potenz von 10 darstellt, sondern, da ja intern jegliche 
Arithmetik binär abläuft, mit einem Exponenten zur Basis 2. 
Beispielsweise wird die Zahl 123.625 folgendermaßen dargestellt; 

123.625=l*2®+l*2^1*2Vl*2*+0*2®+l*2‘+l*2°+l*2'V0*2'Vl*2'* 

Die binäre Darstellung von 123.625 ist also 1111011.101, die 
binäre Exponentialdarstellung demnach O.1111011 lOIE 111. Der 
Exponent 111, dezimal 7, ergibt sich dadurch, daß er genau der 
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Anzahl Stellen entspricht, um die das Komma in der Mantisse 
nach links gerückt ist. 

Der BASIC-Interpreter des C-64 benutzt für eine Fließkomma- 
aahl fünf Bytes. Das erste Byte beinhaltet den Exponenten, die 
restlichen vier die Mantisse. Hier zeigt sich auch der große 
Vorteil der Fließkommadarstellung: Man kann, ohne die Anzahl 
der benutzten Bytes zu verändern, einerseits relativ große Zahlen 
mit geringer Genauigkeit, andererseits kleinere Zahlen mit ent¬ 
sprechend größerer Genauigkeit darstellen. 

Die 32 Bits der 4 Byte der Mantisse entsprechen den 32 Stellen 
dieser Zahl. Da man auch negative Fließkommazahlen benutzen 
möchte, muß ein Bit als Vorzeichenbit dienen. Man verwendet 
dabei das erste Bit der Mantisse, welches normalerweise immer 
den Wert 1 hat, da die Zahl ja keine führenden Nullen mehr 
enthalten darf. Wenn dieses Bit den Wert 0 hat, handelt es sich 
um eine positive, beim Wert 1 um eine negative Fließkomma¬ 
zahl. Bei Berechnungen im ROM wird das Bit zuerst ausgelesen, 
zwischengespeichert und durch eine Eins ersetzt. Nach Abschluß 
einer Rechenoperation wird es wieder an derselben Stelle ein¬ 
gefügt. 

Die Mantissen zweier vom Betrag her gleicher, jedoch vom 
Vorzeichen her unterschiedlicher Zahlen unterscheiden sich nur 
im Vorzeichenbit, im Gegensatz zu negativen Integer-Zahlen, 
die meistens in der Zweier-Komplementform verwendet werden. 
Der Exponent dagegen wird bis auf eine Abweichung in 
Zweier-Komplementform dargestellt. Die Abweichung besteht 
darin, daß aus Gründen vereinfachter Rechenoperationen Bit 7 
invertiert ist, beziehungsweise daß zur "normalen" Darstellung 
des Exponenten 128 addiert wird. 

Wenn Sie bis hierhin alles verstanden haben, dann wird Ihnen 
vielleicht aufgefallen sein, daß es mit dem bisher beschrieben 
Aufbau einer Fließkommazahl nicht möglich ist, die Zahl Null 
darzustellen. Da die erste Ziffer der Mantisse zwingend den 
Wert Eins hat, läßt sich auch durch einen noch so kleinen Expo¬ 
nenten nicht die Null erreichen. Daher vereinbart man, daß eine 
Zahl mit dem Exponenten Null selbst den Wert Null hat. Der 
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Wert der Mantisse spielt dabei keine Rolle, obwohl man ihn 
üblicherweise auch auf Null setzt. 


Unterroutinen des BASIC-Interpreters 

Wie schon gesagt, brauchen wir uns nicht unbedingt mit dem 
etwas komplizierten Aufbau von Fließkommazahlen zu befassen, 
wenn wir mit ihnen rechnen wollen, da uns der BASIC-Inter¬ 
preter alle dafür notwendigen Routinen zur Verfügung stellt. 
Alle diese Routinen benutzen den sogenannten "Fließkomma- 
Akku". abgekürzt FAC. Es handelt sich dabei um die zu einem 
Fließkommaregister zusammengefaßten 5 Bytes von S61 bis S65. 
Nahezu sämtliche Fließkommaoperationen beziehen sich auf 
dieses Register. Dabei wird meistens noch ein Hilfsregister ver¬ 
wendet, nämlich die Bytes $69 bis S6D, die auch als Fließ- 
komma-Akku 2 oder ARG bezeichnet werden. Es existieren 
daneben auch noch Akkus 3 und 4 ab $87 und $92, diese wer¬ 
den allerdings seltener gebraucht. 

Wie benutzt man nun erwähnte Routinen? Man muß zuerst 
unterscheiden, ob man eine Rechenoperation durchführt, die 
zwei Operatoren erfordert, oder eine Funktion wie zum Beispiel 
INT oder SIN benutzt, die keinen weiteren Operator benötigen. 
Letztere werden durch ihren Aufruf einfach auf den Inhalt des 
FACs angewendet, das Ergebnis wird dort auch wieder gespei¬ 
chert. Die EinsprOnge aller BASIC-Funktionen sind in Tabelle 1 
aufgelistet. 

Operationen wie "+", oder sowie das Laden des FACs 

mit einer Zahl finden zwischen einer Fließkommavariablen oder 
-konstanten und dem FAC statt. Dazu wird die Adresse dieser 
Zahl im Akku und Y-Register des Prozessors an die entspre¬ 
chende Routine übergeben, und zwar das Low-Byte in A und 
das High-Byte in Y. Das Übertragen des FAC-Inhalts in eine 
Variable erfolgt fast genauso, jedoch wird hier das Low-Byte 
nicht in A. sondern im X-Register angegeben. Bei den Opera¬ 
tionen und "/" muß außerdem noch die Reihenfolge beachtet 
werden. Es wird nämlich nicht, wie man erwarten könnte, die 
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Variable vom FAC, sondern der FAC von der Variable abgezo¬ 
gen. Entsprechendes gilt für die Division. Die Liste der Inter¬ 
preterroutinen befindet sich in Tabelle 2. 

Weiterhin existieren Routinen, um Integerzahlen in Fließkom¬ 
mazahlen, Strings in Fließkommazahlen und natürlich beides 
umgekehrt umzuwandeln. Bei der Wandlung Integer - Fließ¬ 
komma befindet sich die 16-Bit-Integerzahl in A und Y. Hier 
enthält jetzt allerdings Y das Lowbyte und A das Highbyte. 
Wenn der FAC zu groß oder zu klein ist, so daß er sich nicht 
umwandeln läßt, kommt es zu einer Fehlermeldung des Inter¬ 
preters. 

Bei der Umwandlung des FACs in einen String werden die 
ASCII-Zeichen ab $0100 abgelegt. Das Ende des Strings wird 
durch ein Null-Byte kenntlich gemacht. Die Routine liefert in 
A/Y die Adresse $0100 zurück, so daß zur Ausgabe des Strings 
direkt im Anschluß an die Umwandlung die Stringausgabe-Rou- 
tine $AB1E aufgerufen werden kann. Will man einen String in 
eine Fließkommazahl umwandeln, so muß man die Adresse des 
Strings in $22/$23 übergeben und seine Länge in A. Tabelle 3 
enthält die Adressen aller Umwandlungsroutinen. 

Um die Speicherstellen, die man sich als Variable einrichtet, mit 
einem Wert vorzubesetzen, hat man drei Möglichkeiten; 

a) Man gibt die Zahlen als String vor, wandelt sie um und 
speichert sie in seinen Variablen. 

b) Wenn es sich um Integer-Zahlen handelt, kann man die 
Umwandlung Integer nach Fließkomma benutzen und 
entsprechend wie bei a) verfahren. 

c) Wenn möglich, kann man auch auf die im ROM schon 
vorhandenen Konstanten zurückgreifen. Die wichtigsten 
sind in Tabelle 4 aufgeführt. 

Eine vollständige Liste aller Interpreterroutinen finden Sie in 
Kapitel 6. Dort finden Sie auch eine Bezugnahme auf die Akkus 
2, 3 und 4, die aber für die Anwendung der Routinen meistens 
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außer Acht gelassen werden können. Die Akkus 3 und 4 können 
allerdings von Ihnen als Hilfsregister benutzt werden, wenn Sie 
beispielsweise die Rechenreihenfolge bei Subtraktion oder Divi¬ 
sion umkehren wollen. 

Schnitlstelle zu BASIC 

Durch die USR-Funktion ist eine einfache Möglichkeit gegeben, 
zwischen BASIC- und Maschinenprogrammen Fließkommawerte 
in beiden Richtungen auszutauschen. Bei ihrem Gebrauch wird 
ein Maschinenprogramm gestartet, das ab der Adresse beginnt, 
auf die der Vektor S03I1/$03I2 zeigt. Vorher wird allerdings 
das Argument der USR-Funklion ausgewertet und das Ergebnis 
in den FAC übertragen. Wenn das Maschinenprogramm mit RTS 
beendet ist, wird der jetzige Inhalt des FAC dem BASIC-Pro- 
gramm als Wert der Funktion übergeben. 

Im Anschluß an die Tabellen folgen zwei Beispielprogramme, 
die die Verwendung der Fließkomma-Routinen demonstrieren. 


Tabelle I - BASIC-Funktionen 


Adresse Beschreibung 


SAED4 

FAC =NOT(FAC) 

SB9EA 

FAC =LOC(FAC} 

SBC39 

FAC »SGN(FAC) 

SBC58 

FAC «ABS(FAC) 

SBCCC 

FAC »INT(FAC) 

SBF71 

FAC ^SQRtFAC) 

SBFED 

FAC «EXPCFAO 

$EQ97 

FAC sRND(FAC) 

K264 

FAC :C05(FAC} 

$EZ6B 

FAC >SIN(FAC) 

SE2B4 

FAC =TAN(FAC) 

SE30E 

FAC =ATN(FAC) 
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Tabelle 2 - Operationen mit zwei Zahlen 


Adresse Beschnei bu>g 


SB8A2 

FAC *(A/Y) 

S8BD4 

(X/Y> =FAC 

SB850 

FAC >(A/Y)-FAC 

SB867 

FAC =(A/Y)*FAC 

SBA28 

FAC =(A/Y)*FAC 

SBBOF 

FAC °(A/Y)/FAC 


Tabelle 3 - Umwandlung verschiedener Datenformate 

Adresse Beschreibung 

SB1AA Y/A »tHTCFAO (Ait Vorzeichen) 

SB39i FAC ^Integerzahl Y/A (mit Vorzeichen) 

S67B5 String ab (S22/S23) nach FAC wandeln 

SB7F7 Y/A slNT(FAC) (ohne Vorzeichen) 

SSODD FAC nach String ab Adresse S0100 wandeln 


Tabelle 4 - FlieOkommakonstanten im ROM 


Adresse Beschreibung 


SAEA8 

Pi 

SBiAS 

-32768 

SB9BC 

1 

SB9D6 

SOR(2)/2 

SB9DB 

S0R(2) 

SBAF9 

10 

SBF11 

o.s 

SEZEO 

Pi/2 

SE2e5 

2»Pi 

SE2EA 

0.25 
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Beispielprogramm 1: 

Eingabe eines Radius R von der Tastatur und Berechnung des 
zugehörigen Kreisumfangs. 


CODO 

A2 

00 


LOX 

o 

o 

;Zähler für Zeichenanzahl 

C002 

20 

CF 

FF 

JSR 

SFFCF 

.‘Zeichen von Tastatur 

C005 

C9 

OD 


CHP 

«soo 

;°RETURN‘> 

C007 

FO 

07 


BEQ 

scoto 

;Henn ja, weiter 

C009 

90 

00 

CI 

STA 

SC700,X 

;wenn nein, abspeichern 

cooc 

E3 



INX 


.‘Zähler erhöhen 

cood 

4C 

02 

CO 

JHP 

SC0O2 

.‘und Schleife fortsetzen 

C010 

20 

D2 

FF 

JSR 

SFF02 

.‘RETURN ausgeben 

C013 

8A 



TXA 


.■Stringlänge nach A 

C014 

A2 

00 


LOX 

o 

o 

;Stringadresse nach SZ2/23 

C0t6 

AO 

CI 


LOY 

«SCI 


C018 

86 

22 


STX 

S22 


C01A 

8« 

23 


STY 

S23 


C01C 

20 

B5 

B7 

JSR 

$8765 

.‘String nach FAC wandeln 

C01F 

A9 

ES 


LOA 

«SE5 

.‘SE2E5 ist Adresse von 

C021 

AO 

E2 


LOY 

«SE2 

;2*Pi 

C0Z3 

20 

28 

BA 

JSR 

SBA28 

;nal FAC 

C026 

20 

DD 

80 

JSR 

S8DDD 

,‘FAC nach String wandeln 

C029 

20 

IE 

AB 

JSR 

SAB1E 

.‘String ausgeben 

COZC 

A9 

00 


LOA 

«SOD 

;2 mal RETURN ausgeben 

C02E 

20 

02 

FF 

JSR 

SFFD2 


C031 

20 

02 

FF 

JSR 

SFF02 


C034 

4C 

00 

CO 

JHP 

SCOOO 

.'zurück zin Anfang 


Beispielprogramm 2; 

Berechnung der Formel; 

USR(X)=INT(SQR((X*3.2+4/7)/0.35))+0.5) 

Der USR-Vektor muß zuvor auf SCOOO eingestellt werden. Dies 
geschieht durch POKE 785,0:POKE 786,192. Danach läßt sich 
die Funktion direkt von BASIC aus auf rufen. 
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Das Programm benutzt zwei Hilfsregister für Fließkommazahlen 
in $C100-$C104 und $C105-$C109. Die Zahlen 3.2 und 0.35 
sind als Strings ab C06D abgelegt. 


cooo 

A2 

00 


LOX 

#S00 

C002 

AO 

CI 


LOY 

«SCI 

C004 

20 

04 

BB 

JSR 

SeB04 

cao7 

A9 

03 


LOA 

«SOS 

C009 

A2 

60 


LOY 

«S60 

COOB 

AO 

CO 


LOY 

n 

o 

COGD 

86 

22 


STX 

S22 

COOF 

84 

23 


STY 

S23 

C011 

20 

B5 

B7 

JSR 

S67B5 

C014 

A9 

00 


LOA 

«SOO 

C016 

AO 

CI 


LOY 

#SC1 

C018 

20 

28 

BA 

JSR 

SBA28 

C018 

A2 

00 


LOX 

«SOO 

C01D 

AO 

CI 


LOY 

«SCI 

C01F 

20 

04 

BB 

JSR 

SBBD4 

C022 

AO 

04 


LOY 

«S04 

C024 

A9 

00 


LOA 

«SOO 

C026 

20 

91 

B3 

JSR 

CD 

C029 

A2 

05 


LOX 

#S05 

C02B 

AO 

CI 


LOY 

«SCI 

C02D 

20 

04 

BB 

JSR 

SSeD4 

C030 

AO 

07 


LOY 

«S07 

C032 

A9 

00 


LOA 

«SOO 

C034 

20 

91 

B3 

JSR 

SB391 

ca37 

A9 

05 


LOA 

«S05; 

C039 

AO 

CI 


LOY 

«SCI 

C03B 

20 

OF 

BB 

JSR 

sbbof 

C03E 

A9 

00 


LOA 

«SOO 

C040 

AO 

CI 


LOY 

«SCI 

C042 

20 

67 

B8 

JSR 

SB867 

C045 

A2 

OA 


LOX 

o 

o 

CCI47 

AO 

a 


LOY 

«SCI 

C049 

20 

04 

88 

JSR 

SBBD4 

C04C 

A9 

04 


LOA 

«S04 


aus FAC nach SC100 
,‘Länge des Strings 3.2 
('Adresse des Strings 3.2 

;nach S22/23 

(■String nach FAC wandeln 

;FAC=3.2 • x 

;FAC nach SC100 
(‘Integerzahl 4 
;ln Y/A 

;nach FAC wandeln 


;FAC nach SCIOS 
;lntegerzahl 7 
;in Y7A 

;nach FAC wandeln 

;FAC«4 / 7 

;FAC=FAC + 3.2 • X 

;FAC nach SC100 
(‘Länge des Strings 0.35 
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C04E 

A2 70 

LDX M70 

C050 

AO CO 

LDY mco 

C052 

86 22 

STK S22 

C054 

84 23 

Str S23 

C056 

20 B5 B7 

JSR S8785 

C059 

A9 00 

LDA moo 

C05B 

AO CI 

LDY #SC1 

C05D 

20 OF BB 

JSR SBBOF 

C060 

20 71 BF 

JSR SBF71 

C063 

A09 11 

LDA Mit 

C065 

a3.2o BF 

LDY »BF 

C067 

20 67 B8 

JSR S8867 

C06A 

4C CC BC 

JHF> SBCCC 

C06D 33 2E 32 30 

2E 33 35 


.‘Adresse des Strings 0.35 
;nach %22/a 

.‘Strfng nach FAC wandeln 


;fAC=<X*3.Z ♦ 4/7) / FAC 

:FAC=SQR(FAC} 

;ROH-Konstante 0.5 

;aus SBF11 

;zu FAC addieren 

;FAC=INT<FAC) 

;3.2 0.35 


Nach Abschluß der Routine befindet sich daß Ergebnis im FAC 
und wird daher beim USR-Aufruf als Funktions-Ergebnis an 
das BASIC-Programm übergeben. 


1.10 Der Virus-Killer 

Unter Computerviren versieht man Programme, die irgendwo im 
letzten Winkel des Speichers verborgen liegen und Schaden 
anrichten. Sie bringen zum Beispiel den Rechner zum 'Absturz’, 
oder sie beschreiben die im Laufwerk befindliche Diskette. 

Um diese ‘Plage’ aus dem Rechner zu verscheuchen, muß der 
gesamte Speicher des C64 gelöscht werden, wobei auch das unter 
dem Kernal- und BASIC-ROM befindliche RAM gelöscht 
werden muß, um jede Möglichkeit in Betracht zu ziehen, den 
Virus zu zerstören. 

Aber um an das unter dem Betriebssystem befindliche RAM 
heranzukommen, muß das ROM ausgeblendet werden. Das kann 
man durch das Umstellen des Prozessorports in der Zeropage 
erreichen, indem man die Bits 0 und i auf LOW stellt, also 
löscht. 
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Anschließend wird der gesamte Speicher mit Nullen über¬ 
schrieben und damit gesäubert. Dazu ist dieses kleine 
Maschinenprogramm notwendig: 


033C 

SEI 


Interrupt verhindern 

0330 

LOA 

moo 

RCH-Berreich 

033F 

STA 

S01 

ausblenden 

0341 

LDX 

«soo 

Zähler 1 setzen 

0343 

LDY 

«SF6 

Zähler 2 setzen 

0345 

LDA 

«soo 

Füllwert 

0347 

STA 

S0400,X 

Speicher löschen 

034A 

INX 


Zähler 1 erhöhen 

034B 

BNE 

$0347 

Wenn 255 erhöht, dann 

034D 

INC 

$0349 

High-Byte erhöhen 

0350 

DEY 


Zähler 2 erniedrigen 

0351 

BNE 

$0347 

Wenn Zähler 2=0, dann 

0353 

LOA 

#$37 

ROPs wieder 

0355 

STA 

$01 

einblenden 


0357 JMP $FCE2 RESET 


Es folgt das gleiche Programm als BASIC-Loader: 

100 FOR I«1 TO 30 STEP 1S:FOR J»0 TO U:READ AS: BS°RIGHTS(AS,1} 

105 A=ASC(AS}-48:tF A>9 THEM A=A-7 
110 B°ASC(BS)-48:1F B>9 THEN B>B-7 

120 A»A*16-B:C°(C«A}AND255:POKE827«l>J.A:HEXT:READ A:IF C=A THEN 
CsO:NEXT:END 

130 PRINT "FEHLER IN 2E1LE:";PEEIC(63}'»PEEK(84}*256:S10P 

300 DATA 78,A9,00,85,01,A2,00,AO,F6.A9,00,90,00,04,E8, 17 

301 DATA DO,FA,EE,49,03,88,DO,F4.A9,37,85,01,4C,E3,FC, 244 

Das kleine Maschinenprogramm liegt im Kassettenpuffer und 
wird mit SYS 82S gestartet. Das hat den Vorteil, daß der Kas- 
settenpuffer nach dem RESET automatisch gelöscht wird und 
der Speicher danach absolut 'sauber’ ist. 
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1.11 Der BASIC-Kompaktor 

Der BASIC-Packer ist ein nützliches Utility, um Speicherplatz 
auf der Diskette zu sparen, da man mit diesem Programm sich 
im Speicher befindliche BASIC-Programme komprimieren kann, 
so daß sie weniger Speicherplatz benötigen. 

Unter Komprimieren ist in dem Fall nicht das Zusammenpressen 
gemeint, sondern BASIC-Zeilen, in denen wenige Befehle Vor¬ 
kommen, werden mit der vorherigen verbunden. Das heißt, zwei 
Befehle, die vorher in zwei Zeilen gestanden haben, werden 
einfach in einer Zeile zusammengefaßt. Zum Beispiel so: 

Vorher: lo phint 
20 PRINT 
30 PRINT 

Nacher: 10 PRtHT:PRINT:PRINT 

Dieses Programm ist aus Geschwindigkeitsgründen vollkommen 
in Maschinensprache geschrieben, und es faßt in nur wenigen 
Sekunden bis zu 245 Zeichen pro Zeile zusammen. 

Programmzeilen, in denen GOTO-, GOSUB- oder THEN- 
Befehle Vorkommen, werden nicht gebunden, weil das zu 
Fehlern im Programmablauf führen könnte. Auch Zeilen, in 
denen REM-Befehle verkommen, bleiben unverändert, weil die 
nachfolgenden Befehle als REM-Text anerkannt würden. 

Außerdem müssen alle PRINT- und OPEN-Befehle mit An¬ 
führungszeichen abgeschlossen sein, da sonst vom Kompaktor 
ein "SYNTAX ERROR" ausgegeben wird. 

Wenn nun ein BASIC-Programm gepackt werden soll, muß ent¬ 
weder der folgende BASIC-Lader gestartet werden, oder man 
lädt das Maschinenprogramm direkt in den Speicher und startet 
es anschießend mit SYS 49152. Vorher muß jedoch NEW einge¬ 
geben werden, um die Zeiger wieder richtig zu stellen, da das 
Maschinenprogramm ab der Adresse SCOOO (49152) in den 
Speicher geladen wird. 
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Wenn man den BASIC-Lader benuzt, muß dieser erst gestartet 
werden. Anschließend muß NEW eingegeben werden, um dem 
Programm Platz zu schaffen, das gepackt werden soll. Das zu 
packende Programm kann jetzt von Diskette oder Datasette in 
den Speicher geladen werden. Nach dem Ladevorgang wird der 
Packer ebenfalls mit SYS 49152 gestartet. Nachdem das Pro¬ 
gramm komprimiert wurde, kann es ganz normal mit SAVE 
wieder gespeichert werden. 

Das kompimierte Programm ist auf jeden Fall einige Bytes 
kürzer als vorher. So kann man viel Speicherplatz auf Diskette 
sparen. 

Vorsicht: Man sollte nicht versuchen, ein komprimiertes 
Programm anschließend zu verändern, weil 
viele Zeilen Überlänge haben und somit bei 
bei Abänderung einer Zeile evtl. Teile einer 
Zeile abgeschnitten werden können. 

Hier nun das Mnschinenlisting des Packer-Programms und der 
dazugehörige BASIC-Loader: 


COOO LDA 

§S36 

BASIC-Interpreter 

C002 

STA 

SOI 

ausbleiiden 

C004 

JSR 

SC0A7 

Tabelle angesprungen. 




Zei len erstel len 

C007 

LDA 

S2B 

BASIC-Anfang LOU-Byte 

C009 SEC 


Carry für Subtraktion 

COOA 

SBC 

§S01 

minus eins 

COOC 

STA 

SAB 

Zeitspeixher LOU-Byte 

COOE 

STA 

SA9 

Progrann LOU-Byte 

C010 

LDA 

S2C 

BASIC-Anfang HIGH 

C012 

SBC 

ISOO 

■inus Übertrag 

C014 STA 

SAC 

Zielspeicher HIGH 

C016 

STA 

SAA 

Prograrrrn HIGH 

C018 

LDY 

§S01 

Linkteiger setzen 

C01A LDA 

(SA9),Y Linkbyte LO holen 

C01C 

IMY 


Prograrrmzeiger erhöhen 

C01D 

OftA 

(SA9}.Y Byte HIGH verknüpfen 
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C01F BEQ SC05E verzweige, wenn Null 
C021 INT Programnzeiger erhöhen 

C022 LOA ($A9),Y ZeilennutMer LO laden 
C024 TAX nach X schieben 

C02S INY Progrannzeiger erhöhen 

C026 LOA ($A9),Y Zeilennunner High 
C028 JSR SC213 Zeile in Tabelle ? 

C02B BEO $C079 verzweige, wenn ja 
C02D LOY §$01 Zeiger auf linker 
C02F LDA ($A9>,Y Linker LO-Byte holen 
C031 SEC Carry für Subtraktion 

C032 SBC $A9 mirxjs Progrannzeiger 
C034 SEC Carry für Subtraktion 

C035 SBC §$0S gekürzte Zeilenlänge 
C037 CLC Carry für Addition 

C036 ADC SAD plus Zeilenlänge 
C03A BCS $C079 größer als 255 ? 

C03C CHP §$F5 gleich 245 ? 

C03E BCS $C079 verzweige, wenn ja 
C040 STA SAD neue Zeilenlänge 
C042 LDY ISOO Verschiebeschleife°0 
C044 LDA §$3A ASCII 
C046 STA (SAB>,Y in Zielspeicher 
C046 INY Zeiger erhöhen 

C049 LDA $A9 Progrannzeiger LO 
C04B CLC Carry für Addition 

C04C ADC IS04 plus 4 
C04E STA $A9 nach Progrannzeiger 
C050 BCC $C054 verzweige, wenn kein 
Übertrag 

C052 INC SAA Progrannzeiger erhöhen 

C054 LDA (SA9},Y Progranabyte holen 
C056 SEQ $C090 nächste Zeile ? 

C058 STA (SABj.T in Zielspeicher 
C05A INY Zähler erhöhen 

C05B JHP $C054 Sprung zun Anfang 
C05E TAY ZielbereichcO 

C05F STA CSAB),Y Progrannende-O 
C061 INY Zeiger erhöhen 

C062 CPY §S03 schon 3 Nul len 7 



64 


64 Intern 


C064 BNE IC05F 

verzweige, wenn ja 

C066 TYA 

Y-Register nach AKKU 

C067 CLC 

Carry für Addition 

C068 ADC §AB 

Progranmende berechnen 

C06A STA §2D 

in Prograanzeiger 

C06C LDA $AC 

PrograoHiende HIGH 

C06E ADC ISOO 

Übertrag addieren 

C070 STA S2E 

in Progrannzeiger 

C072 LDA §S37 

BASIC-Interpreter 

C074 STA SOI 

einschalten 

C076 JMP SE1AB 

CLR, Rücksprung 

C079 LDY SSOO 

Zähler auf Null 

C07B LDA (SA9),Y 

fünf Prograiwnbytes 

C07D STA (SAB),Y 

verschieben 

C07F IHY 

Zähler erhöhen 

C080 CPY §S05 

fünf Bytes verschoben? 

C082 BNE SC07B 

verzweige» wenn nein 

C084 LDA (SA9},Y Progranobyte holen 

C086 BEQ $C08E 

nächste Zeile erreicht 

C088 STA (SAB),Y Progrannbyte spefchern 

COSA IHY 

Zähler erhöhen 

C08B JHP SC084 

Zum Schleifenanfang 

C08E STY SAD 

Zeilenlänge speichern 

C090 TYA 

Zähler nach Akku 

C091 CLC 

Carry für Addition 

C092 ADC SA9 

Prograiiwizeiger LOW 

C094 STA SA9 

berechnen 

C096 BCC SC09A 

kein Übertrag ? 

C098 INC SAA 

Progrannzeiger HIGH 

C09A TYA 

Zähler nach Akku 

C09B CLC 

Carry für Addition 

C09C ADC SAB 

Zielzeiger berechnen 

C09E STA SAB 

und speichern 

COAO BCC SC0A4 

kein Übertrag ? 

COA2 INC SAC 

Zielzeiger HIGH 

C0A4 JMP SC018 

nächste Zeile 

COA7 LOA S2B 

BASIC-Anfang LO 

C0A9 SEC 

Carry für Subtraktion 

COAA SBC §S01 

minus 1 

COAC STA SAB 

Progrannzeiger LO 
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COAE 

LDA 

S2C 

BASIC-Anfang HIGH 

COBO 

SBC 

§too 

minus 1 

C0B2 

STA 

SAC 

Progrann Zeiger HIGH 

C0B4 

LDY 

SSOO 

LOU-Byte von SAOOO 

C0B6 

LDA 

§SAO 

HIGH-Byte von SAOOO 

C0B8 

STY 

SA5 

Tabellenzeiger LO 

coba 

STA 

SA6 

Tabellenzeiger HIGH 

COBC 

LDY 

§»03 

erste 2 ei tennuirier 

CDBE 

LDA 

(»AB),Y 

Zei lennijirier LO 

COCD 

TAX 


nach X-Reg. 

COC1 

INY 


Progrannzeiger erhöhen 

COC2 

LDA 

(SAB),Y 

Zeilemunner HIGH 

COCA 

JSR 

SC193 

in Tabelle 

C0C7 

IMY 


Progrannzeiger erhöhen 

C0C8 

LDA 

(»AB},Y 

Progranit>yte holen 

COCA 

BNE 

SC0F6 

noch nicht Zeilenende? 

COCC 

TYA 


Zeiger nach Akku 

coco 

ac 


Carry für Addition 

COCE 

ADC 

SAB 

Programzeiger 

CODO 

STA 

SAB 

berechnen 

C002 

BCC 

SCOo6 

kein übertrag ? 

COOA 

INC 

SAC 

Progrannzeiger HIGH 

C006 

LDY 

§S01 

Zeiger auf Linker 

C0D8 

LDA 

(»AB),Y 

Linker LO 

CODA 

INY 


Programzeiger erhöhen 

CODB 

ORA 

(»AB).Y 

Akku mit Linker HIGH 

CODD 

BNE 

SCDE6 

noch ni cht Ende T 

COOF 

STA 

SA7 

Tabellenzeiger LO 

COE1 

LDA 

§SAO 

HIGH-Byte von SAOOO 

C0E3 

STA 

SAB 

Tabellenzeiger HIGH 

n 

o 

m 

RTS 


Rücksprung 

CDE6 

LDA 

S02 

IF-Flag testen 

C0E8 

BEQ 

SCDF1 

noch nicht gesetzt ? 

COEA 

LDA 

§S00 

JF-Flag 

COEC 

STA 

S02 

löschen 

COEE 

JMP 

SCOBC 

Zeile eintragen 

COFi 

LDY 

ISOS 

Zeile überspringen 

COF3 

JHP 

SC0C8 

nächstes Progranifcyte 

CDF6 

CHP 

§S8D 

GOSUB-Token ? 

C0F8 

BEQ 

SC121 

verzweige, wenn ja 



66 


64 Intern 


COFA 

CNP 

§S89 

GOTO-Tok«n ? 

COFC 

BEO 

SC121 

verzweige, wenn ja 

COFE 

CMP 

§SCB 

GO-Token ? 

C100 

BEO 

SC11A 

verzweige, wenn ja 

C102 

CMF> 

§S8B 

IF-Token 7 

C104 

BEQ 

SC17A 

verzweige, wenn ja 

C1Ct6 

CMP 

$SA7 

THEN-Token ? 

CTQB 

BEO 

SC121 

verzweige, wenn ja 

C10A 

CMP 

§S22 

Anführungszeichen ? 

C10C 

BEQ 

SC162 

verzweige, wenn ja 

C10E 

CMP 

§S8F 

REM-Token 7 

Clio 

BEQ 

SC17A 

verzweige, wenn ja 

cnz 

CMP 

§S91 

ON-Token 7 

C1U 

BEO 

SC17A 

verzweige, wenn ja 

C116 

INY 


Prograirmzeiger erhöhen 

C117 

JHP 

SC0C8 

nächstes Byte testen 

C11A 

INY 


Progrannzeiger erhöhen 

C11B 

LDA 

($AB),Y 

Prograowtiyte holen 

C11D 

04P 

$S20 

Leerzeichen 7 

C11F 

BEQ 

SC11A 

verzweige, wenn ja 

C121 

INY 


GOTO überspringen 

C122 

LDA 

(SAB},Y Progrannbyte holen 

C124 

CMP 

$S20 

Leerzeichen ? 

C126 

BEQ 

SC12t 

verzweige, wenn Ja 

C128 

LOA 

$S37 

BASIC-Interpreter 

C12A 

STA 

S01 

einschalten 

C12C 

STY 

SAE 

Y-REG. speichern 

C12E 

TYA 


Zeiger rtach Akku 

C12F 

CLC 


Carry für Addition 

C130 

AOC 

SAB 

Programmzeiger LO 

C132 

STA 

S22 

berechnen 

C134 

LOA 

SAC 

Progrannzeiger HIGH 

C136 

AOC 

SSOO 

Übertrag addieren 

C138 

STA 

S23 

und speichern 

C13A 

LOA 

(SAB),Y 

Progrannbyte holen 

C13C 

CMP 

$S30 

kleiner als ASCII"0»? 

C13E 

BCC 

SC148 

verzweige, wenn ja 

cuo 

CMP 

$S3A 

gröBer als ASCCPd" 7 

C142 

BCS 

sci4e 

verzweige, wenn ja 

C144 

INT 


Zeiger erhöhen 
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CU5 

JHP 

SC13A 

Schlelfenanfang 

CU6 

TYA 


Y-REG. auf 

CU9 

PHA 


Stapel retten 

C14A 

SEC 


Carry für Sifctraktion 

CUB 

SBC 

SAE 

Ziffernfolge berechnen 

CUO 

BEQ 

SC171 

gleich Null ? 

CUF 

JSR 

SB7B5 

Ziffernstrfng in 

FlieBkoirmazahl wandeln 

C152 

JSR 

SB7F7 

Fl ieBkonnazahl in 

Interger wandeln 

C155 

PLA 


Y-Reg. vom Stapel 

C156 

TAY 


zurückholen 

C157 

LDA 

$S36 

BASIC-Interpreter 

C159 

STA 

S01 

wieder abschalten 

C15B 

LDX 

SU 

Zei lennumer LO 

C1SD 

LDA 

SIS 

Zeilennunner HIGH 

C15F 

JSR 

SC193 

in Tabelle eintragen 

C162 

LDA 

(SAB).Y 

nächstes Prograieitiyte 

C164 

INY 


Progratmzeiger erhöhen 

C165 

CMP 

$S20 

Leerzeichen? 

C167 

BEQ 

SC162 

verzweige, wenn ja 

C169 

DEY 


Programzeiger -1 

C16A 

CHP 

$S2C 

ASCII ? 

C16C 

BEQ 

SC121 

verzweige, wenn ja 

C16E 

JHP 

SC0C8 

nächstes Progrannbyte 

C171 

PLA 


Y-REG. von Stapel 

C172 

TAY 


zurückholen 

C175 

LDA 

$S36 

BASIC-Interpreter 

C175 

STA 

SOI 

abschalten 

C177 

JHP 

SC0C8 

nächstes Programbyte 

C17A 

LDA 

$S01 

IF-Flag, REH oder OH 

C17C 

STA 

S02 

setzen 

C17E 

INY 


Token überspringen 

C17F 

JHP 

SC0C6 

nächstes PrograsHbyte 

C182 

INY 


ASCII “ überspringen 

C183 

LOA 

(SABI.Y Prograrirtyie holen 

des 

BEQ 

SCISF 

Zeile zu Ende ? 

C187 

CHP 

§S22 

zweites " erreicht ? 

C189 

BNE 

SC162 

verzweige, wenn nein 

C18B 

INY 


Progrannzeiger erhöhen 
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CISC 

JNP 

SC0C6 

nächstes ProgrannSiyte 

C18F 

DEV 


Progrannzeiger -T 

C190 

JHP 

SC17A 

IF-Flag setzen 

C193 

STX 

tA9 

Ze{ lennumier LOU 

C195 

STA 

SAA 

Zeilennumer HIGH 

C197 

STY 

SAE 

Y'REG. speichern 

C199 

LOY 

§$00 

LOU-Byte von SAOOO 

C19e 

STY 

$A7 

nach Tabellenzeiger LO 

C190 

LDA 

§$Aa 

HIGH'Byte von SAOOO 

C19F 

STA 

$A6 

nach Tabellenzeiger 

C1A1 

CPY 

SA5 

Tab.‘Zeiger vergl. 

C1A3 

LDA 

$A8 

Tabellenzeiger HIGH 

C1A5 

SBC 

SA6 

Tabellenende HIGH 

C1A7 

9EQ 

$C1CD 

verzweige, wenn Ende 

C1A9 

SEC 


Carry für Subtraktion 

C1AA 

LOA 

($A7>,Y 

Zeilennunnier LOU 

C1AC 

SBC 

SA9 

mit neuer vergleichen 

C1AE 

TAX 


Differenz speichern 

C1AF 

INY 


Tabellenzeiger erhöhen 

C180 

LDA 

($A7>.Y 

Zeilennunner HIGH 

C162 

SBC 

SAA 

mit neuer vergleichen 

C1B4 

INY 


Progrannzeiger LOW 

C1B5 

BHE 

SC1B9 

kein übertrag ? 

C1B7 

INC 

SAB 

Progrannzeiger HIGH 

C1B9 

BCC 

SC1A1 

verzweige, wenn grSBer 

C1BB 

CNP 

§soo 

HIGH-Byte gleich ? 

C1BD 

BNE 

SC1C5 

verzweige, wenn nein 

C1BF 

TXA 


LOU-Byte gleich ? 

C1C0 

BNE 

SCtCS 

verzweige, wenn nein 

C1C2 

LDY 

SAE 

Y-REG. zurückholen 

CK4 

RTS 


Rücksprung 

C1C5 

DEY 


Zeiger LOU verringern 

C1C6 

CPY 

§SFF 

Übertrag ? 

C1C8 

BNE 

$C1CC 

verzweige, wenn nein 

C1CA 

DEC 

SAB 

Prograaaizeiger HIGH 

C1CC 

OEY 


Prograaaizeiger LOU 

C1C0 

STY 

SA7 

Y-REO. in Prograanz. 

C1CF 

LDA 

SA5 

Tabellenende LOW 

C101 

STA 

SFB 

Verschieberreg.LOU 

C1D3 

LOA 

SAB 

Tabellenende HIGH 




Der BASIC-Inierpreier 


69 


C1D5 

STA 

SFC 

Verschiebereg. HIGH 

C1D7 

LOA 

M7 

Tabellenzeiger LOW 

C1D9 

CMP 

SFB 

Verschiebereg. LOW 

CIDB 

LOA 

SA8 

Tabellenzeiger HIGH 

C1DD 

SBC 

SFC 

Verschiebereg. HIGH 

C1DF 

BCS 

SC1F0 

verzweige, wenn größer 

C1E1 

OEC 

SFB 

Verschiebereg. LOW 

C1E3 

LOA 

SFB 

und holen 

C1ES 

CHP 

ISFF 

Übertrag 7 

C1E7 

BNE 

SC1EB 

verzweige, wenn nein 

C1E9 

DEC 

SFC 

Verschiebereg. HIGH 

C1EB 

LDY 

§soo 

Verschiebereg. LOW 

C1ED 

LOA 

(SFB),Y 

Zei lennunner LOW 

C1EF 

LOY 

§S02 

Verschiebereg. LOW 

C1F1 

STA 

(SFB),Y 

Zei lennunner LOW 

C1F3 

DEY 


Verschiebereg. HIGH 

C1F6 

LOA 

(SFB).Y 

Zeilennumier HIGH 

C1F6 

LDY 

SS03 

Schleifenanfang 

C1FB 

STA 

(SFB).Y 

Zeiger LOW 

C1FA 

JHP 

SC1D7 

Zei lennurmer LOW 

Ci FD 

LDY 

$soo 

in Tabelle schreiben 

C1FF 

LDA 

SA9 

Zeiger HIGH 

C201 

STA 

{SFB).Y 

Zei lennmner HIGH 

C203 

INY 


Zeiger auf HIGH 

C204 

LDA 

SAA 

Zei lennmner HIGH 

C206 

STA 

(SFB).Y 

in Tabelle schreiben 

C208 

INC 

SA5 

Tabellenende LOW 

C20A 

INC 

SA5 

Tabellenende LOW 

C20C 

BNE 

SC1C2 

kein übertrag 

C20E 

INC 

SA6 

Tabellenende HIGH 

C210 

JHP 

SC1C2 

Rücksprung 

C213 

STY 

SAE 

Y-RE6. speichern 

C215 

STX 

SFB 

Zei lennunner LOW 

C217 

STA 

SFC 

Zeilennunner HIGH 

C219 

LDA 

SA7 

Tabellenzeiger LCU 

C21B 

CMP 

SA5 

Tabellenende LOW 

C21D 

LDA 

SA8 

Tabellenzeiger HIGH 

C21F 

SBC 

SA6 

Tabellenende HIGH 

C221 

BCS 

SC23D 

Ende erreicht ? 

C223 

LDY 

$SOO 

Zeiger auf Null 
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C225 

LDA 

SFB 

Zeilemimer LCW 

C227 

CMP 

(SA7),Y 

Tabellenwert vergl. 

C229 

INV 


Zeiger erhöhen 

C22A 

LDA 

SFC 

Zei lennumner HIGH 

C22C 

SBC 

(SA7),Y 

Tabel lenwert 

C22E 

BCC 

SC230 

nicht in Tabelle ? 

C230 

INC 

$A7 

Tabellenzeiger LOU 

C232 

INC 

SA7 

Tabellenzeiger LOU 

C234 

BNE 

SC238 

kein Übertrag ? 

C236 

INC 

SA8 

Tabellenteiger HIGH 

C238 

LOT 

SAE 

Y-REG. turückholen 

C23A 

LDA 

§soo 

Zero-Fleg setzen 

C23C RTS 


Rücksprung 

C230 

LDT 

SAE 

Y-REG. zurückholen 

C23F 

LDA 

$S01 

Zero-Flag Löschen 

C241 

RTS 


Rücksprung 


100 FORI-1TO57aSTEP15:F0RJ>0TO14:READAS:BS-RIGHT$(AS,1) 

105 A-ASC(AS)-45:IFA>9THENA:A-7 
110 B>ASC(BS}-48;IFB>9thEn8«B-7 

120 A»A*16*^B:C>(C+A)AND2SS:POKE49151'fI+J.A:NEXT:READA:IFC-ATHEHC« 
0:NEXT:EHO 

130 PRIMTHFEHLER IN 2E1LE:";PEEK<63)*^PEEX(64)*2S6:ST0P 

300 DATA A9,36.e5,01,20,A7,CO.A5,2B.38.E9,01.BS,AB,BS. K7 

301 DATA A9.A5.2C,E9.00,8S,AC,8S,AA.A0.01.B1.A9,C8.11, 151 

302 DATA A9,FO,3D.C8,B1,A9.AA,C8,B1,A9.20.13.C2.F0,4C. 245 

303 DATA A0,01,B1,A9.38,E5.A9,38.E9,05,18,65.AO,BO.3D, 254 

304 DATA C9,F5.BO,39,85,AD,AO.OO.A9,3A.91.AB,C8,A5,A9. 174 

305 DATA 18,69,04.85,A9,90.02.£6,AA,B1.A9,FO,38.91.AB. 147 
3D6 DATA C8.4C.54,CO,A8.91,AB.C8,C0,03.DO,F9,98.18,65. 117 

307 DATA AB,85,2D.A5.AC.69,00,85,2E,A9.37.85,01.4C,AB. 39 

308 DATA E1,AO.OO,B1,A9,91.AB,C8.C0.05.DO,F7.61,A9.FO. 181 

309 DATA 06.91,AB,C8,4C,84,CO,84.AD.98.16,65.A9,85,A9, 183 

310 DATA 90.02,E6,AA.98,1S.65.AB.85,AB,90,02.E6,AC,4C. 130 

311 DATA 18.C0.A5.2B.38,E9,O1.85,AB,A5,2C,E9.00.85.AC. 229 

312 DATA AO.OO.A9,A0.84,A5,85.A6.AO,03,B1,AB.AA,C8,B1, 95 

313 DATA AB,20,93,C1.C6,B1,AB.D0,2A,98,18,65,AB,85,AB, 45 

314 DATA 9O.O2,E6,AC,AO,O1,B1.AB,C8.11,AB.D0,O7.65,A7, 168 

315 DATA A9,A0.85,A8,60,A5,02.FO,07.A9,00,85.02.4C,BC. 172 
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316 DATA C0,A0,05,4C,C8,C0,C9,a0,F0,27,C9,a9,F0,23,C9, 212 

317 DATA CB.F0,ia,C9,8B,F0,74,c9.A7,FO,17,C9,22.F0,74, 81 

318 DATA C9,8F,FO,68,C9,91,FO,64,C8,4C,C8,CO,C8,B1,AB, 30 

319 DATA C9.20,f0,F9,C8,B1,AB,C9,20,F0,F9,A9,37,85,O1, 46 

320 DATA 84.AE.96,18,65.AB,85,22,A5,AC,69.00,85,23,81, 172 

321 DATA AB,C9,30.90,08.C9,3A,BO,04.C8,4C.3A,C1,98,48, 226 

322 DATA 38,E5.AE,F0.22,20,B5,B7,20,F7,B7,68,A8.A9,36, 38 

323 DATA 85.O1,A6,14,A5.15,20,93,Cl,B1,AB,ca,C9,20,F0, 107 

324 DATA F9,88,C9,2C,F0,B3,4C.C8.C0,68,A8,A9,36,85,01, 98 

325 DATA 4C,C8,C0,A9,01,85,02,C8,4C,C8,C0,C8,B1,AB,F0, 181 

326 DATA 08,C9,22.DO.F7,C8,4c,C8,CD,88,4C,7A,C1,86,A9, 148 

327 DATA 85,AA,84,AE.A0,00.84,A7,A9,A0,85,Aa,C4,A5,A5, 176 

328 DATA A8,E5,A6.F0,24,38,B1,A7.E5,A9,AA.C8,B1,A7,ES, 20 

329 DATA AA,C8.DO,02,E6.A8,90,E6.C9,00,D0.06.SA.D0.03, 68 

330 DATA A4.AE.60,88.CO.FF.D0.02,C6,A8,88,84,A7.A5,A5, 54 

331 DATA 85.FB,A5,A6,85.FC,A5,A7,C5,F8.A5,A8,E5,FC,B0, 54 

332 DATA 1C,C6.FB.A5,FB,C9.FF,D0,02,C6.FC,A0,00,B1,FB, 37 

333 DATA A0.02,91,FB,88.B1,FB,A0.01,91,FB,4C,07,C1,AO, 21 

334 DATA 00,A5,A9,91.FB,C8.A5.AA.91,FB,E6,A5,E6,A5,00, 99 

335 DATA B4,E6.A6,4C,C2.C1,84,AE,86,FB,85,FC.A5.A7.C5, 84 

336 DATA A5.A5,A8.ES.A6,B0.1A,AO,00,A5,FB,01,A7,C8,A5, 108 

337 DATA FC,F1,A7,90,0D,E6,A7,E6,A7,DO,O2,E6,A8,A4,AE, 253 

338 DATA A9,00,60,A4.AE.A9.01,60,00,00,00,00,00,00,00, 101 
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2. Der Aufstieg zum Assembler 


2.1 Der Maschinensprachemooitor 

Der hier erklärte und im Anhang auch zum Abtippen aufge- 
führte Maschinensprachemonitor verfügt über Möglichkeiten, 
die über den durchschnittlichen Standard hinausgehen. Aus die¬ 
sem Grund könnte er auch für diejenigen unter Ihnen interes¬ 
sant sein, die bereits einen Maschinensprachemonitor besitzen. 

Bitte haben sie dafür Verständnis, daß wir aus Platzmangel 
lediglich den Monitor ab $9000 (36834) abgedruckt haben. Auf 
der Diskette zum Buch liegt er in folgenden Bereichen vor: 


S1000-SZO00 

S2000-S3000 

S3000-S6000 

S4000-S5000 

S5000-S6000 

S6000-S7000 

S7000-S8000 

S8000-S9000 

S90OO-SA000 

scooo-sdooo 


4096 - 8192 
8192 -12288 
12288-16384 
16384-20480 
20480-24576 
24576-28672 
28672-32768 
32768-36864 
36864-40960 
49152-53248 


Mit diesem Monitor ist es möglich, jede beliebige Speicherkon¬ 
figuration einzuschalten. Somit ist es möglich, auch die 
Speicherbereiche 'unter’ dem BASIC-ROM, dem KERNAL- 
ROM und 'unter' dem 1/O-Bereich auszulesen und zu verändern. 
Selbstverständlich können in diesen Bereichen auch Programme 
gestartet werden. Eine Besonderheit dieses Monitors ist, außer 
einigen verbesserten Standardbefehlen, die Möglichkeit, Daten 
aus den eben erwähnten Bereichen mit Hilfe veränderter 
LOAD- und SAVE-Routinen zu laden und auch von dort zu 
speichern. 
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Zu beachten ist noch, daß alle Eingaben mit RETURN abge¬ 
schlossen werden müssen. 

Jetzt werden wir näher auf die einzelnen Befehle eingehen: 


C 

COMPARE: Vergleichen von zwei Speicherbereichen. Nicht 
übereinstimmende Speicherzellen werden angezeigt. 

Format: C 1000 1800 2000 

Der Bereich von $1000 bis $1800 wird mit dem Bereich ab 
$2000 verglichen. 


D 

Disassemblieren: Disassembliert den angegebenen Speicherbe¬ 
reich. Beim Schreiben eigener Programme brauchen Sie nur den 
bestehenden Befehl zu überschreiben. 

Format: D 1000 1100 

Disassembliert den Speicherbereich von $1000 bis $1100. Wenn 
keine Bereichsbegrenzung angeben wird, nur die erste Speicher¬ 
zelle angegeben. 


F 

Fill: Füllt den angegebenen Speicherbereich mit den nach der 
Speicherbereichangabe stehenden Bytes. 

Formal: F 1000 2000 46 49 4C 4C 

Der Speicherbereich von $1000 bis $2000 wird mit den Bytes 
$46, $49, $4C, $4C gefüllt, was dem Wort ’FILL’ im ASCIl- 
Code entspricht. 
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G 

Goto Start a Program: Starlet ein Programm ab der angegebenen 
Adresse. 

Format: G COOO 

Das Programm wird ab der Adresse SCOOO gestartet. 


H 

Hunt: Durchsucht den angegebenen Speicherbereich nach der 
angegebenen Bylefolge. Es ist auch möglich, nach teilweise un¬ 
bekannten Bytefolgen zu suchen. 

Formal: H EOOO FFFF 4C ?? FF 

Durchsucht den Speicherbereich von EOOO bis FFFF. Die Fra¬ 
gezeichen stehen für ein unbekanntes Byte. 


L 

Load: Lädt ein Programm in den Speicher. 

Format: L "FILENAME" 

Lädt ein Progamm absolut von Disk in den Speicher. 

Formal: L "FILENAMF',08,1000 

Lädt ein Programm von Disk ab der Adresse $1000 in den 
Speicher. Die auf Disk angegebene Adresse wird ignoriert. Die 
08 ist die Geräteadresse. Soll ein Programm von Kassette geladen 
werden, so muß auf das zweite Anführungszeichen eine 01 fol¬ 
gen. 


Formal: L“FILENAME",07,D000 
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Lädt ein Programm von Disk immer in den RAM-Bereich des 
Rechners. Bei dieser Anweisung wird demnach nicht wie nor¬ 
malerweise der I/O-Bereich, sondern der darunterliegende 
RAM-Bereich beschrieben. Wenn keine Angabe der Startadresse 
erfolgt, wird das Programm absolut geladen. Diese Anweisung ist 
nur von Disk möglich. 


M 

Memory-Dump: Zeigt die Speicherzellen des angegebenen 
Speicherbereichs und zusätzlich deren Umsetzung in Bild¬ 
schirmzeichen an. 

Format: M 1000 2000 

Zeigt den Speicherbereich von $1000 bis $2000 an. 


P 

Printer: Nach der Eingabe von P werden alle Ausgaben anstatt 
auf dem Bildschirm auf dem Drucker mit der Geräteadresse 4 
ausgegeben. Nach erneuter Eingabe von P erfolgt die Ausgabe 
wieder auf den Bildschirm. 

Format: P 


R 

Register: Zeigt die letzten Registerwerte an. 

PC Programmzeiger 

IRQ Interruptvektor 

SR Prozessorstatusregister 

AC Akkumulator 

XR X-Register 
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YR Y-Register 

SP Stapelzeiger 

Format; R 

Die Register werden nach einem BREAK automatisch angezeigt. 


S 

SAVE; Speichert den angegebenen Bereich. 

Format: STILENAME",08,1000,2000 

Speichert den Bereich von $1000 bis $2000 auf das Gerät mit 
der Geräteadresse 08 (Disk). Für das Speichern auf Kassette 
muß Geräteadresse 01 gewählt werden. 

Format; S"FILENAME",07,E000,FFFF 

Speichert den angegebenen Bereich je nach Speicherkonfigura¬ 
tion auf Diskette ab. Somit ist es möglich, den RAM-Bereich 
unter Kernal-ROM, I/O-Bereich und BASIC-ROM abzuspei¬ 
chern. Diese Funktion existiert nur im Zusammenhang mit dem 
Gebrauch einer Diskettenstation. 


T 

Transfer; Kopiert den angegebenen Speicherbereich in einen 
anderen angegebenen Speicherbereich. 

Format: T 1000 2000 1800 


Kopiert den Bereich von $1000 bis $2000 nach $1800. Bei 
Bereichsüberschreitungen treten beim Kopieren, sowohl nach 
oben als auch nach unten, keine Fehler auf. 
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X 

EXIT; Rücksprung ins BASIC 
Format X 


@ 

Disk Command: Gibt den Status der Floppy auf den Bildschirm 
aus. 


Format @ 

Erfolgen auf das ft weitere Zeichen, so entspricht dieses einem 
OPEN 1,8,15," wobei die nachfolgenden Zeichen an die Floppy 
übergeben werden. 

Format @I 




Format @S 

Gibt die Directory auf den Bildschirm aus. 


+ 

Addition; Addiert zwei hexadezimale Zahlen. Diese Zahlen 
müssen immer vierstellig angegeben werden. 

Format: + 2000 0152 

Addiert $2000 mit $0152 und gibt das Ergebnis aus. 
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Subtraktion; Subtrahiert zwei Hexadezimale Zahlen. 
Format: - 2000 0152 

Subtrahiert $0152 von $2000 und gibt das Ergebnis aus. 


$ 

Umrechnung vom Hexadezimalsystem ins Dezimalsystem 
Format: $1000 


# 

Umrechnung vom Dezimalsystem ins Hexadezimalsystem 
Format: #4096 

Anmerkung: Fast alle Befehle lassen sich durch das Betätigen der 
RUN/STOP-Taste unterbrechen. 

Wenn Sie das Betriebssystem vom Monitor aus ausgeschaltet 
haben und ein Programm starten» das mit BRK endet, so wird 
sich der Rechner unweigerlich ’aufhängen’. Das gleiche 
geschieht, wenn Sie mit ausgeschaltetem BASIC oder 
Betriebssystem den Monitor mit X verlassen. 

Durch die Möglichkeit, eine beliebige Speicherkonfiguration 
einzustellen, läßt sich auch das Zeichensatz-ROM auslesen, 
kopieren und saven. 
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2.2 Einführung in Assembler 

Wenn Sie über ein anderes Betriebssystem verfügen, zum Bei¬ 
spiel Speeddos, ist es möglich, daß die spezielle LOAD- und 
SAVE-Funktion nicht funktioniert. In diesem Fall müssen Sie in 
das Originalsystem zurückschalten. 

Das Kernstück eines jeden Computers ist der Mikroprozessor, 
der das ausführende Teil des Rechners darstellt. Damit der Pro¬ 
zessor die einzelnen Anweisungen auch ausführen kann, muß 
jeder Befehl zunächst in eine ihm verständliche Sprache, die 
Maschinensprache, umgesetzt werden. Will man zum Beispiel 
BASIC verarbeiten, übernimmt der Interpreter diese Aufgabe. 
Beherrscht man die Maschinensprache, ist es möglich, mit dem 
Prozessor und somit mit dem Rechner direkt zu kommunizieren. 
Dadurch fällt die Arbeit des Interpreters weg, und man kann 
über alle möglichen Funktionen des Rechners verfügen. 

Einer der Hauptunterschiede zum BASIC ist, daß man in 
Maschinensprache sehr speicherorientiert arbeitet. Es gibt keine 
eigentlichen Zeilennummern, da die Programme direkt in 
bestimmte Speicherbereiche gelegt werden. Sie erinnern sich 
bestimmt daran, daß die BASIC-Programme immer ab $0801 
(2049) beginnen. Günstig ist es, seine Maschinenprogramme ab 
$C000 (49152) zu schreiben, da sie dort nicht von BASIC-Pro- 
grammen oder Variablen überschrieben werden können. Welche 
weiteren Speicherbereiche außerdem nach zur Verfügung stehen, 
entnehmen Sie bitte den Speicherbelegungsplänen. Nun aber zur 
Programmierung selbst. 

Der Prozessor des C64 verfügt über eine bestimmte Anzahl 
genau definierter Befehle, vergleichbar den BASIC-Befehlen. 
Dreh- und Angelpunkt der ganzen Programmierung sind drei 
Register, das X-Register, das Y-Register und der Akku, ln diese 
Register kann je eine Zahl geladen werden, die zwischen 0 und 
255 liegt, da jedes Register nur ein Byte auf nehmen kann. 
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Befehl 

Funktion 

in BASIC 

LOA «SOS 

lädt die hexsd. Zahl 

SOS in den Akku 

A • 8 

LOX «$41 

lädt die hexad. Zahl 

S41 (65) in das X-Reg. 

X > 65 

LOY «SOO 

lädt die Zahl SO in 

das Y'Register 

V • 0 


Die beiden ersten Buchstaben des Befehls, LD. stehen für LoaD, 
was übersetzt 'Laden' heißt. Der danach folgende Buchstabe gibt 
das Register an, in das der Wert geladen werden soll. Das nun 
folgende #-Zeichen zeigt an, daß ein absoluter Wert geladen 
werden soll, also eine bestimmte Zahl. Eine andere Möglichkeit 
ist es, einen Wert direkt aus einer Speicherzelle zu holen. Dann 
wird das #-Zeichen hinter dem Befehl weggelassen. 


Befehl 

Funktion 

in BASIC 


LOA S1000 

lädt den Wert aus 

Speicherzelle S1000 
(4096) in den Akku 

A > PEEK 

(4096) 

LOX S02 

lädt den Wert aus 

Zelle S02 in das 

X'Register 

X > PEEK 

(2) 

LOY SCOOO 

lädt den Wert aus 

SCOOO (49152) in 
das Y-Register 

Y s PEEK 

(49152) 


Die Ladebefehle benötigen zwei bis drei Bytes des Speichers, je 
nachdem um welche Adressierungsart es sich handelt. 

Entsprechend gibt es auch Befehle, die es ermöglichen, den Wert 
eines Registers wieder in eine bestimmte Speicherzelle abzu¬ 
legen. Die Befehle lauten: 
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Befehl Funktion in BASIC 

STA S1000 speichert den Akkuin- POKE 4096.A 

halt nach S1000 (4096) 

STX S02 speichert X-Register POKE 2,X 

nach S02 

STV SCOOO speichert r-Register POKE 49152,V 

nach SCOOO (49152) 


Damit können wir schon das erste kleine Programm in 
Maschinensprache schreiben. Es soll lediglich die Buchstaben¬ 
folge ABC auf die linke obere Ecke des Bildschirms bringen. 
Die Startadresse haben wir auf SCOOO gelegt. Das Programm 
muß also mit SYS 49152 aufgerufen werden. 


COOO LOA #S01 
C002 LDX Ilft02 
C004 LOY »03 
C006 STA S0400 
C009 STX S0401 
COOB STY S0402 
COOE RTS 


; Bildschimcode für A in Akku laden 
; Bi Idschirnicode für B in X-Register laden 
; Bi Idschirnicode für C in Y-Register laden 
; Akkuinhalt nach S0400 (1024) (Bildschirm) 
: X-Inhalt nach S0401 (1025) 

; Y-Inhalt nach S0402 (1026) 

; Rücksprung ins BASIC 


Der Befehl RTS am Programmende zeigt an, daß das Programm 
zu Ende ist und zurückgesprungen werden soll. Wurde das Pro¬ 
gramm vom BASIC aus aufgerufen, so wird auch ins BASIC 
zurück verzweigt. 

Es gibt noch andere Möglichkeiten, aus verschiedenen Speicher¬ 
zellen Werte zu lesen oder zu schreiben. Zum Beispiel gibt es die 
indizierte Adressierung, die folgendes Format hat: 

LDA SADRESSE.X 
bzH. STA SADRESSE.X 

Dabei wird der Wert aus der Speicherzelle geladen, die sich aus 
der angegebenen Adresse und dem dazuaddierten X-Register 
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ergibt. Das Abspeichern eines Bytes geschieht ebenfalls durch 
Addieren des Registers zu der Adresse. Natürlich besteht die 
Möglichkeit der indizierten Adressierung auch bei den anderen 
Registern. Die Befehle entnehmen Sie bitte aus der Tabelle am 
Ende des Kapitels. 

Weiterhin existiert noch die indirekte, indizierte Adressierung, 
die sich nur mit dem Akku durchführen läßt und sich auf eine 
Zeropageadresse bezieht. 

lOA (SZEROPAGEADRESSE.X) 
bzw. LDA (S2ER0PAGEADRESSE},V 

Im erstem Beispiel wird der Inhalt des X-Registers zur 
Zeropageadresse addiert. Das Ergebniss dieser Addition ist eine 
neue Adresse in der Zeropage. In dieser Ergebnisadresse steht 
schließlich im Low/High-Byte-Format die Adresse, auf die sich 
der LDA-Befehl dann bezieht. 

Im zweiten Beispiel steht die Adresse, ab der das Low- und das 
Highbyte abgespeichert werden, wieder in der Zeropage. Zu der 
sich daraus ergebenden Adresse wird nun der Inhalt des Y- 
Registers hinzuaddiert, um die endgültige Adresse zu bekom¬ 
men. 

Das X-Register und das Y-Register können durch Ein-Byte-Be- 
fehle jeweils um eins erhöht beziehugsweise erniedrigt werden, 
was beim Akku nicht möglich ist. Außerdem können auch 
bestimmte Speicherzellen erhöht beziehungsweise erniedrigt wer¬ 
den. Die Befehle dafür lauten; 


INX ; Erhöht X-Register in 1 

OEX ; Erniedrigt X-Register in 1 

IHY ; Erhöht Y-Register um t 

OEt ; Erniedrigt Y-Register um 1 

INC SAORESSE ; Erhöht den Inhalt der Adresse in 1 

DEC (ADRESSE ; Erniedrigt den Inhalt der Adresse um 1 
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Der letzte Teil unserer Einführung in Assembler soll sich mit 
den Statusregistern und den Verzweigungen befassen. 

Es existieren acht Statusregister, von denen aber nur sieben 
benutzt werden. Diese Statusregister können entweder vom 
Programmierer gesetzt werden ,oder sie werden automatisch 
gesetzt, wenn bestimmte Bedingungen erfüllt sind. 

CARRY - FLAG 
ZERO-FLAG 
INTERRUPT-FLAG 
DEZIMAL - FLAG 
BREAK-FLAG 
( UNBENUTZT ) 
OVERFLOW-FLAG 
NEGATIV- FLAG 

Abb. 2.3.1: Die SUtueretiiter 

Carry-Flag Wird gesetzt, wenn bei einer Operation ein 
Übertrag entstanden ist. 

Zero-Flag Wird gesetzt, wenn das Ergebnis der letzten 
Operation gleich 0 war. 

Interrupt-Flag Bei gesetztem Flag wird der Interrupt verhin¬ 
dert. 

Dezimal-Flag Bei gesetztem Flag werden alle Rechnungen im 
Dezimalmodus ausgeführt. 
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Break-Flag Wird nach einem Break, also einer Unterbre¬ 
chung des Programms gesetzt. 

Overflow-Flag Wird bei einem Vorzeichenüberlauf gesetzt. 
Negativ-Flag Wird gesetzt, wenn das Ergebnis der letzten 
Operation negativ war. 


Je nach Zustand der Flags können mit den sogenannten Branch- 
Befehlen Verzweigungen durchgeführt werden. Diese Befehle 
geben die Bedingung an, die für eine Verzweigung erfüllt sein 
muß. Nach dem Befehl folgt die Zieladresse des Sprungs. Dieser 
Sprung darf maximal 127 Bytes nach vorne oder nach hinten im 
Speicher erfolgen. 


BCC 

C 

= 

0 Verzweigung 

BCS 

C 

= 

1 Verzweigung 

BEQ 

z 

s 

1 Verzweigung 

BNE 

z 

= 

0 Verzweigung 

BMI 

N 

s 

1 Verzweigung 

BPL 

N 

= 

0 Verzweigung 

BVC 

V 

s 

0 Verzweigung 

BVS 

V 

= 

1 Verzweigung 


bei gelöschtem Carry-Flag 
bei gesetztem Carry-Flag 
bei gesetztem Zero-Flag 
bei gelöschtem Zero-Flag 
bei gesetztem Negativ-Flag 
bei gelöschtem Negativ-Flag 
bei gelöschtem Overflow-Flag 
bei gesetztem Overflow-Flag 


Um die besprochenen Befehle noch einmal in einem Programm 
zusammenzufassen, haben wir ein kleines Programm geschrieben, 
das den Zeichensatz auf den Bildschirm bringt. Auch dieses Pro¬ 
gramm beginnt wieder ab der Adresse SCOOO (49IS2). 


COOO LDX mo 
C002 TXA 
C003 STA $0400,X 
C006 INX 
C007 BHE $C002 
C009 RTS 


lädt X-Register mit dem Uert $00 
Inhalt von X nach Akku bringen 
schreibt X-Wert in Bildschirmsp; ($400) 
erhöht X-Uert um 1 

X-Uert schon 0 ($FF'*-1), wenn nicht $C002 
ROcksprurig 
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LDY- 


Y - Register 


Stapel 

PHA| 

PLA 

_£__| 

I Akkumuli 

I-T-—— i 

atorl 


PHP 


TXA 


X - Register 


PLP 


TXS 


STV 


LOA 


STA 


I.OX 


8TX 


Speicher 


1 TSK 


Stapelzeiger 


Statusregister 


Abb. 2.2.2; Die Venchicbcmöglichkeiten 


2.3 Die Assemblerbefehle 

Die Befehle sind in verschiedene Anwendungsgebiete unterteilt, 
wobei einige Befehle verschiedene Verwendunsmöglichkeiten 
bieten. Die verschiedenen Möglichkeiten sind mit ihrem jeweili¬ 
gen Hexcode und einem Beispiel aufgeführt. 


Transportbefehle: 

LDA: A9 LDA #SF7 Akku wird inlt absoLutoa Uert geladen 

AD LDA StFOO Akku wird mit Wert aus Adr. geladen 

AS LDA SfE Akku wird mit Wert aus ZP-Adr. geladen 

AI LDA ($1F,X) Akku wird indiziert, indirekt geladen 
Bl LDA (S1F>,Y Akku wird indirekt, indiziert geladen 
B5 LDA S2A,X Akku wird mit ZP-Adr. indizierter gel. 

69 LOA SZOOOjV Akku wird mit Adr. indiziert gel. (Y) 
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BO 

LOA 

$2000,X 

LDX: 

A3 

LOX 

«F7 


AE 

LOX 

StFOO 


A6 

LOX 

S1F 


B6 

LOX 

$1F,Y 


BE 

LDX 

SIFOD.V 

LDY: 

AO 

LOT 

nF7 


AC 

LDY 

S1FOO 


AA 

LOY 

$FE 


BA 

LOY 

$AE,X 


BC 

LOY 

$1300.X 

STA: 

80 

STA 

SOAOO 


85 

STA 

$01 


81 

STA 

{$1F,X) 


91 

STA 

($1F>,Y 


95 

STA 

$12,X 


99 

STA 

$0800,Y 


90 

STA 

$0800,X 

STX: 

BE 

STX 

SOAOO 


86 

STX 

$01 


96 

STX 

SIF.Y 

STY: 

BC 

STY 

o 

o 

o 


8A 

STY 

$3A 


9A 

STY 

$1F,X 

TAX: 

AA 

TAX 


TAY: 

AB 

lAY 


TSX: 

BA 

TSX 


TXA: 

BA 

TXA 


TYA: 

9B 

TYA 


TXS: 

9A 

TXS 


PHA: 

AB 

PHA 


PLA: 

6B 

PLA 


PHP: 

08 

PHP 


PLP: 

2B 

PLP 



Akku wird mit Adr. indiziert gel. (X) 
X-Rg. wird mit absolutem Uert geladen 
X-Rg. wird mit Wert aus Adr. geladen 
X-Rg. wird mit Wert aus ZP-Adr geladen 
X-Rg. n. Wert aus ZP-Adr. indiziert g. 
X-Rg. mit Wert aus Adr. indiziert gel. 
Y-Rg. wird mit absolutem Uert geladen 
Y-Rg. wird mit Uert aus Adr. geladen 
Y-Rg. mit Wert aus ZP-Adr. geladen 
Y-Rg. m. Uert aus ZP-Adr. indiziert g. 
Y-Rg. mit Wert aus Adr. indiziert gel. 
Akku nach Adr. speichern 
Akku nach ZP-Adr. speichern 
Akku wird indiziert, indirekt gespei. 
Akku wird indirekt, indiziert gespei. 
Akku wird mit ZP-Adr. indiziert gesp. 
Akku wird mit Adr. indiziert ge. (V) 
Akku wird mit Adr. indiziert ge. (X) 
X-Rg. nach Adr. speichern 
X-Rg. nach ZP-Adr. speichern 
X-Rg. wird mit ZP-Adr. indiziert gesp. 
Y-Rg. nach Adr. speichern 
Y-Rg. nach ZP-Adr. speichern 
Y-Rg. wird mit ZP-Adr. indiziert gesp. 
Inhalt von Akku ins X-Rg. 

Inhalt von Akku ins Y-Rg. 

Stapelzeiger wird ins X-Rg. geladen 
Inhalt von X-Rg. nach Akku 
Inhalt von Y-Rg. nach Akku 
Inhalt von X-Rg. in den Stapelzeiger 
Akku wird in den Stapel geschoben 
Akku wird vom Stapel geholt 
Statusregister auf Stapel 
Statusregister von Stapel 
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Logische Befehle: 

AND: 29 AND ME4 abs. Wert mit Akku AND-verknüpft 

2D AND S0300 Akku und Wert aus Adr. AND-verknüpft 

25 AND $30 Akku und Wert aus ZP-Adr. AND 

21 AND ($30,X) Akku und Wert (indiziert, indir.) AND 

31 AND ($39),Y Akku und Wert (iodir,indiziert) AND 

35 AND $35.X Akku und ZP-Wert (X-irdiziert) AND 
30 AND $0350,X Akku und Wert (X-indiziert) AND 
39 AND $0350,Y Akku und Wert (V-indiziert) AND 

EOR: 49 EOR MEA abs. Wert mit Akku EOR-verkrupft 

4D EOR $1300 Akku und Wert aus Adr. EOR-verknOpft 

45 EOR $30 Akku und Wert aus ZP-Adr. EOR 

41 EOR (S30,X) Akku und Wert (indiziert, indir.) EOR 

51 EOR ($39),Y Akku und Wert (indir,indiziert) EOR 
55 EOR $35,X Akku und ZP-Wert (X-indiziert) EOR 

5D EOR $0350,X Akku und Wert (X-indiziert) EOR 

59 EOR $0350.Y Akku und Wert (V-indiziert) EOR 

ORA: 09 ORA iV$E4 abs. Wert mit Akku ORA-verknüpft 

00 ORA $1300 Akku und Wert aus Adr. ORA-verknüpft 

05 DRA $30 Akku und Wert aus ZP-Adr. ORA 

01 DRA ($30,X) Akku und Wert (indiziert, indir.) ORA 

11 DRA ($39),Y Akku und Wert (indir,indiziert) ORA 
15 DRA $35,X Akku und ZP-Wert (X-indiziert) ORA 

10 ORA $0350.X Akku und Wert (X-indiziert) ORA 
19 DRA $0350,Y Akku izid Wert (V*indiziert) ORA 


Arithmetische Befehle: 

ADC: 69 ADC #$77 abs. Wert wird zu Akkuinhalt addiert 

60 ADC $1000 Wert aus Adr. wird zu Akku addiert 

65 ADC $10 Wert aus ZP-Adr. Mird zu Akku addiert 

61 ADC ($19,X) Wert (indiziert, indir.) zu Akku 
71 ADC ($19),Y Wert (indir,indiziert) zu Akku 
75 ADC $19.X ZP'Wert (X-indiziert) zu Akku 

7D ADC $1900,X Wert (X-indiziert) zu Akku 
79 ADC $1900,Y Wert (Y-indiziert) zu Akku 
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SBC: E9 SBC #$77 
ED SBC $1000 
ES SBC $10 
El SBC ($19,X) 
M SBC (S19>.Y 
FS SBC $19.X 
FD SBC $1900,X 
F9 SBC S1900,Y 
DEC: CE DEC $1000 
C6 DEC $10 
D6 DEC $10,X 
OE DEC $2000,X 
DEX: CA DEX 
DEY: 88 DEY 
INC: EE INC $1000 
E6 INC $EO 
F6 INC $55.X 
FE INC $0300,X 
INX: E8 INX 
INY: C8 INY 

Schiebebefehle: 

ASL: OA ASL 

OE ASL $1000 
06 ASL $10 
16 ASL S10,X 
IE ASL $3000,X 
LSR: 6A LSR 

4E LSR $1000 
46 LSR $10 
56 LSR $10,X 
5E LSR $3000.X 
ROL: 2A ROL 

2E ROL $1000 
26 ROL $10 


abs. Wert wird von Akkulnh. abgezogen 
Wert aus Adr. wird von Akku abgezogen 
Wert aus ZP-Adr. wird von Akku abgez. 
Wert (indiziert. Indirekt) von Akku 
Wert (indirekt. Indiziert) von Akku 
ZP-Uert (X-indiziert) von Akku 
Wert (X-indlziert) von Akku 
Wert (Y-Iridiziert) von Akku 
Wert in Adr. wird in 1 verialndert 
Wert in ZP-Adr. laa 1 vermindert 
ZP-Wert (X-indiziert) un 1 verniridert 
Wert (X-indiziert) un 1 vermindert 
Inhalt aus X-Register lir 1 vermindern 
Inhalt aus Y-Register un 1 vermindern 
Wert in Adr. wird un 1 erhöhen 
Wert in ZP-Adr. un 1 erhöhen 
ZP-Wert (X-indiziert) lir 1 erhöhen 
Wert (X-indiziert) lir 1 erhöhen 
Inhalt aus X-Register lir 1 erhöhen 
Inhalt aus Y-Register ur 1 erhöhen 


Akkubits lir 1 nach links verschieben 
Bit 7 kaant ins Carry, Bit 0 ■ 0 
ASL mit Wert in Adr. 

ASL mit Wert in ZP-Adr. 

ASL mit Wert in ZP-Adr. (X-indiziert) 

ASL mit Wert aus Adr. (X-indiziert) 
Akkubits lir 1 nach rechts verschieben 
Bit 0 komt ins Carry, Bit 7 « 0 
LSR mit Wert in Adr. 

LSR mit Wert in ZP-Adr. 

LSR mit Wert in ZP-Adr. (X-indiziert) 

LSR mit Wert aus Adr. (X-indiziert) 
Akkubits un 1 nach links verschieben 
Bit 7 kofliRt ins Carry, Carry nach BitO 
ROL mit Wert in Adr. 

ROL mit Wert in ZP-Adr. 
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36 liOL S10,X ROL mit Wert in ZP<Adr. (X-indiziert) 

3E ROL tSOOO.X ROL mit Wert aus Adr. (X-iiwliziert) 

ROR: 6A ROR Akkubits ui 1 nach rechts verschieben 

Bit 0 könnt ins Carry, Carry nach Bit7 
6E ROR $1000 ROR mit Wert in Adr. 

66 ROR $10 ROR mit Wert in 2P-Adr. 

76 ROR $10,X ROR mit Wert in 2P*Adr. (X-indiziert) 

7E ROR $3000,X ROR mit Wert aus Adr. <X-indiziert) 

Vergleichsbefehle: 

CHP: C9 CHP A$10 Akku wird mit Wert verglichen (A • U) 

(Es werden nur die Flags beeinfluBt) 

CD CHP $1000 Wert aus Adr. mit Akku vergleichen 
CS CHP $10 Wert aus ZP-Adr. mit Akku vergleichen 
CI CHP (02,X) Adr.(indiz., indir.) mit Akku vergleichen 
Dl CHP ($02),T Adr.(Indiz., indir.) mit Akku vergleichen 
DS CHP $10,X W. aus ZP-Adr.(X-indiz.) mit Akku vergleichen 
DO CHP $1000,X Wert aus Adr. (X-indiz.) mit Aku vergleichen 
09 CHP $1000,T Wert aus Adr. (Y-indiz.) mit Akku vergleichen 
CPX: EO CPX ||I$10 X*Reg. wird mit Wert verglichen (Y-W) 

(Es werden nur die Flags beeinfluBt) 

EC CPX $1000 Wert aus Adr. mit X-Reg. vergleichen 
E4 CPX $10 gert aus ZP-Adr. mit X-Reg. vergleichen 

CPY: CO CPY #$10 Y'Reg. wird mit Wert verglichen (Y-U) 

(Es werden nur die Flags beeinflußt) 

CC CPY $1000 Wert aus Adr. mit Y*Reg. vergleichen 
C4 CPY $10 Wert aus ZP-Adr. mit Y*Reg. vergleichen 
BIT: 2C BIT $2000 Wert aus Adr. mit Akku AHO 

(Es werden nur die Flags 6 u.7 beei.) 

24 BIT $20 Wert aus ZP-Adr. mit Akku AHD 


Verzweigungsbefehle: 

BCC: 90 BCC $1FO0 Verzweigt, wenn Carryflag * 0 ist 
BCS: BO BC8 $1F00 Verzweigt, wenn Carryflag - 1 (st 
BEQ: PO BEQ $1000 Verzweigt, wenn Zeroflag = 1 ist 
BNE: OO BNE $1000 Verzweigt, wenn Zeroflag = 0 ist 
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BMl! 30 BMI S1000 
BPL: 10 BPL S1000 
BVC: 50 BVC S1000 
BVS: 70 BVS S1000 
JHP: 4C JHP S1000 
6C JHP (S0300> 
JSR: 20 JSR SFF05 
RTS: 60 RTS 
RTl: 40 RTl 


Verzweigt, wenn Neagtivflag * 1 
Verzweigt, wenn Negativflag s 0 
Verzweigt wenn OverfLowflag • 0 
Verzweigt wenn Overflowflag * 1 
Sprung zur Adr. 

Sprung zur Zieladr. die in Adr. 
Ruft UnterprogrBMn auf 
Rücksprung von Unterroutine 
Rückspria^ von Interruptroutine 


ist 

ist 

ist 

ist 

steht 


Statusregisterbefehle: 


SEC: 38 SEC 
CLC: 18 CLC 
SED: P8 SED 
CLO: D8 CLD 
SEI: 78 SEI 
CLl: 58 CLl 
CIV: B8 CLV 


Carryflag wird gesetzt 
Carryflag wird gelöscht 
Dezimalflag wird gesetzt 
Dezimalflag wird gelöscht 
Interruptflag wird gesetzt 
Interruptflag wird gelöscht 
Overflowflag wird gelöscht 


Sonstige Befehle: 


BRK: 00 BRK 
NOP: EA NOP 


Bricht Prograim ab 
keine Funktion 
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S AIS ABS ZP ZP 2P (,X) ( ).V REL IHD AKKU IMPL 

■ X .Y_.K .Y 


CPX 

CPY 

BIT 

BCC 

BCS 

BEO 

BNE 

BMI 

BPL 

BVC 

BVS 

JMP 

JSR 

ASL 

LSR 

ROL 

ROR 

CLC 

CLD 

2 

£C 

4 



£4 

a 












CO 2 

C C 

4 



C4 

3 















2C 

4 




24 

3 
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00 7 



I.Zahl = opeea« 

l.zakl - Taktiyklta Rt« SkfaM 

(• < ka< Baralckaikkrtchrkltuiif 1 Taklf|rklii< makr > 
( All* BRANCH - Bal*kl* -f 1 Taklzykl», ar«<M 
BaBlnBUkB ZBtrirn > 
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2.4 Die Illegal'Codes 

Wenn Sie schon etwas öfter in Maschinensprache programmiert 
haben, wird Ihnen beim Disassemblieren einiger Speicher¬ 
bereiche bestimmt schon aufgefallen sein, daß dabei nicht nur 
Assemblerbefehle auf den Bildschirm gebracht werden. Ab und 
zu mogeln sich auch drei Fragezeichen zwischen die Befehle, 
was dann folgendermaßen aussehen kann: 

12F0 LDA SOasO 
12F3 ??? 

12F4 INX 

Diese 'Fragezeichen-Phänomen' kann beim ersten Betrachten 
eine leichte Verwirrung stiften, läßt sich aber relativ einfach 
erklären: Ein Assemblerbefehl kann zwar aus mehreren Bytes 
bestehen, so benötigt zum Beispiel LDA #S40 zwei Bytes, der 
eigentliche Befehl, also LDA, besteht aber immer nur aus einem 
Ein-Byte-Codewert. Beim Disassemblieren wird dieser 
Codewert, hier A9, gelesen und der entsprechende Befehl auf 
den Bildschirm gebracht. 

Mit einem Byte ließen sich also theoretisch 256 verschiedene 
Befehle definieren. Da die Anzahl der Befehle wesentlich kleiner 
ist, bleiben einige Codewerte unbenutzt, also auch Undefiniert. 
Man spricht hier von Undefinierten Operationscodes oder von 
illegalen Opcodes. 

Beim Versuch, diese Opcodes zu disassemblieren, wird kein ent¬ 
sprechender Befehl gefunden und stattdessen nur drei Frage¬ 
zeichen auf den Bildschirm gebracht. 

Daß die illegalen Opcodes in der offiziellen Programmierung der 
6510 Maschinensprache keine Verwendung finden, heißt aber 
nicht, daß sie keine Funktionen erfüllen. Vielmehr ist hier das 
Gegenteil der Fall, was Tab. 2.4.1 zeigt. Hier ist die erste der 
drei Gruppen, in die sich die illegalen Opcodes aufteilen lassen, 
abgebildet. Trifft der Prozessor auf diese Opcodes, stürtzt der 
Rechner ab, oder sie werden einfach überlesen, ohne eine 
Funktion auszuführen, wie es von dem Opcode EA (NOP) her 
bekannt ist. 
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Illegal Codes [ 

^ 6 ' 1 

Ab - 
«turz 

NOP 

1 Byte 

NOP 

2 Byte 

NOP 

3 Byte 

02 

12 

22 

32 

42 

52 

62 

72 

92 

B2 

D2 

F2 

1 A* 
3A^ 
5A^ 
7A^j 
DA^ 
FA^ 

04' 
14^ 
34 ^ 
44? 
64“ 
64 ^ 
74“ 
80 2 
82 2 
89^ 
C2' 
D4^ 
E2" 
F4^ 

OC^ 

1C^" 

3Ci’ 

6Cy 

7Cf 

DC^ 

FCs 


Abb. 2.4.1; Die erste Gruppe der Illefal-Codes 


Die zweite Gruppe verbindet jeweils zwei bekannte Opcodes 
miteinander. Hierbei können alle Adressierungsarten verwendet 
werden, die von dem Befehl STA her bekannt sind. 
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Abb. 2.4.2: Di« «weit« Grupp« d«r IU«sgkl-Cod«» 
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ILLEGAL-CODES 

t 

OB 

MM 


AND MM und bringt Nngntivfing ln» Cnriy 

t 

2B 

MM 


Wl» OB MM 

t 

4B 

MM 


AND AMM : LSR 

t 

tB 

MM 


w«nn Dazimal = 0: AND <FMM : ROR: auttardam Kommt Bit 0 





de» AKkui In» Carry und Bit 5 EOR mit Bit 8 In» Overflow 

i 

19 

MM 


Akku AND mit X-Raglilar kommt nach (MM.X) 

ß 

t7 

MM 


Akku AND mit X- Ragldar kommt nach MM 


le 

MM 


TXA : AND #MM 

i 

8F 

MM 

NN 

Akku AND mit X-Raglilar kommt nach NNMM 

i 

S3 

MM 


AND zwischen Akku, X - Register und die Summa aus 1 und 





MM-^1 kommt nach (MM),y 


tr 

MM 


Akku AND X-Ragisiar kommt nach MM,X 


•B 

MM 

NN 

Akku AND mit X - Raglster In Slapelzalgar, dann Slapalzalger 





AND ANN-fl nach NNMM,Y 

T »c 

MM 

NN 

y -Raglstar AND mli ANN-< 1 nach NNMm.X 

f 

»E 

MM 

Nrj 

X - Register AND mit ANN -f 1 nach NNMM,Y 

< 

•F 

MM 

NN 

AND zwischen Akku. X-R«giatar, »NN-t-f nach NNMM.Y 

t 

A9 

MM 


LDA (MM.X) : TAX 

; 

Ar 

MM 


LDA MM : TAX 

r. 

AF 

MM 

NN 

LOA NNMM : TAX 

t 

B3 

MM 


LDA (MM),V : TAX 

4. 

Br 

MM 


LOA MM.Y : TAX 

r 

BB 

MM NN 

NNMM.Y AND mit Stapelzeiger int X-Regl»tar. dann TX$:TXA 

r 

BF 

MM 

NN 

LOA NNMM.y ; TAX 

1 

CB 

MM 


Akku AND mit X- Register In« X-Ragistar, dann X-Ragi*tar 





mlnut #MM (ohne Carry) 

i 

EB 

MM 


SBC AMM 


Abb. 8.4.3: lllagala 
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Hexcode 

TeklzyKlen 

Mexcode 

Taklzyklen 

04 

3 


7A 

2 

OC 

4 


7C 

$ 

1 4 

4 


80 

2 

1A 

2 


82 

2 

1 C 

$ 


89 

2 

34 

4 


C2 

2 

3A 

2 


04 

4 

3 C 

$ 


DA 

2 

44 

3 


DC 

$ 

54 

4 


E2 

2 

5A 

2 


F4 

4 

$C 

$ 


FA 

2 

64 

3 


FC 

$ 

74 

4 




03 

8 


63 

8 

07 

$ 


6 7 

$ 

OF 

6 


6F 

6 

1 3 

8 


7 3 

8 

1 7 

6 


7 7 

6 

1 B 

7 


7B 

7 

1 F 

7 


7F 

7 

2 3 

8 


C3 

8 

2 7 

$ 


C7 

5 

2F 

6 


CF 

6 

3 3 

8 


03 

6 

3 7 

8 


07 

6 

3B 

7 


DB 

7 

3F 

7 


DF 

7 

4 3 

8 


E3 

8 

47 

$ 


E7 

$ 

4F 

6 


EF 

6 

$3 

8 


F3 

8 

$7 

6 


F7 

6 

5B 

7 


FB 

7 

5F 

7 


FF 

7 

OB 

2 


9E 

$ 

2B 

2 


9F 

$ 

4B 

2 


A3 

6 

6B 

2 


A7 

3 

83 

6 


AF 

4 

87 

3 


B3 

5 

8B 

2 


B7 

4 

8F 

2 


BB 

S 

93 

6 


BF 

S 

97 

4 


CB 

2 

9B 

$ 


EB 

2 

9C 

$ 





Abb. 2.4.4: Z«itt»belle 
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Die Befehle der dritten Gruppe lassen sich durch bekannte 
Opcodes nur sehr schwer ersetzen. Sie führen, wie die Befehle 
der zweiten Gruppe auch, zwei oder mehr Befehle auf einmal 
aus. Da es sich dabei zumeist um recht komplexe Operationen 
handelt, ist der Einsatzbereich ziemlich begrenzt. Es sei hier 
noch erwähnt, daß die illegalen Opcodes nur unbeabsichtigte 
Nebenprodukte des eigentlichen Befehlssatzes sind, und aus die¬ 
sem Grund auch nicht bei jedem Computer die gleiche Wirkung 
erzielen. 


2.5 Die Monitorbefehle 

Die hier aufgeführten Befehle beziehen sich auf den allgemeinen 
Standard bei Maschinensprachemonitoren beziehungsweise bei 
Disassemblern. 


Befehl Format Erklärung 


A 


B 


C 


n 

F 

G 


A 1»08 

B 1000 1F00 


C 1000 2000 COOO 


0 1000 2000 


Ab der Adresse $1000 karvi ein 
Asseeblerprogramn abgelegt werden 
(ohne Labels, etc.) 

Der Adressbereich von S1000 bis 
S1F00 wird aCs Binärcode aufge¬ 
listet. ( kann als Spritecditor und 
fUr logische Verknüpfungen benutzt 
werdm 3 

Vergleicht den Speicherinhalt von 
S1000 bis $2000 mit dem ab SCOOO 
( $C000-$D00O>. Es werden die Adr. 
der Bytes angezeigt, die nicht 
identisch sird. 

Disassenblfert deo Speicherinhalt 
von $1000 bis $2000 


F 1000 2000 00 Füllt den Speicherbereich von $1000 
bis $2000 mit dem Folgebyte auf 
( hier mit $00, also BRK) 

G 1000 Startet ein Nasch!nenprogrann ab 

$1000 (4096). Entspricht den BASIC- 
direktbafehl SYS 4096 
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H K 1000 2000 A9 20 Duchsucht den Bereich von $1000 bis 
$2000 nach den Folgebytes (hier 
nach A9 20, also LOA B$20} 

I I 1000 2000 Zeigt den Bereich von $1000 bis 
$2000 als ASCII-Codes an 

L L"NAME",06 Ladt das Progranm ''NAHE'' nach, (hier 

von Diskette, da ,08} 

M M 1000 2000 Zeigt den Speicherbereich von $1000 
bis $2000 als Kexcodes an. (Bei 
einigen Monitoren werden die ASCII 
Codes mit angezeigt) 

H N 1000 2000 3000 Kopiert den Adressbereich von 

$1000 bis $2000 in den Bereich von 
$3000 bis $4000 (Sämtliche Be¬ 
fehle, die sich auf den alten Be¬ 
reich beziehen, werden dem neuen 
Bereich angepaßt) 

P P Legt die Ausgabe von Bildschirm auf 

den Drucker um 

R R Zeigt die Registerinhalte (Flags) 

S S "NAME",08,1000, Speichert den Bereich von $1000 

2000 bis $2000 als "NAHE" ab. (hier auf 

Diskette, da ■ ,06'} 

T T 1000 2000 3000 Kopiert den Adreßbereich von $1000 

bis $2000 in den Bereich ab $3000 
( von $3000 bis $4000) 

X X Rücksprung ins BASIC 

§ # 1000 Die angegebene dezimale Zahl wird 

in eine Hexadezimalzahl ingerechnet 

$ $ 1FF0 Die angegebene hexadezimale Zahl 

( muß vierstellig sein ), wird in eine 
Dezimalzahl ungerechnet 

X X 10010010 Die angegebene, binäre Zahl wird in 

eine Dezimalzahl ungerechnet 

Hier sind die oben aufgeführten Befehle noch einmal in Kurz¬ 
form zusammengefaßt. 
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DIE MONITORBEFEHLE 



BEREICHE VERGLEICHEN 

D 

BEREICHE DISASSEMBLIEREN 

F 

BEREICH FUELLEN 

G 

- -J 

PROGRAMM STARTEN 

H 


L 

PROGRAMM LADEN 

M 


R 

STATUSREGISTER ANZEIGEN 

S 

PROGRAMM ABSPEICHERN 

T 

BEREICHE VERSCHIEBEN 

X 


# 


$ 

UMRECHNUNG VON HEXADEZIMAL NACH DEZIMAL 

+ 

ADDITION VON HEXADEZIMALZAHLEN 

- 

SUBTRAKTION VON HEXADEZIMALZAHLEN 


Abb. 2.5.1; AUgemnne Monitorbefehl« 
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3. Die Grafik und ihre Programmierung 

3.1 Der Video Interface Chip (VIC) 

Die Grafikmöglichkeiten des 064* hochauflösende Grafik, Spri¬ 
tes, Farbe und der Textbildschirm, werden vom VIC gesteuert. 
In den folgenden Seiten werden wir auf die einzelnen Eigen¬ 
schaften des VIC eingehen. 

Doch zunächst ein allgemeiner Hinweis auf die Struktur des 
VIC, der unbedingt berücksichtigt werden muß. Der VIC bean¬ 
sprucht 16 kByte des von der CPU adressierbaren Bereichs, der 
insgesamt 64 kByte beträgt. Nach dem Einschalten des Com¬ 
puters liegt dieser Bereich von $0000 bis S3FFF. 


Der VIC verwaltet: 

- Video-RAM (Bildschirmspeicher) 

- Farbspeicher 

- Zeichengenerator 

- Grafikspeicher 

- Sprites 

Es ist möglich, den Adreßbereich des VIC zu verschieben, 
jedoch nur in 16-KByte Schritten. Daraus ergibt sich, daß sich 
der VIC-Adreßbereich in vier verschiedenen Bereichen befinden 
kann. Diese vier Möglichkeiten sind in der Tabelle auf der 
nächsten Seite auf geführt. Der Bereich wird in der NMI-CIA 2, 
in der Adresse $DD00 (S6576), festgelegt. In dieser Speicherzelle 
sind die beiden Bits 0 und 1 ausschlaggebend. Die Bits sind low- 
aktiv, das heißt, der Computer erkennt sie als gesetzt, wenn sie 
gelöscht sind und umgekehrt. 
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Hier sind die Speicherbereiche tabellarisch aufgeführt; 


Adraasberelch (Hex) 

Adretaberelch (Dez) 

BItmualar 

Werl 

$0000 - 

$3FFF 

0 

1 6383 

1 1 

03 

$4000 - 

$7FFF 

16384 - 

32767 

1 0 

02 

$8000 - 

$BFFF 

32768 - 

49151 

0 1 

Kn 

ICOOO - 

SFFFF 

49152 - 

65535 


■TB 



Abb. 3.1: Speicherbereich« 


Möchten Sie zum Beispiel den Adreßbereich nach S8000 (32768) 
verlegen, dann geben Sie folgende Zeile ein; 

10 POKE S6576, PEEK(56576> AND 2S2 Oft 1: REM iCRT« 01 

Sie werden feststellen, daß der Bildschirm voller ungewöhnlicher 
Zeichen ist und die Eingaben, die Sie über die Tastatur machen, 
nicht erscheinen. Der Grund dafür ist, daß das Betriebssystem 
die eingegebenen Daten immer noch in den Bereich ab S0400 
(1024) hineinschreibt. Um den verschobenen Bereich vollständig 
funktionsfähig zu machen, müssen noch einige andere Register 
berücksichtigt werden, die wir auf den folgenden Seiten erläu¬ 
tern. 


3.2 Das Video-RAM 

Das Video-RAM, auch Bildschirmspeicher genannt, hat zwei 
Aufgaben. Im normalen Modus dient es als Zeichenspeicher, in 
dem die momentan auf dem Bildschirm sichtbaren Zeichen ste¬ 
hen. Die Zeichen werden dort in Bildschirmcodes abgelegt. Die¬ 
ser Code unterscheidet sich vom ASCH-Code. Das Video-RAM 
umfaßt 1024 Zeichen, von denen aber nur 40 mal 2S, also 1000 
Zeichen auf dem Bildschirm erscheinen. Die nächsten 16 Bytes, 
von S07E8 bis $07F7, sind unbenutzt. Die letzten acht Bytes, 
von $07F8 bis S07FF, dienen als Spritezeiger. Im zweiten 
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Modus, dem Grafikmodus, wird das Video-RAM als Farbspei- 
cher für hochauflösende Grafik benutzt. 


Das Verschieben des Video-RAM 

Das Video-RAM kann innerhalb des Adreßbereichs des VIC, im 
Normalfall von $0000 (0) bis S3FFF (16383), ohne großen Auf¬ 
wand verschoben werden. 

Die möglichen Werte können Sie auch hier einer Tabelle ent¬ 
nehmen: 


Adressbereich (H«zi 

P 

Adressbereich fDez) 

Bilmuster 

Wert 

soooo 

- 

$0aE7 

0 

999 

0000 

0 0 

$0400 

- 

$07E7 

1024 - 

2023 

0001 

0 1 

$0800 

- 

$0BE7 

2048 - 

3047 

001 0 

02 

$0C00 

- 

$0FE7 

3072 - 

4071 

0011 

03 

$1000 

- 

$1 3E7 

4096 - 

5095 

0100 

04 

$1400 

- 

$1 7E7 

5120 - 

611 9 

01 01 

0 5 

$1800 

- 

$1 BE7 

6144 - 

7143 

0110 

0 6 

$1C0O 

- 

$1FE7 

7168 - 

8167 

0111 

07 

$2000 

- 

$23E7 

8192 - 

9191 

1000 

08 

$2400 

- 

$27E7 

9216 - 

10215 

1001 

09 

$2800 

- 

$2BE7 

10240 - 

11239 

1010 

1 0 

$2C00 

- 

$2FE7 

11264 - 

1 2263 

1011 

1 1 

$3000 

- 

$33F7 

12288 - 

1 3287 

1100 

1 2 

$3400 

- 

$37E7 

13312 - 

14311 

1101 

1 3 

$3800 

- 

$3BE7 

14336 - 

1S335 

1110 

1 4 

$3COO 

- 

$3FE7 

15360 - 

16359 

1111 

1 5 


Abb. 3.2: 


VIC'AdNHbereiche 
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Dazu ein Beispiel: 

Das Video-RAM wird in unserem Programmbeispie! nach SQCOO 
(3072) verschoben. 


10 POKE 56S76, PEEC (S6S76) AND 252 OR 3 
20 POTE 532^, PEEtr (53272) AI» 15 OR 16*3 (Wert) 

30 POKE 648,3072/256: REH BILDSCNIRMANFANG AUF SOCOO LEGEN 
40 PRINT C)<RS(147} : REM BILDSCHIRM LOSCHEN 


Beachten Sie bitte, daß Sie die Werte nicht direkt in die 
Speicherzellen schreiben können, sondern die Bits im alten Wert 
durch eine logische Verknüpfung ändern müssen. 

In der Adresse $0288 (648) ist der Zeiger immer noch auf den 
alten Anfang des Video-RAM ausgerichtet. Deshalb muß dem 
Computer mitgeteih werden, daß das Vid»o-RAM verschoben 
wurde. Das wird erreicht, indem man in der oben genannten 
Speicherzelle das High-Byte des derzeitigen Video-RAM angibt. 
In unserem Beispiel wäre das der Wert $0C (12). Wenn Sie aber 
das Video-RAM, über die 16 kByte hinaus verschieben wollen, 
so muß der ganze Adreßbereich mitverschoben werden. 

10 POKE 56576, PEEK (56576) AND 252 OR 1 

Damit wird der Adreßbereich des VIC nach $8000 (32768) ver¬ 
schoben. Danach müssen Sie aber noch den Standort des Video- 
RAMs an den Adreßbereich anpassen. Sie brauchen nur zu der 
Startadresse der VIC-Bank die Startadresse des Video-RAM, die 
Sie der Tabelle entnehmen können, hinzuzuaddieren. In unserem 
Beispiel wäre das $8000 (32768) plus $0C00 (3072) = $8C00 
(35840). Das High-Byte des Standorts, hier ist es $8C (140), 
müssen Sie wieder in die Speicherzelle $0288 (648) schreiben. 

Das Programm sieht dann folgendermaßen aus: 


10 POKE 56576. PEEK(S6576) AND 252 OR 1 
20 POKE 53272, PEEK(53272) AND 15 OR 16 * 3 
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30 POKE 643, 35840/253 

40 PRINT CHRS(147) : REM SILDSCHIRM LÖSCHEN 

Wenn Sie das Video-RAM zur Übung in einige Bereiche ver¬ 
schoben haben, werden Sie vielleicht festgestellt haben, daß Sie 
es in den Bereich von $1000 (4096) bis $1FFF (8191) und von 
$9000 (36864) bis $9FFF (40959) nicht verschieben können. Das 
liegt daran, daß in diesem Bereich das für den VIC zur Verfü¬ 
gung gestellte Zeichensatz-ROM liegt. Elas RAM, das in den 
oben aiifgefürten Bereichen liegt, wird jedoch davon nicht 
berührt. Lediglich für den VIC-Chip ist dieser RAM-Bereich 
nicht lesbar. In die Bereiche von $5000 (20480) bis $5FFF 
(24575) und $D000 (53248) bis $DFFF (57343) kann das Video- 
RAM frei verschoben werden, da sich dort kein Zeichensatz- 
ROM befindet. Das Fehlen des Zeichensatz-ROM setzt aller¬ 
dings voraus, daß Sie beim Benutzen dieser Bereiche den Zei¬ 
chensatz hineinkopiert haben. 


3.3 Der Zeichengeaerator 

Das Aussehen der Zeichen, die wir auf dem Bildschirm sehen, 
ist, wie aus der Speicheraufteilung ersichtlich, in einem Zei¬ 
chensatz-ROM in der Adresse $D000 (53248) unter dem 1/0- 
Bereich abgelegt. Das Zeichensatz-ROM beansprucht einen 
Speicherbereich von vier kByte. Jedes Zeichen besteht aus acht 
Bytes, dessen Bits eine Acht mal Acht-Matrix bilden. Das heißt, 
daß jedes Zeichen eine Auflösung von 64 Punkten hat. Die 
gesetzten Bits entsprechen der Farbe, die für das Zeichen im 
Farb-RAM spezifiziert wurde. Die gelöschten Bits nehmen die 
momentane Hintergrundfarbe an. 


01234567 


Byte O.**. 

** 

• 

01100110 

s 

S66 

(102) 

Byte 1.**. 


S 

01100110 

« 

$66 

(102) 

Byte 2.**. 


= 

01100110 

m 

$66 

(102) 

Byte 3.••**•*. 

= 

01111110 

m 

$7E 

(126) 

Byte 4.**. 


e 

01100110 

s 

$66 

(102) 

Byte 5.»«. 


a 

01100110 

s 

$66 

(102) 

Byte 6.*«. 


s 

01100110 

= 

$66 

(102) 

Byte 7.... 

• • • • 

s 

00000000 

a 

$00 

(0) 
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Da das Zeichensatz-ROM nicht beschreibbar ist, muß man es in 
das RAM kopieren, um es dort verändern zu können. Da der 
VIC nur auf den 16 kByte großen Adressbereich, in dem er sich 
momentan befindet, zugreifen kann, muß der Zeichensatz in 
diesen Bereich kopiert werden. 

Hier sind die möglichen Bereiche des Zeichensatzes tabellarisch 
aufgeführt. Die Adressen sind zu der Speicherbankstartadresse 
hinzuzuaddieren. 


Acr«t«b«r«ii:h (Hex) 

Adra«>b«r»lch (Dez) 

Bitmusler 


soooo 

- SOFFF 

0 

- 4095 

0001 

0 1 

S1 000 

$1FFF 

4098 

8101 

0101 

0 s 

$2000 

- $2FFF 

8192 

1 2287 

1001 

09 

$3000 

- $3FFF 

1 2298 

- 16383 

1101 

1 3 

■ . . 



Abb. S.S: Zeichensfttibcreiche 


Am günstigsten ist es, sofern mit BASIC gearbeitet wird, den 
Zeichensatz in den Bereich von $3000 (12288) zu kopieren. 
Folgende Beispielroutinen sollen Ihnen die Arbeitsweise mit dem 
Zeichensatz verdeutlichen. 

Möchten Sie den Zeichensatz von BASIC aus in das RAM 
kopieren, verfahren Sie wie folgt: 


s WERT s n 

10 POKE 56334, PEEK (56334) AND 254 
20 PCXE 1, PEEK (1) AND 251 
30 FOR Is53248 TO 57343 
40 POKE I- 40960, PEEK (I) 

SO HEXT I 







Die Grafik und ihre Programmiertmg 


109 


60 POKE 1, PEEKd) OR 4 

70 POKE 56334, PEEK (56334) OR 1 

80 POKE 53272, PEEK (53272) AND 240 OR WERT 


Hier das Programm für Assemblerprogrammierer: 


cooo 

SEI 


; Internet verhindern 

C001 

LDA 

S01 


C003 

AHD 

«SfB 

; Btt 3 Löschen (I/O ausschalten) 

(XI05 

STA 

$01 


(»07 

LDX 

*S00 


(»09 

LDY 

»$10 


COOB 

LDA 

sdooo,x 

; RtH Ine RAM kopieren 

(»OE 

STA 

$3000,X 


C011 

INX 



C012 

BNE 

$C00B 


C014 

INC 

$cooo 

; Erstes Hish Byte erhöhen 

C017 

INC 

$C010 

; Zweites Hifh Byte erhöhen 

C01A 

DEY 



C01B 

BNE 

SCOOB 


C01D 

LOX 

#$D0 


C01F 

LOY 

»$30 


(»21 

STX 

$cooo 

; Erstes High Byte zurClcksetzen 

C024 

STY 

$C010 

; Zweites High Byte zurücksetzen 

C027 

LOA 

$01 


C029 

ORA 

»$04 

; Bit 3 setzten (I/O einschalten) 

C02B 

STA 

$01 


(»2D 

LOA 

$0018 


C030 

ANO 

«$F1 

: Bits 1 bis 3 löschen 

C032 

ORA 

»$0C 

; Bits 2 istd 3 setzen 

C034 

STA 

$D018 

; Zeiger auf $3000 setzen 

C037 

CLI 


; Interrupt ermöglichen 

C038 

RTS 


; Progronnende 


In der Adresse SDOIS (53272) dienen die unteren vier Bits als 
Zeiger auf den derzeitigen Standort des Zeichengenerators, 
wobei das erste Bit von der CPU immer gesetzt wird. Es sind 
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also eigentlich nur die Bits 1 bis 3 ausschlaggebend, wie auch 
aus der Tabelle ersichtlich. 

Nun wollen wir ein eigenes Zeichen in den Zeichensatz einbin¬ 
den. Das Zeichen könnte folgendermaßen aussehen: 


01234567 


Byte 


s 

%7t 

(126) 

Byte 

1*.• 

s 

S81 

(129) 

Byte 

2*.*.,*.* 

m 

BAS 

(165) 

Byte 

3*.* 

« 

S81 

(129) 

Byte 


• 

SC3 

(195) 

Byte 


s 

(BO 

(189) 

Byte 

6».* 

= 

S81 

(129) 

Byte 


• 

S7E 

(126) 


Um nun das Zeichen in den Zeichensatzgenerator, den wir 
bereits nach $3000 (12288) verlegt haben, einzubinden, geben 
wir die dezimalen Werte in eine DATA-Zeile ein. Das sieht 
dann folgendermaßen aus: 

10 FOR Is12298 TO 12288*^7 : READ A : PDKE I,A : NEXT I 
20 DATA 126,129,165,129,195,189,12».126 

Nachdem Sie das Programm gestartet haben, erscheint statt des 
Klammeraffen unser Mondgesicht. Zu beachten ist aber, daß das 
zugehörige reverse Zeichen immer noch ein Klammeraffe ist. 


3.4 Das Farb-RAM 

Durch das Farb-RAM läßt sich jedes Zeichen in 16 verschie¬ 
denen Farben darstellen. Das Farb-RAM ist nicht verschiebbar 
und befindet sich daher immer im Adreßbereich von $D800 
(55296) bis SDBFF (56319). Es umfaßt 1024 Bytes. Jedes Byte ist 
für die Zeichenfarbe eines Zeichens zuständig, wie jedes Byte 
des Video-RAM ein Zeichen auf dem Bildschirm bestimmt. Die 
einzelnen Bytes des Farb-RAM können die Werte von 0-15 
annehmen, es lassen sich also 16 verschiedene Farben darstellen. 
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Die Farbe wird durch die ersten vier Bits festgelegt, also im 
LOW-Nibble. Die restlichen vier Bits, das HIGH-Nibble, sind 
unbenutzt. Das Farb-RAM hat auch noch andere Aufgaben, die 
wir im entsprechenden Zusammenhang noch erläutern werden. 
Bei einem Schreibzugriff auf das Farb-RAM, zum Beispiel mit¬ 
tels POKE 55296, FARBE, nimmt das entsprechende Zeichen (in 
diesem Fall das erste Zeichen in der ersten Zeile) die durch 
FARBE definierte Farbe an. Wollen Sie einem beliebigen Zei¬ 
chen auf dem Bildschirm eine andere Farbe zuordnen, dann 
machen Sie das am besten mit 

POKE 55296+ZEILE*40+SPALTE, FARBE. 

Die Farb-Codes können Sie der Tabelle entnehmen; 



Abb. S.4: Farb-Codci 


Diese Tabelle ist beim Programmieren mit Farben fast unent¬ 
behrlich. 
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3.5 Extended Background Color Mode 

Durch das Einschalten des Extended Background Color Mode ist 
es möglich, mehr als eine Hintergrundfarbe für ein Zeichen zu 
benutzen. Beim Setzen von Bit 6 in der Adresse SDOl 1 (S326S) 
wird dieser Modus eingeschaltet. Die vier Hintergrundfarben 
werden in den Hintergrundfarbregistern SD021 (53281) bis 
$0024 (53284) festgelegt. 


Dazu ein kleines Beipielprogramm: 


5 Ast:B35:C^ 

10 POKE 53265, PEEK (53265) OR tA 
20 FOR {«1024 TO 1024-^254 :P0KE I, {-1024 :NEXT I 
30 POKE 53262, A :P0ICE 53283, B: POKE 53284, C 
40 A*A*1 iBcB+l :CsC«-1 :QETA$ :IF AS»"" THEH 30 
50 POKE 53365, PEEK (53265) AM) 101 


Zur Erläuterung: 

ln Zeile 5 werden die Farben för die Hintergrundfarbregister 
festgelegt. In Zeile 10 wird der Extended Background Color 
Modus eingeschaltet, indem das sechste Bit der Adresse SDOII 
(53265) gesetzt wird. Zeile 20 schreibt 255 Zeichen in das 
Video-RAM. In Zeile 30 werden die Farben in den Hinter- 
grundfarbre^istem erhöht und anschließend wartet das Pro¬ 
gramm, bis eine Taste gedrückt wird. Dann verzweigt es in Zeile 
40, wo wieder der Normalmodus eingeschaltet wird. 

Wenn Sie das Programm gestartet haben, werden Sie erkennen, 
daß Sie im Extended Background Color Modus nur 64 Zeichen 
darstellen können. Das liegt daran, daß die Bits 6 und 7 auf den 
Zeichencodes im Video-RAM als Zeiger auf ein Hintergrund¬ 
farbregister dienen. Es bleiben also nur 6 Bits für den Zeichen¬ 
code. Daher die Einschränkung auf 64 Zeichen. 
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Für die Bits 6 und 7 gibt es folgende Kombinationen: 


Bitmuster 

Bereich 

Farbreglster | 


0 

63 

8D021 

(53281) 

01 

64 

127 

$D022 

(53282) 

1 0 

1 28 - 

191 

$D023 

(53283) 

1 1 

192 - 

255 

$D024 

(53284) 


Abb 3.6; Bit*Korabin«tionitab«U« I 


Nachdem der Extended Background Color Modus durch das 
Löschen von Bit 6 in Adresse SDO11 (53265) wieder ausgeschal¬ 
tet wird, nehmen die Zeichen von 64 bis 255 wieder ihre 
ursprüngliche Form an, wie aus unserem Programmbeispiel 
ersichtlich. 


3.6 Der Multicolormodus 

Im Multicolormodus kann man innerhalb eines Zeichens vier 
verschiedene Farben darstellen. Die Farbinformation wird 
jeweils durch zwei Bits in der Matrix festgelegt. Die Bits können 
folgende Zustände annehmen: 


Bllmutter 

Farbreglttar 

0 D 

$D0?1 (53281) 

0 1 

SD022 (53282) 

1 0 

SD033 (53283) 

1 1 

Färb- RAM. Bit« 0 bl« 2 



Abb. 3.6: 


Bit-Kombinatioi)«tBb«Ue It 
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Da in diesem Modus zwei Bits einen Punkt auf dem Bildschirm 
ergeben, halbiert sich die Matrix dementsprechend. Die Farbe 
des Zeichens hängt von den Hintergrundfarbregistern ab. Die 
Bitkombinationen geben, wie auch aus der Tabelle zu entneh¬ 
men, nur das Farbregister an. In den Registern kann man 
dementsprechend die Farben des Zeichens bestimmen. Die dritte 
Zeichenfarbe wird im Farb-RAM, in den Bits 0 bis 2, angege¬ 
ben. Das dritte Bit dient als Flag, ob das Zeichen im Multicolor- 
oder im normalen Modus dargestellt wird. Daher ist es möglich, 
beide Modi problemlos zu kombinieren. 

Weil die Auflösung nur noch halb so groß ist (nämlich 4*8 
Punkte pro Zeichen beziehungsweise 160*200 auf dem ganzen 
Bildschirm), ist es vorteilhaft, zwei oder mehr Zeichen für ein 
Objekt zu definieren. Unser Gesicht sieht zum Beispiel folgen¬ 
dermaßen aus: 


01234S67 


Byte 0 

D0000011 


S03 

(003> 

Byte 1 

00111100 


S3C 

(060) 

Byte 2 

11000010 


SC2 

(194) 

Byte 3 

11000000 

a 

SCO 

(192) 

Byte 4 

11000100 

= 

SC4 

(196) 

Byte 5 

11000001 

s 

SC1 

(193) 

Byte 6 

00111100 

s 

S3C 

(060) 

Byte 7 

00000011 

« 

S03 

(003) 


Byte 0 

11111111 

a 

$PF 

(255) 

Byte 1 

00000000 

= 

soo 

(000) 

Byte 2 

10000010 

9 

S32 

(130) 

Byte 3 

oooooooo 

9 

soo 

(000) 

Byte 4 

00000000 

9 

SOO 

(000) 

Byte 5 

01010101 

• 

S55 

(085) 

Byte 6 

oooooooo 

s 

SOO 

(000) 

Byte 7 

11111111 

= 

S03 

(003) 

Byte 0 

11000000 

m 

SCO 

(192) 

Byte 1 

00111100 

B 

S3C 

(060) 
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Byte 2 10000011 « S83 <131) 
Byte 3 00000011 • S03 (003) 
Byte (. 00010011 ^ t13 C019) 
Byte 5 01000011 ^ >43 (067) 
Byte 6 00111100 ■ t3C (060) 
Byte 7 11000000 ■ SCO (192) 


Um nun die drei Zeichen in den Zeichensatz einzubinden, muß 
vorher der Zeichensatz nach S3000 (12288) kopiert werden, wie 
es im Kapitel 3.3 beschrieben wurde. Zur Verdeutlichung haben 
wir noch ein kleines Progamm erstellt: 


5 As0:Bs7;Cs5;Ds10 
10 POKE 53281. A 
20 POKE 53282. B 
30 POKE 53283. C 

40 POKE 646. 0 : REH aktuelle Schriftfarbe 
50 POKE 53270, PEEK (53270) OR 16 
60 FOR 1»12288 TO 12288+23: READ A: POKE I, A: HEXT 1 
70 PRINT CHRS (147) 

80 POKE 646. 5: PRINT •'MULTICOLOR < ••;! POKE 646, 10: PRINT "aAB": 
PRINT 

90 POKE 646. 5; PRINT •’NORH.MaouS < PRINT »BAB» 

100 POKE 53283. A 

101 IP A>15 THEN A°0 

102 AM^I 

104 GET AS: IF ASsx" THEN 95 

110 POKE 53270, PEEK (53272) AND 239 

200 DATA 003, 060, 194, 192, 196. 193. 060, 003, 255, 000, 

130, 000, 000, 085, 000. 255, 192 

210 DATA 060, 131. 003. 019, 067. 060, 192 


In den Zeilen 10 bis 30 werden die Farben in den Farbregistern 
festgelegt. In Zeile 40 wird die Schriftfarbe für das Farb-RAM 
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festgelegt. In der nächsten Zeile wird der Mulicolormodus ein¬ 
geschaltet. In Zeile 60 werden die drei Zeichen in den Zeichen¬ 
satz eingebunden. In den Zeilen 80 bis 90 werden die Zeichen in 
den verschiedenen Modi auf den Bildschirm gebracht. In den 
darauffolgenden Zeilen wird das erste Farbregister erhöht, bis 
ein Tastendruck erfolgt. 

Wie Sie anhand unseres Beispiels sehen, kann man die Farben 
innerhalb der Matrix unabhängig voneinander verändern. 


3.7 Sprites und ihre Programnieriing 

Sprites sind kleine Grafiken, die unabhängig vom Hintergrund 
über den Bildschirm bewegt werden. So kann man zum Beispiel 
Spielfiguren vor einem Hintergrund darstellen. Dieses Kapitel 
zeigt Ihnen, wie Sie vorgehen müssen, um ein Sprite zu pro¬ 
grammieren. 

Ein Sprite besteht aus 24 mal 21 Einzelpunkten. Um einen Sprite 
zu entwerfen, benutzen Sie daher am besten ein Raster aus 
24*21 Kästchen. Jedes Kästchen entspricht einem Bildpunkt, der 
an- oder ausgeschaltet werden kann. Füllen Sie die Kästchen 
aus, die den Bildpunkten entsprechen, die gesetzt werden sollen. 

Der nächste Schritt besteht darin, den entworfenen Sprite in 
Daten umzuwandeln. 

Dazu werden jeweils acht Punkte zu einem Byte zusammenge¬ 
faßt. Also besteht eine Zeile bei einem Sprite aus drei Bytes, der 
ganze Sprite hat 21 Zeilen mit je 3 Bytes, also 63 Bytes. Die 
Acht-Bit-Zahlen müssen nun in Dezimalzahlen umgerechnet 
werden. Blocks, in denen gar kein Punkt gesetzt ist, haben den 
Wert 0. 

Legen Sie die so gewonnen Daten in DATA-Zeilen ab. Wichtig 
ist, daß auch Bytes mit dem Wert 0 abgelegt werden, sonst ver¬ 
schieben sich alle anderen Daten. Wenn Sie alle Zahlen dreistel¬ 
lig schreiben, bleibt das Listing übersichtlicher; 
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1000 DAT« 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
1080 DATA 
1090 DATA 
1100 DATA 
1110 DATA 
1120 DATA 
1130 DATA 
1140 DATA 
1150 DATA 
1160 DATA 
1170 DATA 
1180 DATA 
1190 DATA 
1200 DATA 


000,000,080 

000,000,000 

000,000,000 

000,000,000 

000,000,000 

000,000,000 

000 , 000,000 

003,255,255 

000,002,000 

192,170,128 

194,150,080 

234,150,080 

194.170.168 

192.170.168 
000,032,128 
000,170,160 
000,000,000 
000,000,000 
000 , 000,000 
000,000,000 
000,000,000 


Jede Zahl von 1 bis 2S5 repräsentiert etn bestimmtes 
-Punktemuster innerhalb eines Sprites. So ist es also möglich, jede 
beliebige Figur, von einem Punkt bis hin zum 24 mal 21 Punkte 
großen Block zu programmieren. Der Unterschied zur hochauf¬ 
lösenden Grafik besteht darin, daß man ein Sprite frei bewegen, 
vergrößern und verändern kann. Doch bevor man das Sprite 
einschalten kann mUssen die Spritezeiger festgelegt werden. 
Diese befinden sich in den Adressen von $07F8 (2040) bis 
$07FF (2047), in der Reihenfolge der Spritenummern. Der 
Spritezeiger für Sprite 1 steht also in Adresse $07F8 (2040), der 
für Sprite 2 in der Adresse $07F9 (2041) und so weiter. Wenn 
Sie zum Beispiel einen Sprite in den Speicherbereich ab $2000 
(8192) ablegen wollen, dann verfahren sie wie folgt: 


10 POKE 2040, 8192/64 
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Somit haben Sie den Spritezeiger auf die Adresse $2000 (8192) 
zeigen lassen. Weil ein Sprite 63 Bytes beansprucht, kann man 
den gewünschten Speicherbereich durch 64 teilen, dann hat man 
den Wert für den Spritezeiger. Mit 64 kann der Computer 
leichter rechnen, das eine überzählige Byte pro Sprite wird nicht 
benutzt. Anschließend werden dann die Daten für den Sprite mit 
Hilfe einer FOR- NEXT-Schleife in den Speicher gelesen; 

20 FOR 1=0 TO 62: READ A: POKE 8192«!, A: NEXT I 

Jetzt muß der Sprite eingeschaltet werden. Dafür ist die 
Speicherzelle SDOIS (53269) zuständig. Die Bits 0 bis 7 dienen 
als Schalter für das jeweilige Sprite. Wird das erste Bit gesetzt, 
schaltet sich Sprite I ein, wird das zweite Bit gesetzt, schaltet 
sich Sprite zwei ein und so weiter. Wenn alle Bits gesetzt wer¬ 
den, schalten sich alle acht Sprites ein. Die nächste Zeile lautet 
also; 


30 POKE 53269. 1 

Jetzt ist der Sprite zwar eingeschaltet, aber trotzdem noch nicht 
auf dem Bildschirm sichtbar, weil er sich in der oberen Ecke 
des Bildschirms ( unter dem Bildschirmrahmen) befindet. Da die 
Position des Sprites auf Null steht, muß auch diese verändert 
werden. Die X-Position wird in der Adresse SDOOO (53248), die 
Y-Position in der Adresse $DO0l (53249) festgeigt. Für Sprite 2 
sind es die Adressen $D003 (53250) und SD004 (53251) und so 
weiter. Man kann den Sprite auch mit einer FOR- NEXT- 
Schleife über den Bildschirm laufen lassen. Um sich das zu ver¬ 
deutlichen, geben Sie folgendes ein: 

40 POKE 53249, 100: FOR X>0 TO 255: POKE 53248, X: NEXT X 

Ein Problem werden Sie vielleicht schon erkannt haben: Es gibt 
320 horizontale Positionen, aber der maximale Wert bei einem 
POKE in die X-Position kann nur 25S betragen. Sie werden sich 
fragen, wie man den Sprite dann über den Wert 255 hinaus ver¬ 
schieben kann. Für diese Aufgabe gibt es ein weiteres Register: 
Im Register $D010 (53264) befindet sich für jedes Sprite ein 
weiteres Bit für die X-Position. ln diesem Bit wird markiert, ob 




Die Grafik und ihre Programmierung 


119 


eine X-Koordinate über 2SS liegt. Zu diesem Zweck wird vor 
der Adressierung das entsprechende Bit auf I gesetzt. Damit 
unser Sprite auch bis Position 320 läuft, geben Sie die folgende 
Zeile ein: 

SO PGKE S3264, 1:F0lt X=0 TO 64: PQKE S3248, X:NEXT X:POKE S3264,0 

Mit Hilfe dieser Einrichtung ist es nun leicht möglich, jeden 
Sprite beliebig und unabhängig von den anderem über den 
ganzen Bildschirm laufen zu lassen. 

Als weitere Möglichkeit können wir noch die Farbe des Sprites 
ändern. Hierzu verfügt jeder Sprite über ein Farbregister. Diese 
Register befinden sich von SD027 (S3287) bis SD08E (53294). 
Die Adresse $D027 (53287) ist also für Sprite 1 zuständig, die 
Adresse D028 (53288) für Sprite 2 und so weiter. 

60 POKE 33287, 14 

Dadurch hat unser Sprite nun eine hellblaue Farbe bekommen. 

Die nächste Besonderheit ist die Möglichkeit, die Sprites in 
horizontaler und/oder vertikaler Richtung zu vergrößern. Auch 
hierfür gibt es zwei Register. Eines für die Vergrößerung in X- 
und das andere für die Vergrößerung in Y-Richtung. Die beiden 
Register sind vom Aufbau her identisch mit der Speicherzelle 
$D015. Die Bits 0 bis 7 sind für die jeweiligen Sprites zuständig. 
Das heißt, wenn Bit 0 gesetzt wird, vergrößert sich der Sprite 1 
in X-beziehungsweise Y-Richtung, bei Bit I das zweite Sprite 
und so weiter. In der Adresse SD017 (53271) wird das entspre¬ 
chende Sprite in X und in der Adresse SDOID (53277) in Y 
Richtung vergrößert. Jetzt können wir unser Programm erwei¬ 
tern: 


70 PCXCE 53271, 1 

80 FOR 1=1 TO 700: NEXT I: REM WARTESCHLEIFE 
90 POKE 53277, 1 


Eine weitere Besonderheit ist, daß Sie wählen können, ob der 
Sprite vor dem Hintergrund oder dahinter plaziert werden soll. 
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Damit kann man natbrlich schöne Effekte hervorrufen. Diese 
Priorität kann man in der Adresse SDOIA (53275) festlegen. 
Auch hier ist das Prinzip zur Festlegung der Spritenummer mit 
der Adresse $D015 indentisch. Um eine Reaktion erkennen zu 
können, müssen an der Stelle, wo sich das Sprite befindet, Zei¬ 
chen auf dem Bildschirm stehen. Mit dem Register können Sie 
die Priorität jedes Sprites beliebig verändern. Wenn das ent¬ 
sprechende Bit nicht gesetzt ist. also 0 ist, bedeutet das, daß das 
Sprite vor dem Hintergrund steht. Ein gesetztes Bit bewirkt 
demnach den umgekehrten Fall. Die nächste Zeile lautet: 

100 POKE 5327S, 1 

Es gibt ein Register, in dem eine Kollision zwischen verschie¬ 
denen Sprites verzeichnet wird. Dieses Register bleibt solange 
auf 0, bis entweder zwei oder mehrere Sprites zusammenge¬ 
stoßen sind. Diese Register setzen sich bei einer Kollision nicht 
selbständig zurück. Das muß also vom Programm besorgt wer¬ 
den. Wenn diese nicht zurückgesetzt werden, bleiben die Infor¬ 
mationen über die Kollision bestehen, so daß eine darauffol¬ 
gende nicht erkannt wird. Wenn man den Wert der Speicherzelle 
SDOIE (53278) abfragt, kann man feststellen, welche Sprites 
miteinander kollidiert sind. Wenn bei PEEK(53278) der Wert 3 
erscheint, dann haben die Sprites 1 und 2 eine Kollision gehabt. 
Die Bitstruktur des Registers braucht nicht weiter erläutert zu 
werden, da sie mit den anderen Registern identisch ist. Nach 
einer Abfrage muß das Register wieder durch POKE 53278, 0 
zurückgestellt werden. 

Genauso, wie eine Kollision von verschiedenen Sprites registriert 
wird, besteht die Möglichkeit, auf eine Kollision von Sprites mit 
dem Hintergrund abzufragen. Dazu dient die Speicherzelle 
SDOIF (53279). Dieses Register wird wie Register SDOIE 
(53278) behandelt. Die einzige Ausnahme ist das Ergebnis der 
PEEK - Abfrage. Das Resultat gibt nur Auskunft darüber, 
welcher Sprite mit einem Zeichen kollidiert ist. Nicht aber wel¬ 
ches Zeichen es war und an welcher Position es sich befand. 
Diese Adresse muß auch wie das Register SDOIE (53278) nach 
einer Kollision zurückgesetzt werden. 
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Wie beim Multicolorzeichensatz kann man einen Sprite auch in 
vier verschiedenen Farben darstellen. Durch das Setzen der ein¬ 
zelnen Bits in der Adresse SDOlC (53276) f«nn man für jeden 
einzelnen Sprite den Multicolormodus einschalten. Wenn Sie in 
Zeile 5 POKE 53276, 3 eingeben, dann nehmen unsere Hub¬ 
schrauber langsam Gestalt an. Dadurch haben die Hubschrauber 
aber (wie auch der Zeichensatz im Vierfarbmodus) eine gerin¬ 
gere Auflösung, da jeweils zwei Bits einen Punkt auf dem Bild¬ 
schirm ergeben. 

Wir wissen ja. daß zwei Bits vier Informationen übermitteln 
können: 00. 01, 10, II. Bei der Verwendung des 

Multicolormodus haben diese Bits folgende Wirkung: 


1 

Farbrtgtiltr 

n 

Dar Punkt hat dia Farba da« Hlntargrunda« (Man «lahl Ralnan Punkt) 


Ola Farba «rird ati« Adraaia 3002$ (S3}3S> gahoH 

10 1 

DIB Farba wtrd aui dan Adrairan D03S (53280) bl* O02E (53284) gahoil 


Dia Farba wird aut Adraira 30028 (53288) geholt 


Abb. 3.7: Bii-KmiUiiatio»8t»b«lls 111 


Vieleicht haben Sie sich anfangs gefragt, warum der Hubschrau¬ 
ber so seltsam aussieht. Diese Frage kann man leicht beantwor¬ 
ten. Er ist als Mullicolorsprite entwickelt worden. Da ein Mul- 
ticolorsprite aus weniger Punkten besteht, als ein einfarbiger 
Sprite, sieht er natürlich im normalen Sprite- Modus etwas selt¬ 
sam aus. Als Abschluß dieses Kapitels wollen wir Ihnen nun ein 
Demo- Programm zur Verdeutlichung der Spritefunktionen prä¬ 
sentieren, in dem alle erwähnten Funktionen Vorkommen. 

Es ist nicht ungeschickt, anhand dieses Programmes, mit der 
Programmierung der Sprites zu experimentieren. Dadurch lernen 
Sie die Handhabung der Sprites am schnellsten. Die REM- 
Zeilen müssen nicht mit eingegeben werden. 
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0 POKE 53280. 0; POKE 53281, 0: REM HINTERGRUND FARBE SETZEN 

1 POKE 53286, 4: REM MULTICOLOR FARBE SETZEN 

2 FOR T»0 To 62: READ X: POKE 8192+T, X: NEXTT: REM SPRITE- 
DATEN EINLESEN 

4 PRINT CHR$(147): REM BILDSCHIRM LOSCHEN 

5 POKE 53276, 3: REM MULTICOLORMODUS EINSCHAITEN 

6 POKE 53287, 1: POKE 53288, 1: REM FARBE SETZEN 

7 FOR I>0 TO 24: POKE 1024-»I*40«20, 161: NEXTI: REM MAUER AUFBAUEN 
10 POKE 2040, 8192/64: POKE 2041, 8192/64: REM SPRITEZEIGER SETZEN 
20 POKE 53269,3; REM SPRITE 1 UNO 3 EINSCHALTEN 

30 POKE 53249, 100: POKE 53251, 150: FOR 1=1 TO 255 

40 POKE S324S, l: REM SPRITE 1 IN X*RICHTUNG BEWEGEN 

50 POKE 53250, I: POKE 53251, t: REM SPRITE 2 IN X UND Y RICHTUNG 

BEWEGEN 

60 IF PEEK(53278>-3 THEN GOSUB 100: REM ABFRAGE AUF SPRITE- 
SPRITE KOLLISION 

61 IF PEEK(53279>-3 THEN GOSUB 300: REM 
ABFRAGE AUF SPRITE-HINTERGRUNO-KOLLtSION 

65 If PEEK(53248>«255 THEN GOSUB 200: REM WENN 255, DANN 200 
70 NEXT I 
80 GOTO 30 

100 REM SPRITES IN X UND Y RICHTUNG VERGRäSSERN 

101 REH UNO REGISTER FÜR SPRITE KOLLISION ZlHtUCKSETZEN 

102 POKE 53271, 3: POKE 53277, 3: POKE 53278, 0 
110 RETURN 

200 POKE 53264, 3: REM SPRITES AUF POSITION 256 SETZEN 

210 FOR 1-1 TO 64; POKE 53248, 1: POKE 53250, I: POKE 53251, I: NE 

XT I: REM WEITERBEUEGEN 

220 POKE 53264, 0 

230 RETURN 

300 REM SPRITES VERKLEINERN 

301 REM UNO REGISTER FÜR SPRITE-HINTERGRUNO-KOLLISION ZURÜCKSETZEN 

302 POKE 53271, 0: POKE 53277, 0: POKE 53279. 0 
310 RETURN 

999 REM SPRITE DATEN 

1000 DATA 000,000,000 
1010 DATA 000,000,000 
1020 DATA 000,000,000 
1030 DATA 000,000,000 
1040 DATA 000,000,000 
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1050 DATA 000,000.000 
1060 DATA 000,000,000 
1070 DATA 003,255,255 
1080 DATA 000,002,000 
1090 DATA 192,170,128 
1100 DATA 196,150,080 
1110 DATA 236,150,080 
1120 DATA 196,170,168 
1130 DATA 192,170,168 
1160 DATA 000,032,128 
1150 DATA 000,170,160 
1160 DATA 000,000,000 
1170 DATA 000,000,000 
1180 DATA 000,000,000 
1190 DATA 100,000,000 
1200 DATA 000,000,000 


3.8 Der Grafikbildschlrm 

Eine weitere Besonderheit des C64 ist der Grafikbildschirm, das 
heißt die hochauflösende Grafik. Im einfarbigen Modus hat der 
Grafikbildschirm eine Auflösung von 64000 Punkten, also 8*40 
• 320 horizontal und 8*25 = 200 vertikal, was die gerade 
genannte Anzahl an Einzelpunkten ergibt. Das Einschalten des 
Modus erfolgt durch Setzen von Bit 5 in der Adresse SDOIl 
(53265). Es ist ratsam, die Bits mittels logischer Verknüpfungen 
wie AND und OR zu setzen beziehungsweise zu löschen, da die 
anderen Bits in der Speicherzelle noch über weitere Aufgaben 
verfügen. Da der VIC nur auf einen adressierbaren Bereich von 
16 kByte zugreifen kann, liegt der 8 kByte große Grafikbild¬ 
schirm immer in einer Hälfte des Bereichs. Durch das Setzen 
oder Löschen von Bit 3 in der Adresse $D0I8 (53272) können 
folgende Bereiche für den Standort des Grafikbildschirms 
gewählt werden: 
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Bltmuisler 

Adrsttbareich (Haxj 

Adressbereich (Dez) 

b 

0 

SOOOO - $1F3F 

0 - 7««« 


1 

S2000 - $3F3F 

8192 - 16191 




Abb S.8: Bereichstabelle 


Auch diese Bereiche sind zu der jeweiligen Bankstartadresse, 
also der Anfangsadresse des VIC, hinzuzuaddieren. 

Der Grafikbildschirm ist genauso wie der Zeichensatz auf gebaut. 
Der VIC interpretiert den Zeichensatz genauso wie den Grafik¬ 
bildschirm. Beim Zeichensatz ergeben 64 Punkte elo Zeichen auf 
dem Bildschirm. Beim Grafikbildschirm ist das genauso, nur 
man muß sich vorstellen, der ganze Bildschirm wäre voller 
Leerzeichen, dessen Punkte man nach Belieben setzen und 
wieder löschen kann. Man kann sich den Grafikbildschirm als 
ain riesiges Zeichen vorstellen, das eine Auflösung von 64000 
Punkten hat. 

Das Einschalten des Grafikbildschirms erfolgt durch; 

10 POKE 53265, PEEK<53265> OR 32 

Jetzt muß noch dem VIC mitgeteilt werden, in welchem 
Adressbereich sich der Grafikbildschirm befindet. Im Normalfall 
ist das dritte Bit in der Adresse $D018 (53272) auf Null gesetzt, 
das heißt, der Grafikbildschirm liegt im Adressbereich von 
SOOOO (0) bis $1F3F (7999), wie auch der Tabelle zu entnehmen 
ist. Dieser Bereich ist aber äußerst ungünstig, weil wichtige 
Speicherzellen in der Zeropage überschrieben werden können. 
Das Umsetzen des Zeigers erfolgt, wie schon erwähnt, durch das 
Setzen von Bit 3 in der Adresse $D0I8 (53272): 


20 POKE 53272, PEEK<53272) OR 8 
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Dadurch ist der Zeiger für den Grafikbüdschirm auf den Be¬ 
reich von $2000 (8192) bis $3FEF (16191) gestellt. 

Wenn der Grafikbüdschirm eingeschaltet ist, dient das Video- 
RAM als Farbspeicher für die hochauflösende Grafik. Sie kön¬ 
nen innerhalb eines Feldes von 64 Punkten, also in Größe eines 
Zeichens, die Farbe beliebig angeben. Um Vorder- und Hinter¬ 
grundfarbe festzulegen, muß man ein Byte in zwei Hälften auf¬ 
spalten. Das geht folgendermaßen vor sich; Die Farbe der 
Punkte, zum Beispiel 5 (grün), wird mit 16 multipliziert und mit 
der Hintergrundfarbe, zum Beispiel 1 (weiß), addiert. Daraus 
ergibt sich dann der Wert, der beide Funktionen übernimmt; 

30 FAitBE*S: HINTERGRUND d 

40 FOR I»0 TO 254: POKE 1024«!, FAR8E*16*H1NTERGRUN0!NEXT 1 

50 GOTO 50: REH SCROLLEN DES BILDSCHIRMS VERHINDERN 

Wenn Sie das Programm starten, werden Sie feststellen, daß der 
Hintergrund eine weiße und die Punkte eine grüne Farbe 
annehmen. In Zeile 50 muß in eine Endlosschleife verzweigt 
werden, da die anschließende READY- Meldung den Bildschirm 
verschieben und neue Farben bewirken würde. 

Wenn Sie den Grafikbildschirm eingeschaltet haben, werden Sie 
feststellen, daß dieser nicht gelöscht ist, sondern undefinierbare 
Punkte gesetzt sind. Um den Grafikbüdschirm zu löschen, muß 
der Bereich von $2000 (8192) bis $3F3F (16191) mit Nullen 
gefüllt werden, weil in einer Null keine Bits gesetzt sind und 
daher auch keine Punkte zu sehen sind. 

FOR 1>0192 TO 16192: POKE I.O: NEXT 1 

Anschließend wollen wir Ihnen noch eine kleine Anwendung 
zeigen, die eine Sinuskurve auf den Bildschirm bringt. Anhand 
des Programmbeispiels können Sie sich mit der Programmierung 
des Grafikbildschirms vertraut machen. Die REM- Zeilen müs¬ 
sen nicht mit eingegeben werden. 
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10 REM SIHUSPLOT 

20 POKE 53265, PEEK(53265) OR 32: REM GRAFIKBILOSCHIRM EINSCHALTEN 
30 POKE 53272, PEEK(53272) OR 6 : REH ZEIGER AUF 8192 LEGEN 
60 FOR 1=1024 TO 2027: POKE I, 80: HEXT I: REM FARBE SETZEN 
50 FOR 1=6192 TO 16191: POKE I.O: NEXT I: REH GRAFIKBILDSCHIRM LÖS 
CHEN 

60 FOR X=0 TO 316: Y=100: GOSUB 1000: NEXT X: REM X ACHSE ZEICHNEN 
70 FOR r=0 TO 199: X=160: GOSUB 1000: NEXT V: REM Y ACHSE ZEICHNEN 
60 FOR X=0 TO 319: Y=100-100*StH(X*PI/160):GOSUB 1000: NEXT X: REM 
SIHUSKURVE ZEICHNEN 
90 GOTO 90: REH EHOLOSSCHIEIFE 

1000 OYs320*INT(Y/6)«^(YANO7):REH BERECHNEN EINES PUNKTES 
1010 0X=8*IHT(X/6) 

1020 MA=2*{7'(XAND7)) 

1030 AV=6192*0Y*OX 

1040 POKE AV. PEEK (AV) OR MA: REM PUNKT DARSTELLEN 
1050 RETURN: REM RÜCKSPRUHG VON DER UNTERRaJTINE 


Wenn Sie das Programm vom Aufbau her verstanden haben, 
dann werden Sie auch bald Ihre eigenen mathematischen Funk¬ 
tionen auf diese Art und Weise darstellen können. 

Die Programmierung von Kreisen oder Linien zwischen zwei 
Punkten ist beim C64 leider nicht so komfortabel wie bei eini¬ 
gen anderen Computern. So gibt es keinen Befehl, um eine 
Gerade von Punkt X nach Punkt Y zu ziehen, oder einen 
Befehl, einen Kreis mit einem bestimmten Radius an einem 
bestimmten Ort zu zeichnen. Deshalb haben wir ein kleines Gra¬ 
phikhilf sprogramm für Sie vorbereitet, das einige Grafikmög¬ 
lichkeiten bietet. Mit diesem Programm können Sie schnell und 
komfortabel einfache Grafiken erzeugen. Das Grafikhilfspro- 
gramm finden Sie am Ende des Kapitels. 


3.9 Der Multlcolorgrafikbildschirm 

Der Multlcolorgrafikbildschirm ist mit dem Multicolorzeichen- 
satz zu vergleichen. Im Gegensatz zum normalen Modus hat man 
im Multicolormodus nicht nur zwei, sondern vier Farben zur 
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Verfügung. Jedoch muß man, wie beim Multicolorzeichensatz, 
die Hälfte der Auflösung opfern. Das heißt, man hat nur noch 
160 horizontale und 200 vertikale Punkte zur Verfügung, weil 
zwei Bits einen Punkt auf dem Bildschirm ergeben. Durch Set¬ 
zen von Bit 4 in der Adresse SD0I6 (S3270) wird der Multico- 
lormodus für den Grafikbildschirm aktiviert. Natürlich muß 
auch das Bit 5 in der Adresse SDOll (S326S) gesetzt sein, da 
sonst der Grafikbildschirm nicht aktiviert ist. Genauso wie beim 
Multicolorzeichensatz kann man innerhalb eines Acht- mal 
Acht-Feldes 3 Farben plus der Hintergrundfarbe darstellen. Da 
zwei Bits, die nun für einen Punkt zuständig sind, nur die Farb- 
quelle angeben und nicht die Farbe selbst, ergeben sich folgende 
Möglichkeiten für die Farbquellen: 


Bümu«ter 

Farbquelle 

mm 

Hlniergrundfarbregltter $D021 (63281) 


Highnibble der Videomatrix 

1 0 

Lownibble der VIdaomatrIx 

11 

Farbram 


Abb. S.9: mögliche Pei-bqucllen 


Das Farb-RAM, das beim normalen Grafikbildschirm unbenutzt 
ist, dient hier als Farbquelle für das Bitpaar II. Es ist natürlich 
problemlos möglich, Sprites und Grafik zu kombinieren. Das 
Mischen von Text und Grafik ist nicht ohne größeren Program¬ 
mieraufwand möglich, aber dies werden wir im Kapitel Inter- 
ruptprogrammierung noch näher erläutern. 
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Hier nun das versprochene Grarikhilfsprogramm; 
Sprungtabelle für Funktionen 


COOO JHP SC01E 
C0O3 JHP SC03C 
C006 JMP SC031 
C0Q9 JHP 3C06D 
COOC JHP tC089 
COOF JHP SC08& 
C012 JHP SC152 
CQIS JHP SC139 
C018 JHP tC175 
C01B JHP SC161 


: Grafftuno^ efnschalten 
; Grafik löschet^ 

; Farbe setzen 
; Grafik Invertieren 
; Grafikpunkt setzen 
; Grafikpunkt löschen 
; Grafik laden 
; Grafik abspeichen 
; Grafik drucken 
; Grafik ausschalten 


Routine zum einschalten der Grafik 


C01E 

JSR SC03C 

; Sprurg zu Grafik löschen 

C021 

IDA tP011 

; Hormalwert 

C026 

STA SC170 

; sichern 

C027 

LDA $0018 

; NornialHert 

C02A 

STA $C171 

; sichern 

C02D 

LDA «S3B 

; Grafikmodus 

CGZF 

STA $0011 

; einschalten 

ca32 

LDA «$16 

; Zeiger auf 

C034 

STA $0018 

; $2000 stellen 

C037 

LOX «$10 

; Farbwert laden 

C039 

JMP $C057 

; Sprung zu Farbe setzen 

C03C 

LOT «$Q0 

; Adresse 

C03E 

LOX «$20 

; festlegen 

C04Q 

STY $F0 

; und 

C042 

STX $FE 

; speichen 

C066 

TYA 

; Akku auf Null setzen 

C045 

HOP 

; keine Operetion 

C046 

STA ($F0), 

Y; Bereich 

C048 

INY 

; von 

C049 

BHE $C046 

; $2000 bis 

C04S 

»C $FE 

; $3FFF mit 
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C04D OEX 
C04E BNE $C046 
C050 RTS 


; Nullen 
; füllen 
; Rüeksprung 


Grafikfarbe setzen 


C051 

JSR 

SAEFO 


C054 

JSR 

S879E 


C057 

LDY 

mo 


C059 

LOA 

#S04 


C05B 

STT 

SFD 


C05O 

STA 

SFE 


C05F 

TXA 



C060 

LDX 

«$04 


C062 

STA 

{$FD),Y; 

C064 

INY 



CCI65 

BNE 

SC062 


0067 

INC 

SFE 


C069 

OEX 



C06A 

BNE 

SC062 


C06C 

RTS 




Buf Kanne prüfen 

Uert ins X Register holen 

Adresse 

festlegen 

Werte 

speichern 

Farbe in Akku schieben 

Video- 

RAM 

mit 

Ferb- 

ucrt 

«uf- 

fällen 

Rücksprurg 


Grafik invertieren 


C060 

LOY 

«SOO 

■ 

• 

Bereich 

C06F 

LOA 

«S20 

■ 

f 

festlegen 

C071 

STY 

SFD 

• 

und 

0073 

STA 

SFE 

• 

speiehn 

C075 

LDX 

#S20 

• 

* 

Zahler stellen 

C077 

LOA 

<SFD). 

y; 

Uert latian 

C079 

EOR 

«SFF 

e 

t 

«Ile Bits undrehen 

C07B 

STA 

(SFD), 

Y; 

Uert speichern 

C070 

INY 



ersten Zähler erhöhen 

C07E 

BNE 

SC077 

• 

f 

wenn nicht Null denn weiter 

coeo 

INC 

SFE 

w 

* 

ansonsten Adressee erhöhen 

C082 

OEX 


f 

zweiten Zahler erniedrigen 

C083 

BNE 

SC077 

t 

noch nic^t Null?, daf«) weiter 

C08S 

RTS 


i 

ensonsten Rüekspririg 
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Punkt setzen beziehungsweise löschen 

C0a6 LDA «SSO 

Zeiger Für Grafikpunkt setien 

C0S8 BIT S00A9 

Zeiger für Grafikpunkt löschen 

C086 STA $97 

Zeiger speichern 

C080 JSR SAEFD 

auf Konna prüfen 

C090 JSR S87ES 

Werte laden 

C093 CPX «SCB 

Y-Koordinate gröBer als 199? 

C095 BCS SCOBS 

wenn ja, dann Rüeksprung 

C097 LDA SIS 

X-Koordinate +1 kleiner als 320? 

C099 CMP #S01 

dann 

C09B BCC SC0A5 

weiter 

C09O BNE scoas 

ansonsten Rücksprung 

C09F IDA SU 

X-Koordinate gröBer als 319 

C0A1 CMP «S40 

dann 

C0A3 BCS SC06S 

Rücksprung 

C0A5 TXA 

Y-Koordinate in den Akku schieben 

C0A6 LSR 

durch 

C0A7 LSR 

B 

C0A8 LSR 

■Bl 

C0A9 ASL 

2 

COAA TAY 

Y-Koordinate wieder ins Y-Register 

COAB LDA SCOFF.Y 

Wert aus Tabelle holen 

COAE STA SC173 

und speichern 

C0B1 LDA SCIOO.Y 

ml 320 

C0B4 STA SC174 

und speichern 

C067 TXA 

Y-Koordinate holen 

COBB AND «S07 

Bits 3 bis 7 löschen 

COBA CLC 

Carry löschen und 

COBB ADC SC173 

mit Tabellenwert addieren 

COBE STA $C173 

und wieder speichern 

CDC1 LDA SU 

X-Koordinate laden 

C0C3 AND «SFB 

Bits 0 bis 2 löschen 

COCS STA SC172 

und speichern 

coce CLC 

Carry löschen 

C0C9 LDA «SOO 

mit Null 

COCB ADC SC173 

addieren 

COCE STA SPD 

und speichern 
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CODO 

LOA 

n 20 ; 

mit 32 

C0D2 

AOC 

SC174 ; 

addieren 

CO05 

STA 

SFE 

und speichern 

C007 

CLC 


Carry löschen 

C0D8 

LDA 

SFO 

Anfangsadresse mit 

CODA 

ADC 

SC172 ; 

Y-wert addieren 

COOD 

STA 

SFO ; 

und speichern 

codf 

LDA 

SFE ; 

Anfangsadresse mit 

coei 

ADC 

SIS ; 

X'Uert addieren 

C0E3 

STA 

SFE ; 

und speichern 

C0E5 

LDA 

S14 

X-Uert laden 

C0E7 

ANO 

no7 

Bits 3 bis 7 löschen 

C0E9 

EOA 

no7 ; 

und URdrehen 

coeb 

TAX 


X-Wert ins X-Register 

coec 

LOA 

SC131,X; 

Uert aus Tabelle holen 

COEF 

LOY 

«soo ,• 

Zähler auf Null setzen 

COFI 

BIT 

S97 ; 

Oberprüfen ob der Punkt 

C0F3 

BPL 

SCDFA ; 

gesetzt oder gelöscht werden soll 

C0F5 

EOR 

#SFF ; 

alle Bits umdrehen 

C0F7 

AHO 

(SFOI.Y; 

Punkt löschen 

C0F9 

BIT 

SFD11 ; 

Punkt setzen 

COFC 

STA 

(SFO),Y; 

Punkt auf Bildschirm bringen 

COFE 

RTS 


Rückspring 


Multiplikationstabelle 

COFF 00 00 40 01 SO 02 CO 03 
C107 00 05 40 06 SO 07 CO 08 
C10F 00 OA 40 OB 80 OC CO 00 
C117 00 OF 40 10 80 11 CO 12 
C11F 00 14 40 15 80 16 CO 17 
C127 00 19 40 1A 80 10 CO IC 
C12F 00 1E 01 02 04 08 10 20 
C137 40 80 20 FO AE 20 04 El 
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Grafik speichern 



C139 

JSR 

SAEFD 

9 

auf Komm prüfen 

C13C 

JSR 

tE104 

i 

FUenamer) und Geräteadresse holen 

Ct3F 

LOX 

«too 

9 

Eref- 

C141 

LDT 

««40 

• 

9 

adresse 

C143 

LDA 

«SOO 

i 

festlegen 

C14S 

STA 

SFD 

« 

Anfangs- 

C147 

LOA 

»»O 

i 

Adresse 

C149 

STA 

SFE 

9 

speichern 

C14B 

LDA 

««FO 

f 

Sekundäradrese 

C14D STA se9 

• 

• 

festlegen 

C14F 

JMP 

SFFDS 

• 

9 

Sprung tu SAVE 


Grafik laden 


C152 JSR SAEFD 

; auf Keam prüfen 

CS5S JSR SE104 

; F)t&)3inen tnf Geriteadrcsse holen 

C15B LDA «SOI 

; Sekundäradresse 

C15A STA SB9 

; festlegen 

CISC LDA «SOD 

; Flag für LOAD setzen 

C15E JMP SFF05 

; Sprieß zu LOAD 


Grafik AusschaKen 


C161 LDA SC170 

; Normalwert laden 

C164 STA S0011 

; i.«td speichern 

C167 LDA SC171 

; Normalwert laden 

C16A STA $0018 

; und speichern 

C160 JMP SES44 

C17D BRK 

C171 BRK 

C172 BRK 

C173 BRK 

C174 BRK 

; BiLdschim läschen und ROckaprt/tg 
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Grafik drucken (für FX80 mit VC Interface) 


C175 

JSR 

SAEFO ! 

Auf Konm prOfen 

C178 

JSR 

SB79E ; 

logfsche FilemMMr holen 

C178 

JSR 

tFFC9 ; 

Ausgabsgerät setzen 

C17E 

LDA 

noo : 

Loh und 

C180 

LDY 

«S20 ; 

High Byte laden 

C182 

S1A 

SFD ; 

Zeiger auf 

C184 

STY 

SFE 

Grafik setzen 

C186 

LDX 

«S19 ; 

Anzahl 

C188 

LDY 

«07 ; 

der 

C18A 

BIT 

S05AO ; 

Zei len festlegen 

C180 

LDA 

SC1D6.T; 

Drucker 

C190 

JSR 

1FF02 ; 

auf 

C193 

DET 

• 

t 

GrafikModus 

C194 

BPL 

SC180 ; 

stellen 

C196 

LOA 

«28 ; 

Spalte 

C198 

STA 

S15 

festlegen 

C19A 

LOA 

«80 ; 

Maske 

C19C 

STA 

S97 • 

festlegen 

C19E 

LDA 

«00 ; 

Code 

C1A0 

STA 

SU ; 

festlegen 

C1A2 

LOT 

«S07 ; 

Zähler festlegen 

C1A4 

LDA 

(SFD).r; 

Bitnuster zusannien setzen 

C1A6 

AMD 

S97 ; 

Vergleich ob Bit gesetzt 

C1A8 

BEQ 

SC1B1 ; 

uenn nicht, dann Zähler erniedrigen 

C1AA 

LOA 

SH 

wenn ja 

C1AC 

ORA 

SC1DE.Y; 

dann Bit 

C1AF 

STA 

SU ; 

setzen 

C1B1 

DET 

• 

f 

Zahler ernidrigen 

C1B2 

BPL 

SC1A4 • 

schon Null, wenn ja dann weiter 

C184 

U)A 

St4 

Code an 

C1B6 

JSR 

SFF02 ; 

Drucker senden 

CtB9 

LSR 

S97 ; 

Maske durch 2 

C1BB 

BCC 

SC19E ; 

wenn Null, dann Code festlegen 

C160 

LDA 

SFO ; 

Adresse 

C1BF 

AOC 

«07 ; 

Ln 

C1C1 

STA 

SFD ; 

8 

C1C5 

KC 

SC1C7 ; 

erhöhen 

C1C5 

iirc 

SFE 

Fighbyte erhöhen 
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C1C7 DEC »15 
C1C9 BNE SC19A 
C1CB OEX 
C1CC BNE tCISB 
C1CE LM «SOD 
C1DO JSR SFFD2 
C1D3 JHP SFFCC 


; nächste 
; spalte 
; nächste 
; Zeile 

; Zeilenvorschub 
; swsBeben 

; Ausgabe Mieder auf Bildschini 


Druckertabelle 

Ct06 01 40 06 ZA 1B GD 31 1B 
C1DE 60 40 20 10 06 04 02 01 


Und hier noch ein Ladeprogramm in BASIC: 

100 FOR 1^49152 TO 49637 
110 READ X: F13XE I, X: S>S-»X: NEXT I 
120 DATA 76, 30,192, 76, 60,192, 76, 61,192, 76,109,192 
130 DATA 76,137,192, 76,134,192, 76, 62,193, 76, 57,193 
140 DATA 76,117,193, 76, 97,193 , 32, 60,192,173, 17,208 
150 DATA 141,112,193,173 . 24,208,141,113,193,169 , 59,141 
160 DATA 17,206,169, 24,141, 24,206,162, 16, 76, 67,192 
170 DATA 160, 0,162, 32,132,253,134.254,152,234,145,253 
ISO DATA 200,200,251,230.254.202,206,246, 96, 32,253,174 
190 DATA 32,156,163,160, 0,169, 4,132,253.133,254,138 
200 DATA 162 . 4.145,253.200.206,251,230,254,2 02,206.246 
210 DATA 96,160, 0,169, 32,132,253,133,254,162, 32,177 
220 OATA 253, 73,255,145,253,200,206,247,230,254,202,206 
230 OATA 242, 96,169,128, 44,169, 0,133,151, 32,253,174 
240 OATA 32,235.163,224,200,176,236,165, 21,201, 1,144 
»0 DATA 6,206,230,165. 20,201, 64.176,224,136 , 74, 74 
260 OATA 74, 10,166,185,255,192,141,115,193.165. 0,193 
270 DATA 141,116,193,138, 41, 7, 24,109,115,193,141,115 
260 OATA 193,165, 20, 41,248,141,114,193, 24,169, 0,109 
290 DATA 115,193,133,253,169, 32,109,116,193,133,254. 24 
300 OATA 165.253,109,114.193,133.253,165,254.101, 21,133 
310 DATA 254.t65, 20, 41, 7, 73, 7,170,189, 49,193,160 
320 DATA 0, 36,151, 16, 5, 73,255, 49,253, 44, 17,253 
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330 DATA 145.253. 96, 0, 0, 64. 1.128. 2.192. 3, 0 
340 DATA 5. 64, 6,128 , 7,192 , 8, 0. 10 . 64, 11,128 

350 DATA 12,192, 13. 0. 15. 64. 16,128, 17,192, 18, 0 

360 DATA 20, 64, 21,128, 22,192, 23, 0. 25. 64. 26,128 

370 DATA 27,192, 28, 0, 30, 1, 2, 4, 8, 16, 32, 64 

360 DATA 128, 32,253,174, 32,212,225,162, 0,160, 64,169 
390 DATA 0,133,253,169, 32,133,254,169,253,133,185, 76 
400 DATA 216,255, 32,253,174, 32,212,225,169, 1,133,185 
410 DATA 169, 0, 76.213,255.173.112,193,141, 17,208,173 
420 DATA 113,193.141, 24,208, 76, 68,229, 0, 0, 0. 0 
430 DATA 0. 32.253,174. 32.156,183. 32.201,255.169, 0 
440 DATA 160, 32,133,253,132,254,162, 25,160. 7. 44,160 
450 DATA 5,185,214,193, 32,210,255,136, 16,247,169, 40 
460 DATA 133, 21,169,128,133,151,169, 0,133, 20,160, 7 
470 DATA 177,253, 37,151,240, 7,165, 20. 25,222,193,133 
460 DATA 20,136,206,24 0,165, 20 , 32,210,255 , 70,151,144 
490 DATA 225,165,253,105, 7,133,253,144, 2,230,254.198 

500 DATA 21,206,207,202,206,189,169. 13. 32,210,255, 76 

510 DATA 204,255, 1. 64. 6. 42. 27, 13, 49, 27.126, 64 

520 DATA 32. 16. 6, 4, 2, 1 

530 IF SO60459 THEN PRINT "FEHLER IN DATAS !■>' : end 
540 PRINT "OK !" 


3.10 Wie wende ich das Crafikhilfsprogramm an? 

Das Grafikhilfsprogramm bietet einige Möglichkeiten, die Pro¬ 
grammierung des Grafikbildschirms komfortabler und schneller 
zu gestalten. Der Aufruf der einzelnen Funktionen geschieht 
über SYS- Aufrufe, wobei bei einigen Befehlen noch weitere 
Parameter übergeben werden müssen. 


Der Befehlssatz: 

SYS 49152 

Schaltet den Grafikbildschirm ein, wobei gleichzeitig der Gra¬ 
fikbildschirm gelöscht und die Farbe gesetzt wird. 



136 


64 Intern 


SYS 49155 

Löscht den Grafikbildschirm 

49158.FARBE*16+HINTERCRUND 
Für den angegebenen Wert wird die Punktfarbe mit 16 multipli¬ 
ziert und mit der Hintergrundfarbe addiert. 

SYS 49I6I 

Der Grafikbildschirm wird invertiert. Das heißt, die gesetzten 
Punkte werden gelöscht und die gelöschten gesetzt. So bekom¬ 
men Sie eine negative Abbildung Ihres Bildes. 

SYS 49I64.X.Y 

Ein Punkt wird gesetzt. Die X- und Y-Koordinaten werden 
durch Kommata getrennt. Die X-Koordinate kann von 0 bis 319 
angegeben werden, die Y-Koordinate von 0 bis 199. 

SYS 49I67.X.Y 

Ein Punkt wird gelöscht. Die Koordinaten werden wie beim obi¬ 
gen Befehl übergeben. 

49I70:'NAME’'.CA 

Der Grafikbildschirm wird je nach Geräteadresse von Diskette 
oder Kassette geladen. 

49I73:'NAME”.GA 

Sichert den Grafikbildschirm je nach Geräteadresse auf Diskette 
oder Kassette. 

SYS 49I76.LF 

Druckt den Grafikbildschirm aus. Die logische Filenummer wird 
nach dem Komma eingegeben. Die Hardcopyroutine ist für den 
Epson FX80 mit VC-lnterface vorgesehen. 

SYS 49179 

Schaltet den Grafikbildschirm aus. 

Mit dieser Grafikhilfe kann unser Sinusplotprogramm mit weni¬ 
ger Aufwand und schneller programmiert werden: 
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10 SYS 49152: REM GRAFIK EINSCHALTEN UND LÖSCHEN 
20 SYS 49158.5*1640: REM FARBE SETZEN 

50 FOR X»0 TO 319: SYS 49164,X,100: HEXT X: REM X ACHSE ZEICHNEN 
40 FOR Y»0 TO 199: SYS 49164,160,Y: NEXT Y: REM Y ACHSE ZEICHNEN 
50 FOR X=0 TO 319: Y=100-100*SIN(X*PI/160): SYS 49164,X,Y: NEXT X: 
REM SINUSKURVE 

60 GET AS: IF AS*"" THEN 60: REM AUF TASTE WARTEN 
70 SYS 49179: REM GRAFIK AUSSCHALTEN 


Sie werden festgestellt haben, daß das Zeichnen der Sinuskurve 
und der X-und Y-Achse durch die Assemblerroutinen erheblich 
beschleunigt wird. Sie können das Programm nach Bedarf noch 
erweitern, indem Sie zwischen der Zeile 60 und 70 die Grafik 
abspeichern oder ausdrucken. 


3.11 Interruptprogrammlerung 

Das Wort "Interrupt" kommt aus dem Englischen und heißt 
Unterbrechung. Ein Interrupt in Bezug auf den 6510-Prozessor 
bedeutet eine Unterbrechung des normalen Programmablaufs 
durch andere Chips, zum Beispiel durch den VIC oder eine der 
ClAs. 

Normalerweise wird jede 1/60 Sekunde vom Timer A ein 
Interrupt ausgelöst, indem ein Zähler heruntergezählt wird. 
Wenn der Zähler den Nullpunkt erreicht, erfolgt der Interrupt. 
Genauere Angaben finden Sie unter dem Kapitel Timer. 
Anschließend springt der Prozessor über den Vektor SFFFE 
(65534) und SFFFF (65535) in eine Betriebssystemroutine nach 
$FF48 (65352), wo er dann einige Register zwischenspeichert 
und anschließend über den Interruptvektor $0314 (788) und 
$0315 (789) nach $EA31 (59953) zur eigentlichen Interruptrou¬ 
tine verzweigt, um dort dann unter anderem das Blinken des 
Cursors und die Abfrage der Tastatur zu verwalten. Der Clou an 
der ganzen Sache ist der, daß man den Interrupt in seine eigene 
Maschinenroutine verzweigen lassen kann, und zwar über die 
Register $0314 (788) und $0315 (789). Die Adresse für die 
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Interruptroutine ist in diesen Registern in Low- und Highbyte 
abgelegt, und zwar steht in der Adresse $0314 das Low- und 
und in der Adresse $0315 (789) das Highbyte. Zu beachten ist, 
daß vor dem Ändern dieses Vektors das Auslösen einer Unter¬ 
brechung durch den Assembler-Befehl SEI verhindert werden 
muß, damit nicht die Gefahr besteht, daß der Prozessor schon 
nach Ändern von nur einem Byte dieses Zeigers versucht, in 
eine Interruptroutine zu verzweigen. Nach Ändern der beiden 
Adressen sollte man es dem Prozessor durch den Assembler- 
Befehl CLI wieder ermöglichen, Interrupts abzuarbeiten. Zu 
beachten ist außerdem noch, daß man seine eigene Routine mit 
einem Sprung in die Interruptroutine des Betriebssystems been¬ 
den sollte, also mit JMP $EA3I. 

Zu erwähnen ist noch, daß die hier aufgeführten Beispiel¬ 
programme mit dem abgedruckten Maschinensprachemonitor 
einzugeben sind. 


Hierzu ein Beispiel: 

COOO SEI : Interrupt verhindern 

cool LDA «DD ; Lowbyte 

C003 STA $0314 ; setzen 

C006 LDA «SCO ; Highbyte 

C008 STA $0315 ; setzen 

COOB CLI ; Interrupt wieder ermöglichen 

COOC RTS ; Pro9rannende 


Interruptroutine: 

COOd INC $0020 ; Rahnenfarbe erhöhen 

C010 JHP SEA31 ; Sprung zur Systeei-lnterruptroutine 


Das Programm wird mit SYS 49152 gestartet. Nach dem Start 
blinkt die Rahmenfarbe, während Sie sich noch im normalen 
Basic befinden. Sie können den Zähler des Timers A, der den 
Interrupt auslöst, nach Belieben beschleunigen oder verlang- 
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Samen; dieses geschieht, indem man den Startwert des Zählers 
erhöht oder erniedrigt. Das Highbyte des Zählers befindet sich 
in der Adresse $DC05 (56325). Wenn man durch POKE 56325, 
WERT den Zähler erhöht, wird der Interrupt entsprechend sel¬ 
tener ausgeführt. Wenn Sie den Zähler erniedrigen, wird der 
Interrupt öfter ausgefOhrt; nun muß man darauf achten, daß 
man den Zähler nicht zu sehr erniedrigt, da sonst der Interrupt 
zu häufig ausgeführt wird und dadurch der Ablauf anderer Pro¬ 
gramme erheblich verlangsamt und der Cursor zu sehr beschleu¬ 
nigt wird. Auch die LIST- Funktion würde sehr lange Zeit 
beanspruchen, um ein Basicprogramm aufzulisten. 

Die Möglichkeiten des Interrupts sind noch lange nicht er¬ 
schöpft. Es ist zum Beispiel möglich, die Kollision zwischen 
zwei oder mehr Sprites oder die Kollision von Sprites mit dem 
Hintergrund über den Interrupt abzufragen. Dies hat den Vor¬ 
teil, daß die Abfrage um einiges genauer ist als die vom Basic 
aus. Wenn zwei Sprites miteinander kollidieren, wird, falls er¬ 
laubt, ein Interrupt ausgelöst, den man dann zu einer eigenen 
Routine verzweigen lassen kann. 

Ein Interrupt vom VIC kann von folgenden Ereignissen ausgelöst 
werden: 


- vom Rasterstrahl 

- Kollision von Sprites 

- Kollision von Sprites und Hintergrunddaten 

- Lightpen 

Doch zunächst wollen wir uns mit der Spritekollision beschäfti¬ 
gen. 

Es gibt ein sogenanntes Interrupt Enable Register, wo festgelegt 
wird, von welchem Ereignis ein Interrupt ausgelöst werden soll. 
Dies geschieht, indem man das entsprechende Bit im Interrupt 
Enable Register setzt. Dadurch hat man angegeben, von welchem 
Ereignis der Interrupt ausgelöst werden soll. Folgende Bits im 
Enable Register entsprechen folgenden Ereignissen: 
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Bttmuster 

Interruptquelle 

0001 

Rasterstrahl 

001 0 

Kollision zwischen Sprites und Hintergrunddaten 


Kollision zwischen Sprites 


Lightpen 


AbbS.ll: Interrupt Modi 


Freigegeben wird ein Interrupt, indem das entsprechende Bit im 
Enable Register, Adresse SDOIA (53274), auf 1 gesetzt wird. Die 
restlichen Bits, also die Bits 4 bis 7, sind unbenutzt. Wenn nun 
durch ein Ereignis ein Interrupt ausgelöst wird, dann wird 
automatisch das entsprechende Bit im sogenannten Interrupt 
Latch Register, Adresse $D019 (53273), gesetzt. Gleichzeitig 
wird bei jedem der oben aufgezählten Ereignisse Bit 7 von 
$D019 ebenfalls gesetzt. Hierdurch hat man die Möglichkeit zu 
unterscheiden, ob der Interrupt vom VIC oder von der CIA 
beziehungsweise von welchem Ereignis speziell die Unterbre¬ 
chung ausgelöst wurde. 

Hier ein Beispielprogramm, das, wenn das Sprite mit Hinter¬ 
grunddaten kollidiert, die Rahmenfarbe erhöht; 


cooo 

SEI 

t 

Interrupt verhindern 

cool 

LDA #S01 

• 

t 

Sprite 1 

C003 

STA SD013 

S 

einschalten 

CO06 

LDA #S80 

« 

t 

Spri tepointer 

cooe 

STA S07F6 

» 

t 

auf $2000 setzen 

COOB 

LOA #$64 

« 

r 

Sprite X und y 

cooo 

STA SOOOO 

• 

# 

Koordinaten 

o 

o 

»e 

o 

STA $0001 

■ 

» 

festlegen 

C013 

LDA #$32 

1 

Interrupt 

C015 

STA $0314 

• 

t 

auf 

C018 

LDA #$C0 

• 

t 

$C032 
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C01A STA S0315 ; (.nlenken 

C01D LDA SD01A ; Interrupt 

C020 OfiA #S02 ; EnabLe Register auf 

C022 STA SD01A ; Spritehintergrundkollision stellen 

C025 LDX «SOO ; Sprite- 

C027 LDA SC046,X; daten 

C02A STA S2000,X; nach 

C02D IHX ; S2000 

C02E BNE SC027 ; kopieren 

C030 CLI ; Interrupt wieder erlauben 

C031 RTS ; Progranntende 

Interruptroutine 

C032 LDA SD01F ; KoUisionsreoister löschen 
C035 LDA SD019 ; Latchregister laden 
C038 STA SD019 ; und löschen 

C03B BMI SC040 ; wenn Bit 7 gesetzt, dann Farbe erhöhen 
C030 J)** SEA3i ; ansonsten zur normalen Interruptroutine 
C040 INC S0020 : Rahmenfarbe erhöhen 
C043 JMP SEA31 ; Sprung zur Interruptroutine 

Spritedaten 

C046 00 00 00 OF FF CO 10 00 
C04E 20 20 00 10 4C 01 88 4C 
C056 01 88 40 00 08 40 00 08 
C05E 40 00 08 46 06 08 43 OC 
C066 08 41 98 08 40 FO 08 40 
C06E 60 08 20 00 10 1F FF EO 
C076 00 00 00 00 00 00 00 00 
C07E 00 00 00 00 00 00 00 » 


Nach dem Programmstart wird die Rahmenfarbe erhöht, falls 
ein Hintergrundzeichen mit dem Sprite kollidiert. Anstatt die 
Rahmenfarbe zu erhöhen, könnte man zum Beispiel das Sprite 
explodieren lassen und so weiter. Dies eignet sich gut für die 



142 


64 Intern 


Programmierung von eigenen Spielen. Die Möglichkeiten sind 
praktisch unbegrenzt. 

Diese Routine kann man leicht in eine Sprite-Sprite Kollisions¬ 
abfrage umändern, indem man im sogenannten Enable Register 
den Interrupt bei einer Sprite-Sprite Kollision freigibt. Dazu 
brauchen Sie nur in der Adresse SC020 in unserer Routine Bit 2 
zu setzen, dann wird nur ein Interrupt ausgelöst, wenn zwei 
Sprites miteinander kollidieren. 

Noch eine weitere Besonderheit des VIC ist der Rasterzeilen¬ 
interrupt. Wenn ein Schreibzugriff auf das Register SD012 
(53266) und Bit 7 der Adresse SDOll (53265) erfolgt, wird der 
Wert in ein internes Latchregister übertragen. Beim Lesezugriff 
wird in diesen Registern die momentane Zeile, in der sich 
gerade der Rasterstrahl befindet, angegeben. Kommt der 
Rasterstrahl in die angegebene Zeile, so wird im sogenannten 
Latchregister Bit 0 gesetzt. Ist zusätzlich noch im sogenannten 
Enableregister Bit 0 gesetzt, wird ein Interrupt ausgelöst. 

Durch diese Möglichkeit des Interrupts kann man zum Beispiel 
den Textbildschirm und den Grafikbildschirm kombinieren, 
indem man bei der angegebenen Bildschirmzeile den Grafik¬ 
bildschirm mittels Interrupt aus- beziehungsweise einschaltet, so 
daß in der oberen Hälfte des Bildschirms der Grafik- und in der 
unteren Hälfte der Textbildschirm eingeschaltet ist. 

Um Ihnen diese Möglichkeit zu demonstrieren, haben wir ein 
Programm vorbereitet, das zwei verschiedene Bildschirmfarben 
gleichzeitig darstellen kann; 


COOO SEI ; Interript verhind«rn 

C001 LDA #S1F ; Systm- 

C003 STA $0314 ; int«rrupt 

C006 LOA #SC0 ; auf C01F 

C008 STA S0315 ; stellen 

COOB LOA «$60 ; Rasterteile oben 

COOO STA S0012 ; festlegen 

C010 LOA IO011 ; Kigh- 
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C013 ANO i»7F ; bit 

C015 STA S0011 ; Löschen 

C018 LDA ASFI ; Interrupt Enableregister 

C01A STA S001A ; auf Rasterzeileninterrupt stellen 

C01D CLI ; Interrupt wieder eriüglichen 

C01E RTS ; Prograw«nde 


Interruptroutine 

C01F LDA SD019 ; Interruptregister laden 
C022 STA S0019 ; und Löschen 

C025 BMI SC02E ; Bit 7 gesetzt?, wenn ja, dann zu Rasterz. 

C027 LOA SOCOD ; ansonsten CIA Interrupt verhindern 

C02A CLI ; Interrupt ermöglichen 

C02B JHP SEA31 ; zur normalen Interruptroutine 

C02E LDA SD012 J Rasterstrahl 

C031 CMP «70 ; schon unten? 

C033 BCS SC045 ; wenn ja, dann Farbe auf schwarz schalten 

C035 LOA «04 ; ansonsten 

C037 STA »020 ; Farbe auf Purpur 

C03A STA SD021 ; schalten 

C03D LDA «70 ; Rasterstrahl auf Zeile 

C03F STA SD012 ; *70 stellen 

C042 JHP SEA61 : und abschLießen 

C045 LDA «00 ; Farbe 

C047 STA SD020 ; auf schwarz 

C04A STA SD021 ; schalten 

C04D LDA «60 ; Rasterstrahl auf 

C04F STA SD012 ; Zeile *60 legen 

C052 JHP SEA81 ; und abschliefien 

Die Farben können je nach Bedarf in den Adressen $C03S und 
$C04S geändert werden. Die Breite des Farbstreifens kann in 
den Adressen $C031, $C03D und SC04D geändert werden. 

Es ist vorteilhaft, wenn Sie mit dem Programm experimentieren, 
um so die Handhabung mit dem Rasterzeileninterrupt schneller 
zu erlernen. 
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3.12 Feinscrolling (Laufschrift) 

In den Bits 0 bis 2 in der Adresse $D0I6 (53270) ist es möglich, 
den Bildschirm punktweise nach rechts oder nach links zu ver¬ 
schieben. Durch diesen Vorteil ist es möglich, den Zeichensatz 
so fließend wie ein Sprite über den Bildschirm scrollen zu las¬ 
sen. Da ein Zeichen horizontal aus 8 Bits besteht, und man den 
Bildschirm 7 Bits nach links oder nach rechts verschieben kann, 
besteht die Möglichkeit, ein oder mehr Zeichen so fein zu 
scrollen. Das gleiche gilt auch für die Bits 0 bis 2 in der Adresse 
$D011 (S326S), nur mit dem Unterschied, daß der Bildschirm 
hoch und runter geschoben werden kann. 

Dies geht folgendermaßen vor sich: Der Bildschirm wird um sie¬ 
ben Bits nach rechts verschoben. Anschließend wird ein Zeichen 
gelöscht und eine Position weiter nach vorne gebracht, wobei 
der Bildschirm vorher wieder um 7 Bits zurückgesetzt wird. 
Dadurch wird ein vollkommenes Fließen des Textes erreicht. 

Um Ihnen das zu demonstrieren, haben wir ein Programm ent¬ 
wickelt, das einen Text, den man frei angeben kann, von rechts 
nach links über den Bildschirm laufen läßt. Auch dieses Pro¬ 
gramm kann mit dem abgedruckten Maschinensprachemonitor 
eingegeben werden: 


COOO SEI 

Interrupt verhindern 

C001 JSR SE544 

Bildschirm löschen 

C004 LOA MSS 

Stertadresse 

C006 STA SFB 

für den 

C006 LOA «SCO 

Text 

COOA STA SFC 

angeben 

COOC LOY «SOO 

Bedingung für 

CODE BEO SC039 

unbedingten Sprung 

C010 LOA SD012 

auf Rasterstrehl 

C013 BNE SC010 

warten 

C015 LOX S0016 

Verschieberegister laden 

C018 OEX 

uid erniedrigen 

C019 CPX «SBF 

mit untersten Wert vergleichen 
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C01B BNE SC03B 
C01D LDX «00 
C01F LOA $05E1,X 
C022 STA SOSEO.X 
C025 IHX 
C026 CPX «27 
C028 BNE SC01F 
C02A LOA (SFB),Y 
C02C CHP lYSFF 
C02E BEO SC004 
C030 STA S0607 
C033 INC SFB 
C035 BNE SC039 
C037 INC SFC 
C039 LOX «C7 
C03B STX SD016 
C03E LDX «00 
C040 LOY «06 
C0&2 OEX 
C0&3 BNE SC042 
C045 OEY 
C046 BNE SC042 
C04e LOA «00 
C04A STA SOCOO 
C04D LOA SDC01 
C050 CHP «FF 
C052 BEO SC010 
C054 RTS 


wenn nicht, dann zur Warteschleife 
Zähler auf Null stellen. 

Zeile iin ein 
Byte verschieben 
Zähler erhöhen 
schon ganze Zeile 
nein, dann weiter 
Zeichen holen 

überprüfe auf Enchtsrkierung 
wenn ja, dann von vorne beginnen 
geholtes Zeichen auf Bildschirm bringen 
Zeiger auf nächstes Zeichen stellen 
verzweige wenn kein Überlauf 
High-Byte des Zeigers erhöhen 
Versehieberegi ster 
zurücksetzen 
Ver- 
ZÖ" 
ger- 
ungs 
Schl¬ 
eife 

Warten auf 
Taste 

wenn nicht gedrückt 
dann wieder 
zum Anfang, ansonsten 
Progratmende 


Der Text für die Laufschrift. 

COSS 2A 2A 2A 20 04 01 14 01 
C05D 20 02 05 03 OB 05 12 20 
C065 2A 2A 2A 20 20 20 20 20 
COöO 20 20 20 20 20 20 2A 20 
C075 20 20 FF 00 00 00 00 00 
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Das Programm können Sie mit irgendeiner Taste unterbrechen. 
Den Text können Sie selbst ab der Adresse SC0S5 angeben, 
wobei zu beachten ist, daß der Text in Bildschirmcodes angege¬ 
ben ist. 

Um den Programmablauf zu beschreiben, fangen wir bei der 
ersten Zeile unseres Programms an. 

Ein SEI ist deshalb nötig, weil der Interrupt, der von der CIA 
ausgelöst wird, ein Zucken der scrollenden Zeichen hervorrufen 
würde. Um das gleiche zu vermeiden, wird noch in den Zeilen 
SCOlO und $C013 auf den Rasterstrahl gewartet, bis dieser sich 
wieder in der ersten Zeile befindet. Die Zeitschleife wird benö¬ 
tigt, weil die Verschiebung sonst zu schnell erfolgen würde und 
das dazu führen würde, daß die Zeichen wiederrum zucken 
würden. 

Da die Tastaturabfrage beim maskierten Interrupt nicht über Get 
erfolgen kann, muß diese direkt über den Port geschehen. 

Das Laufschriftprogramm kann in eigenen Programmen einge¬ 
baut werden, um diese optisch schöner zu gestalten. 


3.13 Screen-Scrolling 

Das Verschieben des Bildschirminhalts in eine bestimmte Rich¬ 
tung nennt man SCROLLING. Der C64 kann normalerweise den 
Bildschirminhalt nur in eine Richtung verschieben. Dies ge¬ 
schieht im BASIC-Modus, wenn der Cursor über den unteren 
Bildschirmrand bewegt wird oder der Cursor durch den PRINT- 
Befehl über den unteren Bildschirmrand gedruckt wird. 

Es ist manchmal aber auch notwendig, den Bildschirminhalt in 
eine andere Richtung zu verschieben, zum Beispiel den Hinter¬ 
grund bei einem Spiel nach links oder rechts zu verschieben. 

Dazu sind aber eigene Scrollroutinen notwendig, die den Bild¬ 
schirminhalt sauber- und ruckfrei über den Bildschirm laufen 
lassen. Um dieses feine und saubere Scrolling zu erreichen, 
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müssen die Scrollroutinen sehr ausgetüftelt sein, weil es beim 
Scrollen sehr stark auf Zelt ankommt. Schon ein Taktzyklus in 
der Routine kann zuviel sein, und der Rasterstrahl kommt beim 
Verschieben ins "Gehege*. Das hat zur Folge, daß es zu einem 
"häßlichen” Zucken des Bildschirms kommt. 

Der VIC kann die Scrollroutine unterstützen, da man die Mög¬ 
lichkeit hat, den Bildschirminhalt innerhalb der 8 * 8-Matrix zu 
verschieben. Das geschieht, indem man das Register in der 
Adresse $D016 (53270) verändert. 

Dabei sind für das Scrollen nur die Bits 0-2 wichtig. Wenn 
man hier den Wert hoch- bzw. herunterzählt, wird der Bild¬ 
schirminhalt nach rechts oder links verschoben. Da ein Zeichen 
aber nur 8 Pixel horizontal und vertikal hat, kann man den 
Bildschirminhalt maximal 7 Pixel in die jeweilige Richtung ver¬ 
schieben. Anschließend muß man den Bildschirminhalt mittels 
einer eigenen Scrollroutine um 8 Pixel, also zeichenweise ver¬ 
schieben. Da dieses Verschieben sehr schnell geschehen muß, 
kann die notwendige Geschwindigkeit nur durch ein Maschinen¬ 
programm erreicht werden. 

Die Scrollroutinen funktionieren folgendermaßen: 

Der Bildschirminhalt wird erst mit Hilfe der Verschieberegister 
in $D016 (53270) und SDOll (53265) pixelweise in die jeweilige 
Richtung verschoben. Dabei muß wieder auf den Rasterstrahl 
geachtet werden, der das Bild fünfzigmal in der Sekunde neu 
aufbaut. Das stellt auch kein Problem dar. Man wartet, bis der 
Rasterstrahl in einem unsichtbaren Bereich des Bildschirms ist 
und verschiebt dann ein Pixel in die erwünschte Richtung. 

Nachdem man den Bildschirminhalt auf diese Weise siebenmal 
verschoben hat, kommt das eigentliche Problem; Die gesamten 
Zeichen eine Zeile müssen verschoben werden, aber die Ver¬ 
schiebung darf nicht länger als 1/50 Sekunde dauern. 

Diese Geschwindigkeit erreicht nur eine ausgetüftelte Kopier¬ 
routine. Aber auch hier muß vorher auf den Rasterstrahl ge¬ 
wartet werden. 
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Die fertigen Scrollroutinen sind sowohl in Datazeilen als auch im 
Source-Code abgedruckt. Die Routinen liegen alle im Speicher 
ab SCOOO (49152), von wo sie auch gestartet werden. 

Man lädt einfach das fertige Maschinenprogramm in den 
Speicher oder startet den BASIC-Loader mit RUN. 

Anschließend braucht man einfach nur das Maschinenprogramm 
mit SYS 49152 aufzurufen, und schon scrollt der Bildschiminhalt 
in die vorher festgelegte Richtung. 

Hier sind also vier Scrollroutinen für die vier verschiedenen 
Scroll-Richtungen abgedruckt; 


cooo 

sei 


Interrupt sperren 

C001 

LßX 

§S07 

Zähler setzen 

C003 

LDA 

»011 

Verschieberegister 

C006 

or« 

§S07 

setzen 

C008 

STA 

$0011 

und speichern 

COOB 

LDY 

§S06 

Pixel 

COOD 

JSR 

SC06C 

verschieben 

C010 

oex 


Zähler vernindern 

C011 

BNE 

SCOOD 

weiter, wenn 

versclioben 

C013 

LOA 

SD011 

auf 

C016 

BLP 

$C013 

Rasterstrahl 

C018 

lOA 

SO011 

warten 

C01B 

BHI 

SC018 

und 

C01O 

LOA 

SS6B 

die 

COlf 

CMP 

S0012 

Position 

C022 

BNE 

scoto 

ermitteln 

C024 

IDT 

»28 

Zähler laden 

C026 

LOA 

S03Ff,Y 

Zeichen holen 

C029 

STA 

SC076,Y und speichern 

C02C 

0€Y 


nächstes Zeichen 

C02D 

BNE 

SCCI26 

wenn fertig, dann 

weiter 

C02F 

LOA 

S0428,Y 

Zeichen holen 

C032 

STA 

S0400,Y 

und speichern 

C035 

INY 


nächstes Zeichen 
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C036 6NE tC02F fertig, dann weiter 
C036 LDA t0525,r Zeichen holen 
C038 STA SOSOO.T und speichern 
C03E INT nächstes Zeichen 

C03F BNE SC036 fertig, dann weiter 
C041 LDA S0625,T Zeichen holen 
CIM4 STA S0600,T und speichern 
C047 INT nächstes Zeichen 

C046 BNE SC041 fertig, dann weiter 
C04A LOT iS40 Zeiger setzen 
C06C LDA S06E8,T Zeichen holen 
C04F STA S06C0,T und speichern 
C052 INT nächstes Zeichen 

C053 BNE SC04C fertig, dann weiter 
C055 LDT iS27 Zeiger setzen 
C057 LOA SC077,T Zeichen holen 
COSA STA S07C0,T und speichern 
COSO DET nächstes Zeichen 

COSE BPL $C0S7 fertig, dann weiter 
C060 LOA S0011 Verschieberegister 
C063 ORA §$07 zurücksetzen 
C065 STA $0011 und speichern 
C068 NOP 

C069 JHP $C00B zun Start 

Unterroutine für Pixelverschiebung 


C06C 

LDA 

$0012 

auf 

C06F 

CMP 

§$FA 

Rasterstrahl 

C071 

BNE 

$C06C 

warten 

C073 

OEC 

$0011 

verschieben 

C076 

RTS 


Rücksprung 

COOO 

SEI 


Interrupt sperren 

C001 

LOA 

s$10 

Verschieberegister 

C003 

STA 

$0011 

setzen 

C006 

LDX 

i$06 

Zähler setzen 

COOO 

JSR 

$C061 

Pixel verschieben 

o 

O 

8 

DEX 


Zahler erniedrigen 

COOC 

BNE 

$C006 

fertig, dann weiter 
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COOE 

LDA 

SD011 

Bildschirm 

C011 

AND 

§SEF 

aus- 

C013 

STA 

S0011 

schalten 

C016 

tOY 

§S27 

Zeiger setzen 

C018 

LDA 

S07C0,Y 

Zeichen holen 

C01B 

STA 

SOIOO.Y 

und speichern 

C01E 

DET 


nächstes Zeichen 

C01F 

BPL 

tC018 

fertig, dann weiter 

C021 

LDA 

SO6C0,Y 

Zeichen holen 

C024 

STA 

S06E8,Y 

und speichern 

C027 

DET 


nächstes Zeichen 

C028 

BME 

SC021 

fertig, dann weiter 

C02A 

DET 


Zeiger setzen 

C02B 

LOA 

$05C1,Y 

Zeichen holen 

C02E 

STA 

S05E9,Y 

und speichen 

C031 

DEt 


nächstes Zeichen 

C032 

BNE 

SC02B 

fertig, dann weiter. 

C034 

DEY 


Zeiger setzen 

C035 

LOA 

S04C2,Y 

Zeichen holen 

CC^ 

STA 

S04EA,Y 

und speidiern 

C03B 

DEY 


nächstes Zeichen 

C03C 

BNE 

SC035 

fertig, dann weiter 

C03E 

LOY 

ISC3 

Zeiger setzen 

C040 

LOA 

S03FF,Y 

Zeichen holen 

C043 

STA 

S0427,Y 

und speichern 

C046 

DEY 


nächstes Zeichen 

C047 

BNE 

SC040 

fertig, dann weiter 

C049 

LOY 

§S27 

Zeiger setzen 

C04B 

LDA 

S0100,Y 

Zeichen holen 

C04E 

STA 

S0400,Y 

und speichern 

C051 

DEY 


nächstes Zeichen 

C052 

BPL 

SC04B 

fertig, dann weiter 

C054 

LDA 

»0011 

Bild¬ 

C057 

AND 

§SF8 

schirm 

C059 

ODA 

§S10 

wieder 

COSB 

STA 

»0011 

einsciialten 

C03E 

.INP 

»cooo 

ZUM Start 
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Unterroutine zur Pixelverschiebung 


C061 

LDA 

tD012 

auf 

C064 

CHP 

SSFB 

Rasterstrahl 

C066 

BNE 

SC061 

warten 

C066 

INC 

SDOII 

verschieben 

C06e 

RTS 


Rücksprung 


COOO 

LDA 

$0016 

Versehteberegister 

C003 

AND 

$SF8 

setzen 

C005 

STA 

$0016 

und speichern 

C008 

SEI 


Interrupt sperren 

C009 

LDX 

§S06 

Anzahlverschiebung 

COOB 

JSR 

SCD60 

Punktverschiebung 

COOE 

DEX 


Zähler erniedrigen 

COOF 

BNE 

SCOOB 

wenn 7mal verschoben, 

dann weiter 

C011 

LOA 

$D011 

Auf 

C014 

BPL 

SC011 

Rasterstrehl 

C016 

LDA 

$0011 

wrten 

C019 

SMI 

$C016 

und 

C01B 

LDA 

§$49 

Position 

C01O 

tXP 

$0012 

ermitteln 

C020 

BNE 

SCOId 

ok, dann weiter 

C022 

LDX 

§SFF 

Adressen 

C024 

STX 

SFB 

für 

CD26 

INX 


Xopierroutine 

C027 

STX 

SFO 

festlegen 

C029 

LDA 

«S03 

und 

C02B 

STX 

$FC 

wieder 

C02D 

INX 


speichern 

CD2E 

STX 

SFE 

Carryflag 

C030 

CLC 


löschen 

C031 

LDX 

§S19 

Zähler 

C033 

LDY 

§$27 

festlegen 

C035 

LDA 

{$FO),T 

Zeichen holen 

C037 

PHA 


und speichern 

C038 

LOA 

<$FB).Y 

Zeichen holen 

ca3A 

STA 

(SFDJ.Y 

und speichern 
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C(J3C 

OEY 


nächstes Zeichen 

C03D 

BNE 

SC038 

weiter, wenn fertig 

C03F 

PLA 


Zeichen holen 

C040 

STA 

($FD>,Y 

ind speichern 

COiZ 

LOA 

SFB 

Zeiger 

C044 

ADC 

§S28 

fOr 

C066 

STA 

SFB 

neue 

C048 

LOA 

src 

Bildschirm* 

C04A 

ADC 

§soo 

koordinaten 

C04C 

STA 

SFC 

berechnen 

C04E 

LDA 

SFD 

und 

coso 

ADC 

IS28 

wieder 

COS2 

STA 

SFD 

neu 

C054 

LDA 

SFE 

fest¬ 

0056 

ADC 

ISOO 

legen 

C0S8 

STA 

SFE 

Zähler 

COSA 

OEX 


vernindern 

C0S6 

BNE 

SC033 

Wenn alles verschoben 

dann weiter 

COSD 

JHP 

scooo 

zifs Stert 


Unterprogramm für Pixelverschiebung 

CD60 LOA §SFB 

auf 

C062 CMP SD012 

Resterstrahl 

coas BNE SCCI62 

warten 

C067 INC S0016 

Pixel verschieben 

C06A RTS 

Rücksprung 


COOO 

LDA 

S0016 

Verschiebe Reg. 

C003 

ORA 

SS07 

laden und Setzen 

C005 

STA 

tD016 

und Speichern 

C008 

SEI 


Interrupt Sperren 

C009 

LDX 

S$06 

7twl verschieben 

COOB 

JSR 

$C068 

verschieben 

CODE 

DEX 


Zähler vermindern 

COOf 

BNE 

SCOOB 

Uerm 7 mal verschol 


dann weiter 
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C011 

LDA 

tOOll 

Auf 

C016 

BPL 

SC011 

Rasterstrshl 

C016 

LOA 

$0011 

warten 

cai9 

BHl 

SC016 

und 

C01B 

LOA 

§S3C 

Position 

C010 

CHP 

SD012 

ermitteln 

C020 

BNE 

SC01D 

falls gefunden, darrt weiter 

£022 

LOX 

§t27 

Uerte 

£024 

STX 

SFB 

für 

C026 

INX 


die 

C027 

STX 

$F0 

Kopieroutine 

C029 

LOX 

§103 

festlegen 

C02B 

STX 

IFC 

und 

C02D 

STX 

IFE 

speichern 

C02F 

CLC 


Cerry löschen 

£030 

LOX 

§119 

Zeiger 

C032 

LOY 

§109 

holen 

C03i 

IDA 

<1FB>.Y 

Zeichen holen 

C056 

PHA 


ZHischenspeichem 

Co37 

LOA 

(IFD).Y 

Zeichen von alter 

C039 

STA 

(1FB),Y 

Stelle holen und in 

neuer speichern 

C03B 

INY 


nächstes Zeichen 

C03C 

BNE 

SC037 

Uenn alles verschoben 

, dann weiter 

C03E 

DEY 


Zähler erniedrigen 

£03 F 

PLA 


Alten Zähler holen 

C040 

STA 

CIFDJ.Y 

und speichern 

C042 

LOA 

SFB 

neue 

C044 

AOC 

§126 

Bild- 

£046 

STA 

SFB 

koordinaten 

£046 

LDA 

1F£ 

berech¬ 

C04A 

A0£ 

§100 

nen 

C04C 

STA 

IFC 

und 

C04e 

LOA 

IFO 

wieder 

£030 

AOC 

§126 

neu 

£052 

STA 

IFO 

setzen 

£034 

LOA 

IFE 

für 

CQS6 

ADC 

§100 

wettere 

£056 

STA 

IFE 

Zeilenverschiebvtg 
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COS« DEX 
COSB BNE SC032 

C050 LOA SD016 

C060 ORA §$07 
C062 STA $0016 
C065 JHP SCDOO 


Zähler erniedrigen 

Uenn alles verschoben 

dann weiter 

Versch feberegister 

laden 

und neu 

setzen 

zun Start 


Unterroutine für Pixelverschiebung 


C06S LOA §$FB 
C06A CMP $0012 
C060 BNE $C06e 
C06F DEC $0016 
C072 RTS 


Auf 

Rasterstrahl 

warten 

Pixel verschieben 
Rücksprung 


100 forisltoiS9step1S:for j «OtolA:re8da$:b$=right$(aS.1) 

105 a=asc(B$)-66:ifa>9thena*a-7 
110 b=asc<b$)-§6:ifb>9thenbxb-7 

120 a>a*16«b:c-(c+a>arid255:poke69151'»i+j.ainextireadaiifcsathenc- 
Ornextiend 

130 prinffehler in zeile:";peek(63)'»peek{6§)*256:stop 

300 data 78.a2,07,ad,11,d0,09.07.8d,11,d0,a2,06,20,6c, 97 

301 data c0,ca.dO,fa,ad,11,dO,10,fb,Bd,11,dO.30.fb,a9, 79 

302 data 6b,cd,12.d0,d0,f9,a0.26.b9.ff.03,99.76.c0.88. 189 

303 data d0.f7.b9.28.04.99,00.04,c8,dO,f7.b9,28.0S,99. 87 

304 data 00.0s,c8,d0.f7,b9,2e,06,99,00,06.c8,d0,f7,a0. 73 

305 data 40.b9.e8.06.99,c0.06.c8,d0,f7.a0,27,b9.77.c0. KO 

306 data 99,c0.07,88,10,f7,ad,11,d0,09,07,8d,11,d0,ea, 229 

307 data 4c,0b.c0,ad,12.ct0,c9,fa,d0,f9,ce,11,d0,60,00, 65 

308 data 00,00,00,00,00,00,00,00,00,00.00,00,00,00,00, 0 

309 data 00.00,00,00,00,00,00.00,00,00.00.00.00,00,00, 0 

310 data 00,00,00,00,00,00,00,00,00.00.00,00.00,00,00, 0 
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iiH) fori=1to106step1S:forJs0to14:read8t:bSBrightS(at,1) 
a=asc(8t)-46:ifa>9thena>8*7 
MO b=asc(bS)-4fl:ifb>9ther<J*b*7 

I/O a=a*16+b:c=(c+8)and2$S:poke491S1+i+j, a:next:raeda: ifc=8thenC3 
i).nrnt:end 

Md print"fehler irt zei Le:";peek(63)'«-peek(66)*2$6:stop 
i/ita 76,89,10,8d.11.d0,82,06,20,61,c0,ca,cl0,fa,ad, 201 
i idta 11.d0,29,ef.8d.11,d0,a0.27.b9.c0,07.99.00.01. 72 
i;.t8 88,10,f7.b9.c0,06,99,e8.06.88,d0.f7.88,b9.c1. 230 
i.ita 05,99.e9,05.88,d0.f7.88.b9.c2,04.99.88.04,88. 241 
hta d0.f7,a0,c3.b9.ff.03.99.27.04.e8.d0.f7.a0.27. 191 
nta b9.00.01,99,00.04,88.10,f7,8d.11.d0.29.f8,09, 158 
i.ita t0.8d,11 ,d0.4c,00,c0,8d,12,d0.c9,fb,<l0.f9,ee, 148 
lata 11,d0,60,00,00,00,00,00,00,00,00,00,00,00,00, 65 


iaric1to107step15:forjsOto14:readaS:bS*rightS(aS,1) 
i:asc(8S}-46: i fa>9thena°a-7 
i>-asc(bt)-48: ifb>9thenb=b-7 

' 'a*16+b:ca(c+a}and255:poke49151+i^j, sinext: reada: ifc^athenc* 
't :end 

i>rint"fehler in zei le:";peek(63)+peek(64)*256:stop 
lata Bd,16,d0.29,f8.8d, 16,d0,78.a2,06,20.60,cO.ca. 81 
lata d0.fa,8d,11,d0,10.fb,ad,11,d0.30.fb.a9,49,cd, 219 
lata 12.d0,d0,fb.a2.ff.86.fb,e8,86,fd,a2.03,86,fc, 97 
i.ita e8,86,fe,18,82,19,a0,27,b1,fd,48.b1.fb,91,fd, 54 
iita 88,d0.f9,68,91,fd,a5.fb,69.28,85,fb.a5.fc.69. 2 
lata 00,85,fc.a5,fd,69,28,85.fd,85.fe,69.00,85.fe. 197 
lata ca.d0.d6.4c,00,c0,a9,fb,cd,12,d0,d0,fb,ee,16, 158 
lata d0,60,12,d0.d0,f9,ce,16,d0,60,00,00,00,00.00, 239 


' iori=1to115step15:forj=0to14:read8$:bS°rightS(a$,1) 

' .■isasc(aS)-48: i fa>9thena=a-7 
"II b=asc(b$)-46: ifb>9thenb=b-7 

i.'ii ,ai8*16^b:c*(c+a)and255:pake49151'«-i'«-j,a:next:reada:ifc«athenC' 
.«t:end 

iirinffebler in zeile:";peek(63}'«-peelc(64)*256:stop 
lata ad.16,d0,09,07,sd,16,d0,78,a2,06,20,68,c0,ca. 72 
lata d0,f8,ad,11,d0,10,fb,ad,11,d0,30,fb,a9,3c,cd, 206 
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302 data 12,d0,d0,fb,a2,27,86.fb,e6,86,fd,a2,03,86,fc, 137 

303 data 86,fe.18,a2,19.a0,d9,b1 ,fb.(0,b1 ,fd,91,fb.c6, 198 
306 data d0,f9.88,68,91,fd.a5.fb,69,28.05,fb.a5,fc,69, 2 

305 data 00,85,fc,a5,fd,69,28,85,fd,a5,fe,ö9,00,05.fe, 197 

306 data ca.d0,d5,ad,16,d0,09,07,8d, 16,d0,6c,00,c0.a9, S8 

307 data fb,cd,12.d0,d0,f9,ce,16,d0,60,00.00,00,00,00, 135 


Noch ein kleiner Hinweis zu der Scrollroutine, die nach unten 
scrollt. Hier kam es zu zeitlichen Problemen, da hier der Bild- 
Schirminhalt von unten nach oben geändert werden muß. Es ist 
also nicht mehr möglich, die Bildänderung so zu steuern, daß 
diese nicht vom Rasterstrahl überholt wird. Deshalb wird hier 
der Bildschirm beim Kopieren kurzzeitig ausgeschaltet. Dadurch 
ist zwar kein Rucken mehr vorhanden, aber dafür blinkt der 
Hintergrung bei jeder Verschiebung kurz auf. Das Blinken stört 
am wenigsten, wenn die Rahmenfarbe identisch mit der Hinter¬ 
grundfarbe ist. 


3.14 Registerbeschreibung des VIC 

Der VIC verfügt über 47 Register, die im folgenden beschrieben 
werden: 

REG 0 Sprite-Register 0 X-Koordinate 

Hier sind 8 Bits der Bildschirmkoordinate X 
enthalten, auf der das Sprite dargestellt wird. 

Bit 9 befindet sich in REG 16. 

REG I Sprite-Register 0 Y-Koordinate 

Wie oben, jedoch für die Y-Richtung. Dieses 
Register hat im Gegensatz zu REG 0 keinen 
Übertrag. 

Die Register 2 bis 15 folgen alle dem oben beschriebenen Auf¬ 
bau. Registerpaar 2/3 ist für Sprite 1, Registerpaar 4/5 für 
Sprite 2 zuständig und so weiter. 
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REG 16 MSB der X-Koordinaten 

Hier befinden sich die Überläufe aus dem Sprite- 
X-Register, und zwar Bit 0 für Sprite 0, Bit I für 
Sprite 1 und so weiter. 

REG 17 Steuerregister I 

Bit 0 bis 2 Offset der Darstellung vom oberen 
Bildrand in Rasterzeilen. 

Bit 3 0=24 Zeilen, 1=25 Zeilen 

Bit 4 0=Bildschirm aus 

Bit 5 l=Standart Bitmap Mode 

Bit 6 l=Extended Background Color Mode 

Bit 7 Übertrag aus REG 18 

REG 18 Hier wird die Nummer der Rasterzeile angegeben, 
bei deren Strahldurchlauf ein IRQ ausgelöst werden 
kann. Übertrag dieses Registers ln REG 17. 

REG 19 X- Anteil der Bildschirmposition, an der sich der 
Strahl gerade befand, als ein Strobe ausgelöst 
wurde. 

REG 20 Wie oben, jedoch Y- Anteil. 

REG 21 Sprite Enable 

Jedem Sprite ist ein Bit zugeordnet. l=Sprite an, 
0=Sprite aus. 

REG 22 Steuerregister 2 

Bit 0-2 Offset der Darstellung vom linken Rand in 
Rasterpunkten. 

Bit 3 0=38, 1=40 Zeichen. 

Bit 4 ]=Multicolor Mode. 

REG 23 Sprite Expand X 

Jedem Sprite ist ein Bit zugeordnet. l=Sprlte wird 
doppelt so Breit. 
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REG 24 

REG 25 

REG 26 

REG 27 

REG 28 

REG 29 

REG 30 

REG 31 


Basisadresse von Zeichengenerator und Video- 
RAM. 

Bit 1-3 Adressbits 11-13 für die Zeichenbasis. 

Bit 4-7 Adressbits 10-13 für die Basis der Video- 
RAM 

IRR Interrupt Request Register 
Bit 0 Auslöser ist REG 18 
Bit 1 Auslöser ist REG 31 
Bit 2 Auslöser ist REG 30 
Bit 3 Auslöser ist LP 

Bit 7 a! wenn mindestens eins der anderen Bits «1 
ist. 

IMR Interrupt Mask Register 

Belegung wie oben. Bei Übereinstimmung 
mindestens eines Bits aus IRR und IMR wird der 
Pin IRQ=0 

Jedem Sprite ist ein Bit zugeordnet. 1= 

Hintergrundzeichen hat vor dem Sprite Priorität. 

Jedem Sprite ist ein Bit zugeordnet. 1» 

Spritemulticolor Mode. 

Sprite Expand Y 

Jedem Sprite ist ein Bit zugeordnet. Sprite wird 
doppelt so hoch. 

Sprite- Sprite Kollision 

Jedem Sprite ist ein Bit zugeordnet. Berührt ein 
Sprite ein anderes, si werden die entsprechenden 
Bitssl. Gleichzeitig wird IRR Bit 2 >1. Nach dem 
Ereignis muß dieses Register gelöscht werden, da 
sich die Bits nicht selbstständig zurücksetzen. 

Sprite- Background Kollision. 

Wie oben, jedoch tritt das Ereignis ein, wenn ein 
Sprite Berührung mit einem Hintergrundzeichen 
hat. 
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REG 32 
REG 33-36 
REG 37-38 
REG 39-46 


Exterior Color (Rahmenfarbe) 
Backgroundcolor 0-3 (Hintergrundfarben) 
Sprite Multicolor 0-1 
Color Sprite 0- Sprite 7 


3.15 Pinbeschreibung des VIC 6567 


1-7 

D6-D0 

Prozessordatenbus 

8 

-IRQ 

0 wenn ein Bit des IMR und des IRR 
übereinstimmen 

9 

-LP 

Eingang, Lightpenstrobe 

10 

-CS 

Prozessorbusaktionen finden nur bei 
CS=0 statt. 

11 

R/-W 

;0=Übername der Daten vom Bus. 

12 

BA 

0 wenn Daten bei einem Lesezugriff 

13 

VDD 

+12V 

14 

COLOR 

Farbinformationen Ausgang 

IS 

SYNC 

Zeilen und Bildsynchonisationsimpulse 

16 

AEC 

0=VIC benutzt Systembus, l=Bus frei 

17 

OOUT 

Ausgang Systemtakt 

18 

-RAS 

dyn. RAM Seuersignal 

19 

-CAS 

wie oben 

20 

GND 


21 

Ocolor 

Eingang Farbfrequenz 

22 

OIN 

Eingang Dotfrequenz 

23 

ALL 

Prozessoradressbus 

24-29 

A0/A8 



A5/A13 

gemultiplexter (Video-) RAM-Adressbus 

30-31 

A6-A7 

(Video-) RAM-Adressbus 

32-34 

A8-A10 

Prozessoradressbus 

35-38 

Dll-8 

Daten aus Farb-RAM 

39 

D7 

Prozessordatenbus 

40 

vcc 

t-SV 
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DBS 

DBS 

DB4 

DB3 

DB2 

DB1 

DBO 

TTRr 

rp 

R/W 

BA 

VOD 

COLOR 

SYNC 

AEC 

(t)0 

RAS 

CAS 

QND 


9 32 

1 0 MOS 6667 31 
1 1 30 

12 29 

13 28 

14 27 

15 26 

10 25 

1 7 24 

18 23 

1 9 22 

20 21 


40 —1 VCC 
39 ^ dB7 
38 ^ DBS 
37 — 1 DB9 
36 ^ DB10 
35 ^ DB11 
34 _ 1 A10 
33|Z: A9 
32p A8 
31 =] A7 
30 ZU A6 
2 9 !□ A5/A13 
2 8 m A4/A12 
2 7 Zm A3/A11 
2 6 ZU A2/A10 
2 5 ZI AVA9 
2 4 ZZ A0/A8 
23 ^ ALL 

22 Z3 <1)»N 

21 —t (T)CL 


Abb. 3.14; Der 6567 
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4. Der Soundcontroller 


Der C64 verfügt über einen hochwertigen Soundbaustein, der 
SID (Sound Interface Device) genannt wird. Mit ihm lassen sich 
nahezu jegliche Geräusche darstellen, mit denen Sie beispiels¬ 
weise Ihre Programme untermalen können. Hier nun eine kurze 
Beschreibung seiner Fähigkeiten: 

Die Basisadresse des SID ist bei $D400 (54272). Er verfügt über 
3 getrennte Tongeneratoren mit einem Frequenzbereich von 0 
bis ca. 4 kHz. Die Wellenform sowie auch die Hüllkurve jedes 
Tongenerators können getrennt gewählt werden. Bei der Wel¬ 
lenform hat man die Wahl zwischen Dreieck, Sägezahn, 
Rechteck und Rauschen. Für jeden Generator stehen sieben 
Register zur Verfügung, die bei jedem Tongenerator die gleiche 
Bedeutung haben. All diese Register, bis auf die des Tongene¬ 
rators 3, der eine Sonderstellung einnimmt, sind "write only". 
Zusätzlich steht noch ein Filter zur Verfügung, mit dem es 
möglich ist, sowohl die Tongeneratoren als auch eine externe 
Signalquelle zu verändern. Mit dem dritten Tongenerator ist es 
unter anderem auch möglich, Zufallszahlen zu erzeugen. 

Bevor Sie sich die folgende Beschreibung des SID durchlesen, 
und Sie zu denjenigen gehören, die sich mit dem Hexadezimal¬ 
system noch nicht ganz auskennen, ist zu empfehlen, das erste 
Kapitel dieses Buches vorher durchzulesen. 


4.1 Die Frequenz 

Jeder der 3 Tongeneratoren verfügt über sieben Register. Die 
ersten beiden geben die Frequenz des Tons an. Sie wird als 16- 
Blt-Zahl gespeichert. Wenn man die Frequenz, die in Herz ange¬ 
geben ist, ins Hexadezimalsystem umrechnet und in die beiden 
Register schreibt, wird man leider nicht den gewünschten Ton 
zu hören bekommen. Zuvor muß sie in eine an den Computer 
angepaßte Zahl umgerechnet werden. Diese Zahl hängt von der 
Taktfrequenz des Computers ab, die bei dem amerikanischen 
Model höher ist als bei dem hiesigen. 
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Die Taktfrequenz läßt sich errechnen, indem man die Anzahl 
der Schwingungen des Quarzes duch 18 bez. 14 teilt. 

Europäische Version: 17734472 Hz / 18 = 985.2484 kHz 

Amerikanische Version: 14318180 Hz / 14 * 1022.7271 kHz 

Der vorerwähnte 16-Bit-Wert setzt sich wie folgt zusammen: 

WERT = FREQUENZ * 2^24 / TAKTFREQUENZ 

Beide Frequenzangaben müssen in Herz erfolgen. Der so errech- 
nete Wert muß jetzt lediglich in LOW- und HIGH-Byte aufge¬ 
spalten weden: 

Hl = INT (WERT/256) 

LO = WERT - 256*HI 

Durch Änderung des Wertes um eins, erreicht man eine 
Tonfrequenzänderung von ca. 0.06 Hz. 

Doch wie kann man anhand der Tonfrequenz den entsprechen¬ 
den Ton der Tonleiter erhalten? Dafür gibt es zwei Möglichkei¬ 
ten: 1. Nachschlagen in der Tabelle am Ende des Kapitels oder 
2. Errechnen mit einer gleich gezeigten Formel. Das Errechnen 
der entsprechenden Note hat besonderen Vorteil beim Spielen 
von Tonleitern, da nicht jeder Ton gespeichert werden muß, 
sondern errechnet werden kann. 

Die Frequenz des gewünschten Tons läßt sich wie folgt berech¬ 
nen: 


FREQUENZ = 2^(NR/12)*16.35 

NR ist die Nummer der entsprechenden Note, und 16.35 ist der 
Ton mit der niedrigsten Frequenz der in der Tabelle aufgeführ¬ 
ten Noten. Dieser Werl kann durch einen beliebigen Frequenz¬ 
wert aus der Tabelle ersetzt werden. Durch Veränderung von 
NR um eins, verändert sich die Frequenz in Halbtonschrittea. 
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4.2 Wellenform 

Man kann zwischen den vier verschiedenen Wellenformen Drei¬ 
eck, Sägezahn, Rechteck und Rauschen wählen. Dafür sind die 
obersten 4 Bits des fünften Registers jedes Tongenerators 
zuständig. Hs ist nicht möglich, mehrere Wellenformen zu 
mischen. Auf die anderen Funktionen dieses Registers werden 
wir später noch eingehen. 

Durch Setzen eines der Bits wird die entsprechende Wellenform 
ausgewält. 

Bit 4: Dreieckwelle 
Bit S: Sägezahnwelle 
Bit 6: Rechteckwelle 
Bit 7; Rauschen 

Wird die Rechteclcwelle gewählt, so ist es zusätzlich möglich, die 
Pulsbreite zu variieren. Zur Festlegung der Pulsbreite dienen die 
Register zwei und drei des jeweiligen Tongenerators. Von dem 
sich aus den zwei Registern ergebenden Ib-Bit-Wert werden 
jedoch nur die untersten 12 Bits genutzt. Hieraus ergibt sich, 
daß der höchste Wert, der auf die Pulsbreite Einfluß hat, SOFFF 
(4095) ist. Extrem kleine oder extrem große Werte erzeugen kei¬ 
nen Ton. Wenn man in diese Register den Wert 2047, der der 
Hälfte des Maximums entspricht, schreibt, erhält man eine voll¬ 
kommen regelmäßige Rechteckschwingung. 

Die Dreieckwelle entspricht in etwa einer Sinusschwingung und 
eignet sich zum Imitieren sämtlicher Zupfinstrumente. 
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Abb. 4.2.1: W»IUnfonn«n 
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<1.3 Hüllkurve 

Mit Hüllkurve ist nichts anderes als der Lautstärkeverlauf des zu 
erklingenden Tones gemeint. Durch ihre Veränderung ist es 
möglich, den Ton noch weiter zu beeinflussen. Der Lautstärke¬ 
verlauf ist in vier verschiedene Abschnitte unterteilt. Wir unter¬ 
scheiden zwischen: 

ATTACK 

Das Spielen eines Tones beginnt mit der Attack>Phase. Es ist 
jedoch nötig, dem SID mitzuteilen, wann er beginnen soll, den 
Ton zu spielen. Hierfür existiert Bit 0 des Registers 3 des jewei¬ 
ligen Tongenerators. Sobald das sogenannte KEY-Bit gesetzt 
wird, fängt der Ton an zu spielen und beginnt mit der Attack- 
Phase. In dieser Phase steigt die Lautstärke von Null auf die im 
LOW-Nibbel des Registers 24 angegebene Gesamtlaulstärke. Die 
Zeit, in der dies geschieht, wird im HlCH-Nibbel des Registers 
5 der jeweiligen Stimme angegeben. Die Zeit kann zwischen 
0.002 sec und 8 sec liegen. Hohe Werte ergeben eine lange 
Attack-Phase. Die Attack-Phase wird immer eingeleitet, auch 
wenn der Ton noch nicht am Ende der weiter unten bespre¬ 
chenden Release-Phase war. 

DECAY 

Nach Abschluß der Attack-Phase kommt die Decay-Phase. ln 
ihr ändert sich die Lautstärke von der eben erreichten bis auf 
die im HIGH-Nibbel der Registers 6 eingestellte. Die dafür 
benötigte Zeit wird im LOW-Nibbel des Registers 5 angegeben. 
Sie ist einstellbar zwischen 0.006 sec und 24 sec. 


SUSTAfN-Spanne 

Nachdem die neue Lautstärke erreicht wurde, bleibt sie kon¬ 
stant. Ohne unser Zutun würde der Ton ewig mit der gleichen 
Lautstärke spielen. Es wird erst die nächste Phase erreicht, 
sobald das (CEY-Blt, das wir zu Beginn der Attack-Phase gesetzt 
hatten, wieder gelöscht wird. Die Länge der Sustaln-Spanne ist 
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nämlich in keinem Register einstellbar. Sie muß durch Ablaufen 
einer Zeitschleife festgelegt werden. Sobald das KEY-Bit 
gelöscht wird, wird umgehend die Release-Phase erreicht, selbst 
dann, wenn der Ton sich erst in der Attack-Phase befand. 

RELEASE 

ln dieser Phase fällt die Lautstärke von der bei Decay angegebe¬ 
nen auf Null zurück. Die dafür benötigte Zeit wird im LOW- 
Nibbel des Registers 6 angegeben. Sie ist wie bei Decay zwi¬ 
schen 0.006 sec und 24 sec wählbar. 



LAUTSTÄRKEVEHLAUF 


Abb. 4.3.1: Lautatärkediftgramm 


Nachfolgend eine Tabelle, die Ihnen das Wählen der gewünsch¬ 
ten Zeiten ermöglicht: 
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Abb. 4.3.3: Zeitt&bdle 


Bevor wir uns anhand einiger Beispiele mit den Grundkennt¬ 
nissen der Tonprogrammierug vertraut machen, ist noch einiges, 
was unbedingt beachtet werden sollte, zu erklären. 

Als erstes müssen Sie eine Grundlautstärke, die für alle drei 
Stimmen gilt, wählen. Sie liegt im Bereich von 00 (nicht hörbar) 
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bis 15 (recht laut). Dieser Wert muß in den LOW-Nibbel des 
Registers 24 geschrieben werden. Daraufhin legen Sie alle wei¬ 
teren Parameter wie Frequenz, Hüllkurve und Wellenform fest. 
Nachdem dies geschehen ist, müssen Sie dem SID mitteilen, daß 
er den eben gewählten Ton zu spielen beginnen soll. Dies errei¬ 
chen Sie, indem sie Bit 0 des Registers 4 setzen (KEY-Bit). 
Dadurch schaltet der SID die Attack-Phase (Anklingphase) ein, 
und es erklingt ein Ton, der nach der in Register 5 angegebenen 
Zeit die in Register 24 angegebene Gesamtlautstärke erreicht. Da 
dieses Bit im selben Register zu finden ist, das auch für die 
Wellenform zuständig ist, wird beides - am Ende der Parame¬ 
tereinstellung - zugleich erledigt. 

Doch wollen wir uns jetzt von der unerträglich geräuschlosen 
Theorie entfernen und in die Praxis übergehen. 


10 SIDsS4272 
20 POKE SID*24,1S 
30 POKE SID+S.194 
40 POKE SID+6.90 
SO POKE SID.180 
60 POKE SID+1.8 
70 POKE StO«4,33 

80 FOR N>1 TO 1400:HEXT:POKE SID'»4.32 


Dieses kleine BASIC-Programm wird Sie bestimmt nicht vom 
Hocker reißen, aber es ist schon ein Anfang, der für die weite¬ 
ren Erprobungen vollkommen ausreicht. Als erstes wird der 
Variablen SID die Basisadresse des SID zugewiesen. Daraufhin 
wird die gesamte Lautstärke auf den Wert 15, das heißt auf das 
Maximum, eingestellt. Als nächstes werden die Zeiten für die 
Attack- und für die darauffolgende Decay-Phase des Tons fest¬ 
gelegt. Der Wert 194 ( %11C)000I0 ) spaltet sich demnach wie 
folgt auf: Das LOW-Nibbel erhält den Wert 2 und das HIGH- 
Nibbel den Wert 12, was bedeutet, daß das Anklingen des Tons 
langsam und die darauffolgende Änderung sehr abrupt geschieht. 
Als nächstes kommt Zeile 40, in der die neu zu erreichende 
Lautstärke auf S und die Release-Zeit auf 10 gestellt wird. In 
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Zeile 30 und 60 wird die Frequenz des Tones festgelegt. Diese 
Werte entsprechen, wie aus der Tabelle ersichtlich, dem 36. Ton 
und somit dem C-3. 

Danach wird die Sägezahnwelle eingestellt und KEY-Bit (Bit 0 
des Registers 4) gesetzt, damit der SIO anfängt, den Ton zu 
spielen. Die Warteschleife dient zur Überbrückung der Zeit, die 
der Ton aufgrund der angegebenen Parameter braucht, um die 
Gesamtlautstärke zu erreichen und daraufhin auf die Lautstärke, 
die in Register 6 angegeben ist, abzufallen. 

Zum guten Schluß wird das KEY-Bit wieder gelöscht um in die 
Release-Phase einzutreten. Es muß darauf geachtet werden, daß 
die Angabe der Wellenform bei diesem Vorgang nicht gelöscht 
wird, da dies sonst einen abrupten Abbruch des Tons zu Folge 
hätte. 

Um diese Vorgänge nachvollziehen zu können, sollten Sie immer 
mit der Registertabelle arbeiten. 

Wer einen Ton mit einem der beiden anderen Tongeneratoren 
erzeugen will, muß lediglich die Basisadresse um sieben erhöhen. 

Das folgende Programm spielt eine Tonleiter in Halbtonschritten. 
Die entsprechenden Frequenzen werden, wie bereits erläutert, 
errechnet. Zur Demonstration wird hierzu der Tongenerator 3 
verwendet. 


100 SID«S4272:S‘‘SID+2*7 
115 0=2'2«/{17734472/18> 

130 POKE B»5,8:POKE S«6,31S:P0KE S!0*2i,15 
130 FOR r=12 TO 94:ll=IHT<2'(I/12>*1fi.35»a+.5) 

140 f!»lMT<N/2S6):POKE B,N-256*H:P0KE 8*1,11 

150 POKE B+4,17:FOft W>1 TO 20a:NE){T:POKE B*4,16:NEXT 


Als erstes wird die Basisadresse auf die Anfangsadresse des Ton" 
generators 3 gestellt. Daraufhin wird der Faktor, mit dem die 
errechnete Frequenz multipliziert werden soll, ermittelt, ln Zeile 
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120 werden Hüllkurve und Gesamtlautstärke festgelegt. Dann 
werden die für die jeweilige Tonnummer entsprechende Fre¬ 
quenz und gleichzeitig auch der Wert, der vom SID verarbeitet 
wird, errechnet, ln Zeile 140 wird dieser Wert in LOW- und 
HIGH-Byte zerlegt und in die entsprechenden Register geschrie¬ 
ben. Als letztes wird die Wellenform festgelegt und gleichzeitig 
das (CEY-Bit gesetzt, eine Warteschleife durchlaufen und das 
Abklingen des Tons veranlaßt. Alsdann wird der nächste Ton 
gespielt. 

An dieser Stelle wollen wir noch auf zwei Möglichkeiten der 
Tonbeeinflussung hinweisen, die im Zusammenhang mit Register 
4 des jeweiligen Tongenerators stehen. Es sind Bit 1 und Bit 2. 


Bit 1: 

Durch Setzen dieses Bits synchronisieren Sie die Grundfrequen¬ 
zen zweier Tongeneratoren. Der Tongenerator, nach dem syn¬ 
chronisiert wird, muß, um ein Ergebnis zu erzielen, auf eine 
von 0 verschiedene Frequenz gesetzt werden. Alle anderen Re¬ 
gister dieses Tongenerators haben keine Funktion mehr. 


Bit 2: 

Dieses Bit hat nur eine Bedeutung, falls die Dreieckwelle 
gewählt wurde. Ist dies der Fall, so wird das Tonsignals durch 
Ringmodulation (Summe und Differenz der beiden Grundstim¬ 
men), d.h. durch ein kombiniertes Signal der beiden entspre¬ 
chenden Tongeneratoren ersetzt. Es sind wiederum nur die 
Register für die Frequenz beim zweiten Tongenerator maßge¬ 
bend. 


4.4 Filter 

Der SID verfügt, wie bereits erwähnt, über einen Filter, mit 
dem es ermöglicht wird, die Tongeneratoren und eine externe 
Quelle zu verändern. Das externe Signal wird über die AUDIO 
IN Leitung an den Computer übergeben. 
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Die Filterfrequenz ist in den Registern 21 und 22 festgelegt. 
Von den 16 Bits der beiden Register werden lediglich 11 
benutzt. Von Register 2 1 werden nur die Bits 0 bis 2 benutzt. 
Die restlichen Bits sind unbenutzt. Der Wert, der in die beiden 
Register geschrieben wird, muß erst aus der Filterfrequenz 
erechnet werden. Es wird wie folgt verfahren. 

WERT = (F-30)/5.8l82 Hz 

F ist die Frequenz, die in Herz angegeben wird. 

Nachdem die Frequenz angegeben wurde, muß festgelegt wer¬ 
den, welcher Teil der Tonfrequenz gefiltert werden soll. Dies 
kann man mit den Bits 4 bis 6 des Registers 24 einstellen: 

Bit 4 LOWPASS: 

Ist dieses Bit gesetzt, so werden alle Frequenzkompunenten über 
der eingestellten Filterfrequenz mit 12 dB je Oktave abge¬ 
schwächt. 

Bit 5 BANDPASS: 

Ist das Bit gesetzt, so werden alle Frequenzen ungleich der ein¬ 
gestellten Filterfrequenz mit 6 dB je Oktave vermindert. 

Bil 6 HIGHPASS: 

Dieses Bit entspricht Bit 4 des Registers, nur daß alle Frequen¬ 
zen unterhalb der Filterfequenz mit 12 dB je Oktave verringert 
werden. 

Es ist möglich, die verschiedenen Filterarten zu kombinieren. 
Durch eine Kombination von LOW- und HIGHPASS kann die 
Tonfrequenz zwischen den Werten eingeschachtelt werden 
(Bandsperre). 

Als letztes noch die Veränderung der Filterresonanz. Sie wird im 
Register 23 festgelegt und kann einen Wert von 0 bis IS anneh¬ 
men, wobei ein hoher Wert eine hohe Resonanz hervorruft und 
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ein niedriger eine niedrige Resonanz. Somit erreicht man eine 
Betonung der Frequenzkomponenten. Mit der Veränderung der 
Filterresonanz wärend des Spielens des Tons lassen sich nahezu 
alle Musikinstrumente nachahmen. 


4.5 Tongenerator 3 

Der Tongenerator 3 nimmt eine Sonderstellung im Vergleich zu 
den übrigen Tongeneratoren ein. Seine Register sind als einzige 
lesbar und daher sind bei ihm der Verlauf der Hüllkurve und 
der Zustand des Oszillators feststellbar. 


Hüllkurve: 

Die Hüllkurve des Tongenerators 3 kann im Register 28 (SIC) 
gelesen werden. Ihr Wert gibt die momentane Lautstärke des 
Tons an. Der Wert steigt bis auf 255 (SFF) an, wenn die im 
Register 24 (S18) gesetzte Gesamtlautstärke erreicht wird. 
Danach fällt der Wert wieder und erreicht nach Beendigung der 
RELEASE-Phase den Wert 0. Diesen Umstand kann man sich zu 
Nutze machen, wenn man beispielsweise eine fest eingestellte 
SUSTAIN-Spanne unabhängig von der Länge der ATTACK- 
Phase haben will. Man liest das Hüllkurve-Register aus und 
wartet, bis er den Wert 255 enthält. Von diesem Punkt an läßt 
man eine Zeitschleife ablaufen, um nach ihrem Ablauf das 
KEY-Bit zu löschen. Mit Hilfe dieses Registers kann auch 
erkannt werden wann die RELEASE Zelt verstrichen ist. Wei- 
terhlnn besteht die Möglichkeit, in Abhängigkeit des Zustands 
der Hüllkurve die Frequenz oder die Pulsbreite während des 
Tonsignals zu verändern und somit eine Reihe von wirkungs¬ 
vollen Efekten zu erzielen. 


Oszillator: 

Dies ist das Register 27 (SIB), mit welchem es möglich ist, die 8 
höchstwertigen Bits des Oszillators 3 abzufragen. Je nach Wahl 
der Wellenform ändern sich die Werte dieses Registers im Ver¬ 
lauf des Tonsignals. Wurde die Dreieckwelle gewählt, so nimmt 
der Inhalt des Registers gleichmäßig von 0 bis 255 zu und 
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gleichmäßig wieder ab. Bei der Wahl der Sägezahnwelle nimmt 
(i(*r Wert ebenfalls gleichmäßig zu, fällt Jedoch nach dem 
1 rreichen von 2SS sofort auf 0 zurück und beginnt alsdann wie- 
«I«‘r erneut zu steigen. Bei der Rechleckwelle pendelt der Wert 
Mündig zwischen 0 und 2SS. Die Länge der beiden Phasen hängt 
v(jn der Wahl der Pulsbreite ab. Wird Rauschen gewählt, dann 
nimmt das Register zufällige Werte an. Es kann somit verwendet 
werden, um Zufallszahlen zu erzeugen. 

Alle Funktionen des Tongenerolors 3 können auch veiwendel 
werden, wenn dieser mit Hilfe des Bits 7 des Registers 24 
stumm geschaltet ist. 


4.6 Der Analog/Dlgitalwandler 

Ein A/D-Wandler ist eine Einrichtung zur Umwandlung eines 
analogen Signals (z.B. Spannung) in einen digitalen Werl. Die 
prinzipielle Schwierigkeit bei einer solchen Umwandlung besteht 
darin, einen analogen Wert mit unendlich feiner Abstufung in 
einen digitalen Wert mit endlicher Abstufung (feste Intervalle) 
umzuformen. Dabei entsteht zwangsläufig ein +/- Fehler, dessen 
Höchstwert dem kleinsten digitalen Schritt gleicht. 

Der SID 6581 enthält zwei A/TD-Wandler. Hierbei handelt es sich 
um eine Anordnung mit einer intern erzeugten Referenzspan¬ 
nung von ca. 2,5V. Der Meßvorgang besteht darin, daß eine 
externe Kapazität zunächst entladen und anschließend ein Wert 
in Register 25 bzw. 26 übernommen wird, der der benötigten 
Zeit für eine erneute Aufladung der Kapazität auf die Refe- 
renKpannung entspricht. Dieser Vorgang wiederholt sich 
zyklisch. 


4.6.1 Die Handhabung des A/D-Wandlers 

Aus dem oben Gesagten ergibt sich, daß nur eine potentiome- 
trische Beschallung des Wandlers in Frage kommt. Als Meßwert¬ 
aufnehmer eignen sich demnach nur veränderliche Widerstände 
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in irgendeiner Form, z.B. Photowiderstände, Heißleiter, Kaltlei¬ 
ter usw. 

Sollen Spannungen gemessen werden, so müssen diese zuvor in 
eine geeignete Form umgewandelt werden, z.B. mit Hilfe eines 
Unijunction-Transistors. 

Die Meßanordnung sieht einfach so aus, daß an das eine Ende 
des MeOwiderstandes +5V angelegt werden (an den Controlports 
des C64 verfügbar) und das andere Ende mit dem Analogein¬ 
gang des SID (ebenfalls an den Controlports verfügbar, Bezeich¬ 
nung POTX und POTY) verbunden wird. Der aus den Registern 
2S und 26 ausgelesene Wert ist ein Maß für den Widerstand. 

Um die ganze Skala von 8 Bits ausnutzen zu können, muß sich 
der Widerstand im Bereich von 200 Ohm (nicht kleiner!!!) bis 
200 Kiloohm bewegen. 

Die programmtechnische Anwendung finden Sie bei der Ver¬ 
wendung der Paddies, wie sie Im Kapitel S.4.3 beschrieben ist. 


4.7 Registerbeschreibung des SID 
Basisaddresse $D400 (54272) 

REG $00 Oszillatorfrequenz niederwertiges Byte für Stimme 1 

REG $01 Oszillatorfrequenz höherwertiges Byte für Stimme 1 

REG $02 Pulsbreite niederwertiges Byte für Stimme 1 

R£G $03 Pulsbreite höherwertiges Byte für Stimme 1 

Die Register 2 und 3 bestimmen das Puls-Pausever¬ 
hältnis des Rechteckausgangs von Stimme 1. Von 
Register 3 werden nur die Bits 0-3 benutzt. 


REG $04 


Steuerregister der Stimme 1 
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Bit 0 Key: 

Bit 1: 

Bit 2: 

Bit 3: 

Bit 4 tri: 
Bit 5 saw: 
Bit 6 pul: 

Bit 7 nse: 


REG 5 
Bit 0-3 


Steuerbit für den Ablauf des Hüllkurvengeneralors. 
Beim Übergang von 0 nach I steigt die Lautstärke 
von Stimme 1 innerhalb der in REG S program¬ 
mierten ATTACK-Zeit von Null auf den Maximal¬ 
pegel. Beim Übergang von 1 auf 0 geht die Laut¬ 
stärke innerhalb der in REG 6 programmierten 
RELEASE-Zeit auf Null zurück. 
l^Oszillator 1 wird mit Oszillator 3 synchronisiert. 
Dieses Bit hat auch Wirkung, wenn die Stimme 3 
slummgeschallet ist. 

l^Dreieckschwingungsausgang von Oszillator 1 wird 
durch ein Frequenzgemisch (Summe und Differenz) 
der Frequenzen von Oszillator I und 3 ersetzt. Dieser 
Effekt tritt auch dann ein, wenn Stimme 3 stumm¬ 
geschaltet ist. 

Wenn zusammen mit dem Rauschgenerator noch eine 
weitere Schwingungsform desselben Oszillators aus¬ 
gewählt wurde, kann es Vorkommen, daß der 
Rauschgenerator blockiert. Die Blockade kann durch 
Setzen dieses Bits wieder aufgehoben werden. 
IsDreleckschwingung ausgewählt. 
l=Sägezahnschwingung ausgewählt. 
IsRechleckschwingung ausgewählt. Das Puls-Pause- 
verhältnis dieser Schwingung wird in REG 2 und 
REG 3 eingestellt. 

l=Rauschgeneralor ausgewählt. Anmerkung zu den 
Bits 4-7: Es ist praktisch möglich, mehrere Schwin¬ 
gungsformen gleichzeitig auszuwählen. Zu beachten 
ist jedoch, außer dem zu Bit 3 Gesagten, daß das 
Ergebnis nicht etwa die Summe aller Formen dar¬ 
stellt, sondern vielmehr eine logische UND-Ver¬ 
knüpfung der Komponenten ist. 

ATTACK/DECAY 

Diese Bits bestimmen die Zeit, in der die Lautstärke 
vom Maximum auf den Sustainpegel abfällt. Der 
einstellbare Bereich beträgt 6 msec bis 24 sec. 
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Bit 4-7 

REG 6 
Bit 0-3 

Bit 4-7 

REG 7 

REG 13 

REG 14 

REG 20 

REG 21 

REG 22 


Hiermit wird die Zeit festgelegt, in der die Laut¬ 
stärke nach Setzen des KEY-Bits von Null auf das 
Maximum ansteigt. Der einstellbare Bereich beträgt 2 
msec bis 8 sec. 

SUSTAIN/RELEASE 

Mit diesen Bits wird die Zeit eingestellt, innerhalb 
der die Lautstärke nach Rücksetzen des K.EY-Bits 
vom Sustainpegel auf Null abfällt. Der einstellbare 
Bereich beträgt 6 msec bis 24 sec. 

Diese Bits geben den Sustainpegel an, d.h. die Laut¬ 
stärke, mit der der Ton nach Ablauf der Decayzeit 
andauert. 

Diese Register steuern die Stimme 2 und 3 analog zu 
den Registern 0-6 mit folgenden Ausnahmen: 

SYNC synchronisiert Oszillator 2 mit Oszillator 1. 
RING ersetzt den Dreieckausgang von Oszillator 2 
mit den ringmodulierten Frequenzen der Oszillatoren 
2 und I. 


Diese Register steuern die Stimme 3 analog zu den 
Registern 0-6 mit folgenden Ausnahmen: 


SYNC synchronisiert Oszillator 3 mit Oszillator 2. 
RING ersetzt den Dreieckausgang von Oszillator 3 
mit dem Frequenzgemisch aus den Oszillatoren 3 und 
2 . 


Filterfrequenz niederwertiges Byte. Es werden nur 
die Bits 0-2 benutzt. 

Filterfrequenz höherwertiges Byte 

Die 11-Bit-Zahl der Register 21 und 22 bestimmt 

die Filtereckfrequenz, bzw. -mittenfrequenz. 
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REG 23 Filterresonanz und -Schalter 

Bit 0 I=Stimme I wird über den Filter geleitet. 

Bit I l=Stimme 2 wird über den Filter geleitet. 

Bit 2 l=Stimme 3 wird über den Filter geleitet. 

Bit 3 I*Die externe Signalquelle wird gefiltert. 

Bit 4-7 Diese Bits bestimmen die Resonanzfrequenz des Fil¬ 
ters. Diese benutzt man dazu, bestimmte Ausschnitte 
des Frequenzspektrums hervorzuheben. Die Wirkung 
kann besonders gut bei der Sägezahnschwingung 
beobachtet werden. 

REG 24 Dieses Register hat folgende Funktionen: 

Bit 0-3 Gesamtlautstärke 

Bit 4 Schaltet den Tiefpaßzweig des Filters ein. 

Bit 5 Schaltet den Bandpaßzweig des Filters ein. 

Bit 6 Schaltet den Hochpaßzweig des Filters ein. 

Bit 7 I=Stimme 3 unhörbar. Von dieser Möglichkeit kann 

man Gebrauch machen, wenn der Verlauf der 
Stimme 3 nur zur Parametergewinnung für die an¬ 
deren Stimmen dienen soll (siehe hierzu Register 27 
und 28). 

Auf alle zuvor aufgeführten Register kann nur ein Schreibzu¬ 
griff durchgeführt werden. Ein Lesezugriff bringt keine Aus¬ 
sage. Alle folgenden Register können nur gelesen werden. 

REG 25 A/D-Wandler l 

REG 26 A/D-Wandler 2 

REG 27 Oszillator 3 

Dieses Register liefert unter anderem eine Zufalls¬ 
zahl, die dem augenblicklichen Stand des Rauschge¬ 
nerators 3 entspricht. Der Generator muß hierzu Ein¬ 
geschaltet sein, jedoch kann die Stimme 3 unhörbar 
bleiben (Bit 7 in REG 24 sj). 
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REG 28 Hüllkurvengenerator 3 

Aus diesem Register kann man den augenblicklichen 
Stand der relativen Lautstärke von Stimme 3 ent¬ 
nehmen. So können entsprechend dem Lautstärke¬ 
verlauf die Frequenz oder die Filterparameter geän¬ 
dert werden. 
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WERTE EUER MUSIKNOTEN : 


NR. 

NOTE - OKTAVE 

FREQUENZ 

HtGH - 

BYTE 

LOW - BYTE 

1 

C - 0 

16 4 

1 

(Ol) 

22 

08) 

2 

C# - 0 

17.3 

1 

(01) 

39 

(27) 

3 

D - 0 

18 4 

1 

(Ol) 

57 

(39) 

4 

D# - 0 

1 9.4 

1 

(Ol) 

75 

(48) 

S 

E - 0 

20.6 

1 

(01) 

95 

(SF) 

6 

F - 0 

21.8 

1 

(01) 

116 

(74) 

7 

F# - 0 

23.1 

1 

(01) 

138 

(8A) 

Z 

G - 0 

24.5 

1 

(01) 

161 

(AI) 

% 

G# - 0 

2 6 

1 

(01) 

186 

(BA) 

1 0 

A - 0 

27.5 

1 

(01) 

212 

(04) 

1 1 

A#-0 

29.1 

1 

(01) 

240 

(FO) 

1 2 

H O 

3 0.9 

2 

(02) 

14 

(OE) 

1 3 

C - 1 

32.7 

2 

(02) 

45 

(2D) 

1 4 

C# - 1 

34.6 

2 

(02) 

78 

(4E) 

1 5 

D - 1 

36.7 

2 

(02) 

113 

(71) 

1 6 

D# - 1 

3 6.9 

2 

(02) 

150 

(96) 

1 7 

E - 1 

41,2 

2 

(02) 

190 

(BE) 

1 Z 

F - 1 

43.7 

2 

(02) 

231 

(E7) 

1 9 

F# - 1 

46.2 

3 

(03) 

20 

(14) 

20 

G - 1 

49.0 

3 

(03) 

66 

(42) 

2 1 

G# - 1 

51.9 

3 

(03) 

116 

(74) 

22 

A - 1 

55.0 

3 

(03) 

169 

(A9) 

23 

A# - 1 

58.3 

3 

(03) 

224 

(EO) 

24 

H - 1 

81.7 

4 

(04) 

27 

(18) 

2S 

C - 2 

85 4 

4 

(04) 

90 

(5A) 

26 

C# - 2 

69 3 

4 

(04) 

156 

(9C) 

2 7 

D - 2 

73.4 

4 

(04) 

226 

(E2) 

26 

D# - 2 

77 8 

5 

(05) 

45 

(20) 

2 9 

E - 2 

82.4 

S 

(05) 

123 

(7B) 

3 0 

F - 2 

87.3 

5 

(05) 

207 

(CF) 

3 1 

F# - 2 

92.5 

6 

(06) 

38 

(27) 

32 

G - 2 

98.0 

6 

(06) 

133 

(85) 

3 3 

O# - 2 

103.8 

5 

(08) 

232 

(ES) 

3 4 

A - 2 

110.0 

7 

(07) 

81 

(51) 

35 

A# - 2 

116.5 

7 

(07) 

193 

(CI) 

36 

H - 2 

123.5 

8 

(08) 

55 

(37) 

3 7 

C - 3 

130.6 

8 

(08) 

180 

(B4) 

38 

C# - 3 

1 38.6 

9 

(09) 

56 

(38) 

3 9 

D - 3 

146.8 

9 

(09) 

198 

(C4) 

40 

D# - 3 

155.8 

10 (OA) 

89 

(59) 

4 1 

E - 3 

164.8 

10 (OA) 

247 

(F4) 

4 2 

F-3 

174.8 

11 

(OB) 

158 

(9E) 

4 3 

F#-3 

1 85.0 

12 (OC) 

78 

(4E) 

44 

G - 3 

1 96.0 

13 (OO) 

10 

(OA) 

45 

G# - 3 

207.7 

13 (OO) 

208 

(DO) 

46 

A - 3 

220.0 

14 (OE) 

162 

(A2) 

47 

A# - 3 

233.1 

15 (OF) 

129 

(81) 
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NR. 

NOTE - OKTAVE FREQUENZ 

48 

H - 3 

248.9 

49 

C - 4 

261.6 

50 

C#-4 

277.2 

51 

D - 4 

293.7 

52 

D#-4 

311.1 

53 

E - 4 

329.6 

54 

F - 4 

349.2 

55 

F# - 4 

370.0 

66 

0-4 

392.0 

57 

G#-4 

415.3 

58 

A-4 

440.0 

69 

A#-4 

466.2 

60 

H - 4 

493.9 

61 

C - 5 

523.3 

62 

C#- 5 

554.4 

83 

D - 5 

587.3 

64 

D# - 5 

622.3 

6 5 

E -5 

659.3 

6 6 

F - 6 

689.5 

6 7 

F# - 5 

740.0 

6 8 

G - 5 

784.0 

6 9 

G # - 5 

630.6 

7 0 

A-5 

680.0 

7 1 

A# - 5 

932.3 

7 2 

H - S 

987.8 

7 3 

C - 6 

1046.5 

74 

C#- 6 

1108.7 

75 

0-6 

1174.7 

7 6 

D# - 6 

1244.5 

77 

E - 6 

1318.5 

78 

F - 8 

1 396.9 

79 

F# - 8 

1460 0 

80 

G - 6 

1 566 0 

81 

Q#-6 

1661.2 

82 

A - 8 

1760.0 

83 

A#- 6 

1864.7 

84 

H - 6 

1975.5 

85 

C - 7 

2093.0 

86 

C# - 7 

2217.5 

87 

D - 7 

2349.3 

66 

D# - 7 

2489.0 

89 

E - 7 

2637.0 

9 0 

F - 7 

2793.6 

9 1 

F# - 7 

2960.0 

9 2 

G - 7 

31 38 0 

9 3 

0#-7 

3322.4 

94 

A-7 

3520.0 

85 

A#-7 

3729 3 


16 (10) 
17 (11) 

10 ( 12 ) 

19 (13) 

20 (14) 

21 (15) 

23 (17) 

24 (19) 

20 (1A) 

27 (1B) 

29 (ID) 

31 (1F) 

32 (20) 

34 (22) 

30 (24) 

39 (27) 

41 (29) 

43 (2B) 

46 (2E) 

49 (31) 

52 (34) 

55 (37) 

50 (3A) 

02 (3E) 

65 (41) 

69 (45) 

73 (49) 

76 (4E) 

02 (52) 

67 (57) 

92 (SC) 
98 (62) 

104 (08) 
110 (OE) 
117 (75) 
124 (7C) 
131 (03) 
139 (OB) 
147 (93) 
156 (9C) 
165 (A5) 
175 (AF) 
185 (B9) 
196 (C4) 
208 (DO) 
221 (DO) 
234 (EA) 
248 (F8) 


109 (6D) 
103 (67) 
112 (70) 
137 (89) 
170 (B2) 
237 (ED) 
59 (36) 

157 (9D) 
20 (14) 

160 (AO) 
69 (45) 

3 (03) 

219 (OB) 
207 (CF) 
225 (El) 
10 ( 12 ) 
101 (65) 
219 (DB) 
116 (76) 
58 (3A) 


138 (8A) 

5 (05) 

181 (B5) 
157 (9D) 
193 (C1) 
36 (24) 

201 (C9) 
162 (B6) 
237 (ED) 
115 (73) 
79 (4E) 

130 (82) 


106 (6A) 

58 (36) 

130 (82) 
72 (48) 

147 (93) 

107 (66) 
216 (DA) 
231 (E7) 
156 (9C) 






Der SoundcontroUer 


181 


CAP1A 

CAP1B 

CAP2A 

CAP2B 

RES 

R/W 

CT 

AO 

AI 

A2 

A3 

A4 

A5 


□ 


[Z 

IZ 

z 

z 

z 

z 

z 

z 


1 

2 

3 

4 

5 

6 

7 

8 
9 

1 0 
1 1 
1 2 
1 3 

1 4 


MOS 6581 


1 5 
1 6 
1 7 
1 8 

1 9 
20 

2 1 
22 

23 

24 

25 

26 

27 

28 


z 


ZI vdd 

AUDIO OUT 
□ EXT IN 
VCC 
Z POTX 
Q POTY 
D 7 
D 6 
D 5 
D4 
D 3 
D2 

Z Dl 

Z DO 


z 

n 

z 


Abb. 4.7.3: D<tMOS6681 
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AUDIO / VIDEO : 



Pin 

Signal 

1 

Luminance 

2 

QND 

3 

Audio out 

4 

Video out 

5 

Audio in 


Abb.4.7.3: Portbelegung 
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5. Die CIAs 6526 


S.l Datenein- und -ausgabe von Maschinenprogrammen 

Will man eigene Maschinenprogramme schreiben, so kann man 
besonders für die Datenein- und ausgabe auf die Routinen des 
Betriebssystems zurückgreifen. Diese Routinen stehen in einer 
Sprungtabelle am Ende des ROMs (siehe dazu die letzte Seite des 
ROM-Listings). 


5.1,1 Ein- und Ausgabe von einzelnen Bytes 

Die grundlegenden Routinen sind 

BSOin SFFD2 Ausgabe eines Bytes 
und BASIH SFFCF Eingabe eines Bytes 

Selbstverständlich gibt es noch weitere Routinen zur Ein- 
/Ausgabe. Diese sind jedoch nur sehr begrenzt anwendbar. Für 
die meisten Anwendungen reichen die oben aufgeführten aller¬ 
dings aus. 

Das auszugebende bzw. einzulesende Byte wird im Akku über¬ 
geben. Der Akku ist das Universalregister des Prozessors, in dem 
fast alle Operationen ablaufen. 

Beispiel; Ausgabe eines Textes auf dem Bildschirm. 


COOO LDX IKOO ; 

C002 LDA SCOOE.K ; 

C005 JSR SFFD2 ; 

C008 tHX 
C009 CPX «SOS 
COOB BNE SC002 : 

COOO BTS : 


Zähler auf 00 setzen 

Text ab Adresse SCOOE holen 

Ausgabe auf Bildschirm 

Zähler erhöhen 

Schon alle Zeichen geholt ? 

Hein, dann nächstes Zeichen 

Rticksprung von Si^routine 


COOE 42 45 49 53 50 49 45 4C Beispiel 
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Die Buchstaben sind als ASCII-Code ab Speicheradresse SCOOE 
abgelegt. 

Eingaben werden ähnlich gelöst. Soll ein Text über die Tastatur 
eingegeben und abgespeichert werden, so erscheint der Cursor, 
und die Zeichen werden bis zum Drücken der RETURN-Taste 
übernommen. 


COOO LDX «SOO 
COOZ JSR SfFCF 
C005 STA SCOOE.X 
CD08 INK 
C009 CHP fSOD 
COOB BNE SCCKI2 
COOO RTS 


Zähler auf 00 setzen 
Zeichen von der Tastatur holen 
in diesen Fall ab SC0(£ speichern 
Zähler erhöhen 

geholtes Zeichen auf RETURN testen 
nein, dann nächtes Zeichen holen 
RUckspruna von Subroutine 


Soll ein Zeichen von der Tastatur abgefragt werden, ohne auf 
dem Bildschirm zu erscheinen, so muß die folgende Routine 
verwendet werden. 

COOO JSR SrFE4 ; Wirkung wie BASIC GET 

C003 CHP «SZO ; vergleiche mit SPACE-Taste 

COOS BNE SCDOO ; nein, dann wieder ein Zeichen holen 

Falls kein Zeichen gedrückt wurde, steht im Akku $00. 

Bei der Ausgabe auf dem Bildschirm kann natürlich von der 
Bildschirmsteuerung, wie im BASIC bekannt, Gebrauch gemacht 
werden. 

Dazu gehören zum Beispiel die Codes zur Cursorsteuerung oder 
zum Löschen des Bildschirms. Der entsprechende Code wird 
dazu in den Akku geladen und an die Ausgaberoutine 
übergeben. 
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Beipiel: Bildschirm löschen 

LDA 9S93 ; Code zm Bildschirm loschen (Dez. 147) 

JSii SFFD2 ; eus^eben 

Speziell zur Bildschirmausgabe gibt es noch einige nützliche 
Routinen, die die Programmierung vereinfachen können. 

Die Routine zuni Löschen des Bildschirms kann auch direkt auf- 
gerufen werden. (Anstelle des Umwegs über die Ausgabe eines 
Steuerzeichens) 

JSB SES44 ; Bi Ldschirm löschen 

Auch für Cursor Home existiert eine eigene Routine. 

JSR $ES66 ; Cursor Hose 

Besonders interessant ist die Möglichkeit, den Cursor direkt auf 
eine bestimmte Bildschirmposition zu setzen. Das folgende Pro¬ 
gramm setzt den Cursor auf die Bildschirmkoordinaten 16,3. 


CODO LOX #$10 
COOZ LDY «$03 
C004 CLC 
C005 JSR SFFFO 
C008 LDA #$41 
CODA JSR SFF02 


; T-Koordinate fcstlegei. Hier $10 
; X'Koordinate festlegen. Hier $03 
; Csrryflag löschen, um Cursor zu setzen 
; Routine zm Setzen und Holen des Cursors 
• ASCll-Code für A 
; A auf BiIdschi rn ausgeben 


Das Unterprogramm CURSOR SFFFO hat zwei Funktionen. 
Bei Aufruf mit gelöschtem Carryflag setzt es den Cursor auf die 
Zeile und Spalte, die im X- und Y-Register stehen. Das Kuriose 
dabei ist, daß die X-Koordinate im Y-Register, und die Y- 
Koordinate im X-Register steht. Wird die CURSOR-Routine 
dagegen mit gesetztem Carryflag aufgerufen, wird die momen¬ 
tane Cursorposition geholt und im X- und Y-Register überge¬ 
ben. 
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Zum Schluß noch zwei Routinen, die die Verarbeitung von 
Zeichen in Maschinensprache erleichtern. Sie waren vielleicht 
schon mit dem Problem konfrontriert, ein Byte (zum Beispiel 
$41) auch als HEX-Zahl "41", anstelle des Zeichens "A", auf 
dem Bildschirm erscheinen zu lassen. Nur leider gibt der Com¬ 
puter dieses gewünschte Ergebnis so ohne weiteres nicht aus. 

Die folgenden zwei Routinen ermöglichen es, sowohl ein Byte - 
wie gerade beschrieben- als HEX-Zahl auszugeben, als auch 
zwei ASCII-Werte zu einem Byte zu verknüpfen. 


Routine zur Ausgabe eines Bytes: 


cooz 

PHA 


; auszugebenden Wert merken 

C003 

LSR 


; vier Bits nach rechts verschieben 

C004 

LSR 


; in HIGH-Nibble zu isolieren 

COOS 

LSR 



C006 

LSR 



C007 

JSR 

tCOOF 

; inrechnen und ausgeben 

COQA 

PLA 


; geeierkten Wert holen 

COOB 

JSR 

SCOOF 

; LOW-Nibble ausgeben 

COOE 

RTS 


• Rücksprung ins Hauptprograirin 

COOF 

AND 

moF 

; LOW-Mibble isolieren 

C011 

CHP 

#S0A 

; Vergleiche nit Zahl 

C013 

CLC 



cou 

BMI 

SC018 

; Ja, dann verzweigen 

C016 

ADC 

#$07 

; zu 7 addieren 

C018 

AOC 

#S30 

; zu 30 addieren 

C01A 

JSR 

SFFD2 

; und ausgeben 

C01D 

RTS 


; Rücksprung vom Unterprogrami 


Wird diese Routine angesprungen, so muß sich das auszugebende 
Byte im Akku befinden 

Das nächste Programm wartet zweimal auf eine Tasteneingabe 
und verbindet die Zeichen zu einem Byte. 
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COOO JSR SFFE6 
C003 BEO SCOOO 
C005 PHA 
C006 JSR $F13E 
C009 BEO SC006 
COOB JSR »COIB 
COOE STA SFB 
GOTO PLA 
C011 JSR SCOIB 
C014 ASL 
C015 ASL 
C016 ASL 
C017 ASL 
C018 ORA SFB 
C01A RTS 
C01B CHP MAI 
C01D SEC 
COIE »Ml SC022 

C020 SBC nos 

C022 SBC #S30 
C02A RTS 


Zeichen von Tastatur holen 
Kein Zeichen? Dann erneut holen 
Uert speichern 
tweites Zeichen holen 
Kein Zeichen? Dann erneut holen 
zur IkMandlungsroutine 
unoewandeltes Zeichen speichern 
zuerst geholtes Zeichen nehmen 
und URMandeln 

Bits an richtige Stelle schieben 


; und mit gemerkten Wert verknüpfen 
; Rücksprung ins Hsuptprograem 
; Buchstabe oder Zahl? 

; Venn Zahl, dann verzueigen 
; acht abziehen 
; 30 abziehen 

; Rückkehr von Unterprograrm 


Nach Aufruf dieser Routine steht das geholte Byte im Akku. 


5.1.2 Ela- uad Ausgabe über Peripheriegeräte 

Auch für die Ein- und Ausgabe auf Peripheriegeräte stellt das 
Betriebssystem die notwendigen Routinen bereit. Dazu soll kurz 
auf das Konzept der Ein-/Ausgabe eingegangen werden. Den 
Peripheriegeräten wird eine Nummer von 0 bis 15 zugewiesen, 
über die sie vom Betriebssystem angesprochen werden. 

Nummer Gerät 

0 Tastatur 

1 Kasettenrecorder 

2 RS-232 Schnittstelle 

3 Bildschirm 

4-15 Geräte am seriellen lEC-Bus (Drucker, Floppy) 
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Zu dieser Geräte- oder 'Primäradresse’' kommt noch optional 
eine Sekundäradresse, die die Arbeitsweise des Peripheriegeräts 
bestimmt, sowie ein Datei- oder Tile’-name. 

Um nun nicht jedesmal alle Parameter angeben zu müssen, wenn 
ein Peripheriegerät angesprochen wird, wird die logische File¬ 
nummer eingeführt. Zu jeder Filenummer werden einmal mit 
OPEN die Primär- und Sekundäradresse sowie ein Filename 
zugeordnet. Jeder weitere Bezug geschieht dann über die logi¬ 
sche Filenummer. 

Vor der ersten Ein- oder Ausgabe ist die Datei zu öffnen. Das 
kann von BASIC aus mit OPEN geschehen, aber auch in 
Maschinensprache. Dazu müssen vorher die Fileparameter gesetzt 
werden. Die logische Filenummer muß in der Adresse SB8 (184) 
stehen, die Gerätenummer in Adresse $BA (186), die Sekun¬ 
däradresse in Adresse $B9 (185), die Länge des Filenamens in 
SB? (183) (Null, wenn kein Filename gegeben ist) und die 
Adresse des Filenamens in SBB/$BC (187/188). Anschließend 
wird die OPEN-Routine($FFCO) aufgerufen. 

Zum Übergeben der Parameter ist es nicht nötig, die Werte 
einzeln in die zugehörigen Adressen zu schreiben. Das Betriebs¬ 
system verfügt Ober zwei Routinen, die diese Arbeit überneh¬ 
men. 


LOA 

LF 

; logische FiLtnuwer 

LDX 

GA 

; Geräteadresse 

LOV 

SA 

; Sekmdsradresse 

JSR 

SFFBA 

; Fiteparaneter Obergebert 

LOA 

LH 

; Länge des FTlenamens 

LDX 

LOW 

; LOU-Byte der Adresse des Filenanens 

Lor 

HIGH 

; HIGH-Byte der Adresse 

JSR 

SFFBD 

; Filenanieparanieter übergeben 


Soll jetzt die Ausgabe auf die geöffnete Datei erfolgen, so ist 
folgende Routine aufzurufen: 
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LDX LF ; logische Filenuner 

JSR SFFC9 ; CKUOT. Ausgabe auf Datei legen 

Wird jetzt die Routine BSOUT ($FFD2) aufgerufen, so geht die 
Ausgabe .anstatt auf den Bildschirm auf das Gerät, dem die 
logische Filenummer im X-Register zugeordnet ist. 

Ist LF die logische Filenummer des Druckers, so würde jetzt 
durch Aufruf des obigen Beispielprogramms AUSGABE der 
Text auf den Drucker geschrieben. Die Ausgabe geht solange 
auf dieses Gerät, bis die Routine CLRCH aufgerufen wird 

JSR SFFCC ; CLRCH , Ausgabe auf Bildschirn 

Soll die Dateneingabe aus einer Datei geschehen, die sich auf 
Band oder auf die Floppy bezieht, kann man das folgender¬ 
maßen erreichen: 

LDX LF ; Filenimer des Eingabegeräts 

JSR SFFC6 ; CHK1N 

Jetzt werden durch Aufrufen von BASIN (SFFCF) Daten aus der 
geöffneten Datei geholt. Dies geschieht solange, bis mit CLRCH 
wieder auf die Standardeingabequelle (Tastatur) umgeschaltet 
wird. Die Datei wird dadurch nicht geschlossen. Dies geschieht 
erst durch Aufruf der Routine CLOSE. 

LDA LF ; logische Filenuner 

JSR tFFC3 ; CLOSE, Datei schließen 

Insbesondere bei Schreiboperationen auf den Kassettenrecorder 
oder die Floppy darf die CLOSE-Routine auf keinen Fall ver¬ 
gessen werden. 
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5.2 Die Technik der Datenspeicherung - LOAD und SAVE 

Zur Daten- und Programmspeicherung stehen Ihnen beim Com- 
modore 64 grundsätzlich zwei Möglichkeiten zur Verfügung - 
Speicherung auf Kassette oder Speicherung auf Diskette. Da sich 
die beiden Speichermedien in Möglichkeiten und Art der 
Datenspeicherung sehr unterscheiden, sollen sie getrennt 
beschrieben werden. 


S.2.1 Datenspeicherung auf Kassette 

Die Technik des Kassettenrekorders erlaubt es prinzipiell nur 
Daten sequentiell aufzuzeichnen und auch nur in der gleichen 
Reihenfolge wieder zu lesen. Einen wahlweisen Zugriff auf 
bestimmte Daten ist also nicht möglich. Man muß solange lesen, 
bis man die gewünschten Daten erreicht hat. Es lassen sich nur 
die Datei komplett lesen, die Änderung vornehmen und dann die 
Datei wieder komplett auf Band zurückschreiben. 

Da zur Programmspeicherung nur ein sequentielles Schreiben 
und Lesen notwendig ist, bietet sich der Kassettenrekorder als 
preiswertes Gerät zur Programmspeicherung an. Als Nachteil 
bleibt jedoch die geringe Geschwindigkeit, mit der die Aus¬ 
zeichnung geschieht. Dies ist ein prinzipieller Nachteil, da die 
Daten seriell (bitweise) übertragen und gespeichert werden. Aus 
Gründen der Datensicherheit werden die gesamten Daten zwei¬ 
mal hintereinander übertragen, um Aussetzer (drop outs) durch 
fehlerhafte Bandstellen korrigieren zu können. 

Sehen wir uns jetzt die Technik der Datenspeicherung auf Kas¬ 
sette etwas genauer an. Sollen Daten auf Band geschrieben wer¬ 
den, so muß erst einmal festgestellt werden, ob das Band läuft. 
Der Computer kann eine gedrückte Taste der Datasette regis¬ 
trieren, indem er Bit 4 des Prozessorports (Adresse SOI) abfragt. 
Ist dieses Bit der Speicherzelle 1 gelöscht, so ist eine Bandtaste 
gedrückt. Nachdem der Computer eine gedrückte Taste regis¬ 
triert hat, beginnt er seine Arbeit. 
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Zuerst wird ein Ton zur Synchronisation auf das Band geschrie¬ 
ben. Anschließend werden die Daten geschrieben. 

Bevor die eigentlichen Programmdaten aufgezeichnet werden, 
wird ein sogenannter Header geschrieben, der unter anderem 
den Datentyp angibt. 

Wie bereits gesagt, werden die Daten zweimal auf Band ge¬ 
schrieben. Dies geschieht, um eine höhere Datensicherheit zu 
erzielen. Damit diese Prozedur nicht zu lange dauert, werden die 
zu schreibenden Daten zuerst in einem Puffer gesammelt, bevor 
sie auf Band geschrieben werden. Der Bandpuffer ist 192 Zei¬ 
chen lang und liegt beim Commodore 64 von Adresse $033C bis 
$03FB (828 - 1019). Beim Einlesen wird immer ein ganzer Block 
gelesen und im Bandpuffer gespeichert von wo aus die Daten 
mit INTUT# oder GET# einzeln geholt werden können. 

Durch das zweimalige Schreiben der Daten ist der Computer in 
der Lage, maximal 31 Fehler pro Block zu korrigieren, sofern 
diese Daten im zweiten Block lesbar sind. 

Tritt ein Fehler auf, so wird dieser durch setzten des entspre¬ 
chenden Bits im Statusregister angezeigt. 

Hier eine Bescheibung der möglichen Fehlerarten: 


Bit 2 gesetzt: 

Dieser Fehler tritt auf, wenn ein Blockende gefunden wurde, 
jedoch noch nicht alle Daten gelesen wurden. 


Bit 3 gesetzt: 

Zu diesem Fehler kommt es, wenn alle Daten eines Blocks gele¬ 
sen wurden, jedoch kein Blockende erkannt wurde. 
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Bit 4 gesetzt: 

Bit 4 ist gesetzt, wenn ein Byte nicht korrekt gelesen werden 
konnte und dieses Byte im zweiten Block auch fehlerhaft war. 


Bit 5 gesetzt: 

Bit 5 ist gesetzt, falls die beim Speichern errechnete Prüf summe 
des Blocks nicht mit der Prüfsumme beim Lesen übereinstimmt. 
Die Prüfsumme wird gebildet, indem die Daten des Blocks mit 
der Exklusive-Oder-Anweisung verknüpft werden. 

Sehen wir uns den oben erwähnten Header einmal näher an. Das 
Interessanteste am Header ist das erste Byte. Es ist das Kenn¬ 
zeichen für den Datentyp. 


Der Header ist folgendermaßen auf gebaut: 


1. 

Byte 

Kennzeichen für Datentyp 

2. 

Byte 

Startadresse, Low Byte 

3. 

Byte 

Startadresse, High Byte 

4. 

Byte 

Endadresse, Low Byte 

5. 

Byte 

Endadresse, High Byte 

6.- 21. 

Byte 

Filename, der bei FOUND ausgegeben wird 

22.-I92. 

Byte 

Filename, der nicht ausgegeben wird 


Der Datentyp (erstes Byte) hat folgende Bedeutung: 


Datentyp 1: 

Bei Datentyp I handelt es sich meist um BASIC-Programme. Sie 
werden im allgemeinen ab BASIC-Startadresse S0801 (2049) 
geladen. Durch Laden einer Sekundäradresse, die ungleich eins 
ist, wird das Programm an die Adresse geladen, von der es 
gesaved wurde. 
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Datentyp 2: 

Der Datentyp zwei ist die Kennzeichnung für den Anfang eines 
Dateiblocks. Nach ihm folgen weder Start- noch Endadresse und 
auch kein Programmname. Von Byte 2 bis Byte 192 folgen 
Daten, die mit PRINT# geschrieben und mit INPUT# oder 
GET# gelesen werden. Es können auch mehrere Blöcke von Typ 
2 hintereinander stehen, je nach Länge der Datei. Damit der 
Computer die Daten dieser Blöcke verarbeiten kann, muß er 
zuvor einen Dateiheader mit Datentyp 4 finden. In diesem Hea¬ 
der findet er auch den Dateinamen. 


Datentyp 3: 

Wird im Header der Datentyp 3 erkannt, so wird das folgende 
Programm, ohne Änderung des Betriebssystems, immer ab der 
im Header angegebenen Adresse geladen. Der Headertyp 3 wird 
dann benutzt, wenn Maschinenprogramme geladen werden sol¬ 
len, deren Anfangsadresse nicht dem BASIC-Start entspricht. 
Dieser Datentyp wird bei Programmen mit AUOTSTART ver¬ 
wendet. Das Angeben einer eigenen Startadresse, was beispiels¬ 
weise zur Unterdrückung eines AUTOSTART führt, ist im 
Kapitel "Nutzen des ROM-Listings" beschrieben. 


Datentyp 5: 

Wird im Header der Datentyp 5 erkannt, so sollte die Fehler¬ 
meldung "FILE NOT FOUND ERROR" ausgegeben werden. 
Statldessen erfolgt die Ausgabe der sinnlosen Meldung "DEVICE 
NOT PRESENT ERROR". Die einfache Erklärung dafür ist, daß 
es sich dabei um einen Fehler im Betriebssystems handelt. Das 
Aufbringen einer End of Tape (EOT) Markierung dient dazu, 
das Ende aller auf dem Band befindlichen Programme und 
Dateien zu markieren, um ein unnötiges weiteres Suchen zu ver¬ 
hindern. 

Wird beim Schreiben eines Files, was ein Programm Oder eine 
Datei sein kann, ein Filename, der aus mehr als 16 Zeichen 
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besteht, angegeben, so werden diese "überschüssigen" Zeichen 
durchaus gespeichert. Der Block hat ja noch 187 Bytes übrig, die 
vom Filenamen belegt werden können. Diese "überschüssigen" 
Zeichen werden zwar nicht bei der FOUND-Meldung ausgege- 
ben, jedoch überprüft der Computer beim Finden des Namens 
auf diese unsichtbaren Zeichen. Es ist möglich, diese Zeichen 
mit der PEEK-Anweisung auszulesen. Von dieser Möglichkeit 
wird aber normalerweise kein Gebrauch gemacht. 

Die Endadresse des geladenen Programms steht nach dem Laden 
in den Adressen $AE und $AF (174 und 175). $AE enthält das 
LOW- und $AF das HIGH-Byte. 

Welche Befehle werden benutzt, um all diese verschiedenen 
Dateitypen auf Band zu schreiben und von Band zu lesen? Im 
folgenden eine Übersicht darüber: 


LADEN 

LOAD"NAME*,l lädt Programm ab BASIC-Startadresse. 

Programme des Datentyps 3 werden ab¬ 
solut geladen, das heißt an die auf Band 
aufgezeichnete Adresse. 

LOAD"NAME",l,l Programm wird immer absolut geladen 


SPEICHERN 


SAVE '‘NAME",! 
SAVE "NAME",1,1 
SAVE "NAME",] ,2 

SAVE "NAME",1,3 


speichert als BASIC-Programm ab 
speichert als Maschinenprogramm ab 
speichert als BASIC-Programm mit zu¬ 
sätzlichem EOT-Block 
speichert als Maschinenprogramm mit 
zusätzlichem EOT-Block 


Beim öffnen einer Banddatei hat die Sekundäradresse folgende 
Bedeutung: 
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OPEN 1,1,0, "NAME" öffnet Datei rum Lesen 
OPEN 1,1,1, "NAME" öffnet Datei zum Schreiben 
OPEN 1,1,2, "NAME" öffnet Datei zum Schreiben mit zusätz¬ 
lichem EOT-Block 

Der CLOSE-Befehl schließt eine Datei wieder. War die Datei 
zum Schreiben geöffnet, so wird in den Bandpuffer ein End¬ 
kennzeichen (Nullbyte) und der Puffer auf Band geschrieben. 

Daraus wird klar, daß es unbedingt erforderlich ist, nach dem 
Schreiben auf eine Banddatei diese mit CLOSE zu schließen, da 
sonst die letzten Daten nicht auf Band geschrieben werden und 
verlorengehen. Wurde die Sekundäradresse 2 angegeben, wird 
zusätzlich noch ein END-of-Tape-Block (EOT) auf Band ge- 
schrieben. 

Es ist zu beachten, daß es zu einer Einschränkung bei der 
Datenübertragung auf Band kommen kann. Normalerweise wer¬ 
den die Daten im ASCII-Format auf Band geschrieben (Buch¬ 
staben, Ziffern und Sonderzeichen). Werden mit PRINT#I, 
CHRS(I) Daten geschrieben, so lassen sich nicht alle möglichen 
Zeichen schreiben. Insbesondere wird CHRS(O) ausgefiltert, da 
es vom Betriebssystem als Endkennzeichen verwendet wird. 

Auf das Laden und Speichern von Programmen werden wir im 
nächsten Abschnitt eingehen. 
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KASSETTE : 


Pin 

Signal 

A-1 


B - 2 

+ SV 

C - 3 

1 KASSETTE MOTOR 

D - 4 

' KASSETTE READ 

E - S 

KASSETTE WRiTE 

F - 6 

KASSETTE SENSE 



Abb S.2.1 Cuetten-Port 


5.2.2 Datenspeicherung auf Diskette 

Alle Einschränkungen, die bei den Kassettenoperationen be¬ 
schrieben wurden, bestehen bei der Datenübertragung auf 
Diskette nicht. Eine Diskette ist in einzelne Spuren und Sektoren 
unterteilt, auf die wahlweise zugegriffen werden kann. Dadurch 
ist es möglich, direkt auf die gewünschten Daten zuzugreifen, 
ohne erst eine Vielzahl anderer Daten überlesen zu müssen. 

Die Commodore-Floppy S141, das Diskettenlaufwerk des C64, 
hat folgende Daten: 

35 Tracks (mit Tricks bis zu 40) 

21 Blöcke auf Track 01-17 
19 Blöcke auf Track 18-24 
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18 Blöcke auf Track 25-30 

17 Blöcke auf Track 31-35 

664 Blöcke Speicherkapazität (ca. 164 KB) 

Programme werden folgendermaßen gespeichert; Zuerst werden 
das LOW-Byte und das HIGH-Byte der Programmadresse über¬ 
tragen und unmittelbar danach das Programm selbst. Ein Unter¬ 
schied zwischen BASIC-Programm und Maschinenprogramm 
wird beim Abspeichern nicht gemacht. Die Unterscheidung fin¬ 
det nur beim Laden statt. 

LOAD "NAME”,8 lädt BASIC-Programm. Die Programm¬ 

startadresse wird ignoriert, es wird ab 
BASIC-Start geladen (normalerweise 
$0801). 

LOAD ''NAME’’,S,I lädt Maschinenprogramm, das Programm 

wird ab der beim Speichern angegebenen 
Startadresse geladen. 

Mit dem folgendem Programm können sie die auf Diskette ver¬ 
merkte Anfangsadresse feststellen. 


10 Open 1,8,0,"nahe** 

20 GETUI, AS, BS 
30 IF AS < THEN AS s CHRSCO) 
40 IF BS s "" THEN BS s CHRSCO) 
so PRINT ASC(AS)*256*ASC(BS) 

60 CLOSE 1 


Zuerst wird ein File zum Laden geöffnet (Sekundäradesse 0) und 
daraufhin die ersten zwei Bytes des Programms von Disk geholt. 
Sie bilden die Startadresse, die dezimal ausgegeben wird. Die 
Abfrage auf den Leerstring in Zeile 30 und 40 ist deshalb erfor¬ 
derlich, weil der GET-Befehl ein Nullbyte nicht akzeptiert. 

Soll ein Maschinenprogramm auf Diskette geschrieben werden, 
so kann dies so geschehen: 
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10 OPEM 1.SJ,"HAHE" 

20 PRINT«1, CHR$(AD-tNT(AD/2S6)*256>; 

30 PRINT«1, CHR$(AD/256); 

60 FOR I>0 TO N -1 
SO PR1NT«1, CHRS(PEEK(AD«I}>; 

60 CLOSE 1 

In Zeile 10 wird ein Programmfile zum Schreiben geöffnet 
(Sekundäradesse 0). Daraufhin wird die Startadresse des Pro¬ 
gramms in der Reihenfolge LOW- und HIGH-Byte auf Disk 
geschrieben. Anschließend werden die Programmdaten geschrie¬ 
ben und im Anschluß daran die Datei wieder geschlossen. Das 
Schließen der Datei ist sehr wichtig, da ansonsten Daten verloren 
gehen können. Die Variable AD enthält dabei die Startadresse, N 
ist die Länge des Programms in Bytes. 

Wie kann man nun Programme oder beliebige Speicherbereiche 
von Maschinensprache aus abspeichern? 

Auch hierzu existieren wieder zwei Betriebssystem-Routinen, 
die diese Arbeit übernehmen. 

LOAD $FFD5 
SAVE $FFD8 

Die LOAD-Routine wird folgendermaßen benutzt: 

Der Akku wird mit Null geladen. Dies ist das Kennzeichen für 
LOAD. Wird die LOAD-Routine mit I im Akku auf gerufen, 
wird VERIFY durchgeführt. Die Sekundäradresse entscheidet, 
wohin geladen wird. Ist die Sekundäradresse ungleich Null, so 
wird an die Adresse geladen, die im Programm gespeichert ist. 
Ist die Sekundäradresse gleich null, wird an die Adresse geladen, 
die im X- (low) und Y-Register (high) übergeben wird. Ferner 
müssen Geräteadresse und Filename ausgegeben sein. Auch dazu 
gibt es ROM-Routinen. 

Beispiel; Laden eines Maschinenprogramms von Diskette, mit 
dem Namen "NAME", an die Adresse $1000. 
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COOO 

LDX 

«S08 

C002 

LDY 

«too 

C004 

JSR 

BFFBA 

C007 

LDA 

#S04 

C009 

LDX 

«SIE 

COOB 

LOY 

«SCO 

COOO 

JSR 

sffbd 

C010 

LDA 

«SOO 

C012 

LDX 

«SOO 

C014 

LOY 

«S10 

C016 

JSR 

SFFD5 

C019 

STX 

SAE 

C01B 

STY 

SAP 

C01D 

RTS 


COIE 

6E 41 40 45 00 


Geräteadresse für F lofspy 
Sekundaradresse 00 
Fileparaneter setzen 
Anzahl der Zeichen des Namens 
LOU'Byte der Adresse des Namens 
HIGH-Byte der Adresse 
Filenamenpsraneter setzen 
SOO Flag für LOAD 

LOU-Byte der Prograniwnfsngssdresse 
HIGH-Byte der Adresse 
LOAD-Routine 

LOU-Byte der Eridadresse speichern 
HIGH'Byte der Adresse speichern 
Rdeksprung voia Hauptprogrann 

00 00 00 NAHE 


Wie aus dem Beispiel ersichtlich, übergibt die LOAD-Routine 
im X- und Y-Register die Endadresse des geladenen Programms. 
Um das Programm absolut an die gespeicherten Adressen zu 
laden, muß als Sekundäradresse 01 gewählt werden. In diesem 
Fall könnten auch die Befehle in den Speicherzellen SC012 bis 
SCOlS entfallen. 

An dieser Stelle nun der angeköndigte Nachtrag zum Laden 
eines Programms von Band. Im nächsten Beispiel soll ein Pro¬ 
gramm vom Band ab Adresse $6000 geladen werden, die mit 
abgespeicherte Adresse wird ignoriert, sofern der Datentyp nicht 
3 ist. Ist dies der Fall, so ist es nicht ohne weiteres möglich, das 
zu ladende Programm auf eine beliebige Adresse zu legen. Wie 
dies jedoch dennoch geschehen kann, lesen Sie bitte im Kapitel 
6.1 "Nutzung des ROM-Listings" nach. 


COOO LDX «BOI 
C002 LOY «$00 
C004 JSR SFFBA 
C007 LDA «SOA 


; Geräteadresse für Band 
; Sekuridäradresse 00 
; Fileparaneter setzen 
; Anzahl der Zeichen des Namens 
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C009 

LDX 

fSIE 


COOB 

LOY 

«SCO 


COOD 

JSR 

SFFBD 


C010 

LOA 

«SOO 


C012 

LOX 

«SOO 


COK 

LOY 

«S60 


C016 

JSR 

SFFD5 


C019 

STX 

SAE 


C01B 

STY 

SAF 


C010 

RTS 



C01E 

6E 61 40 45 

00 


LOW-Byte der Adresse des Nwwns 
HIGH-Byte der Adresse 
FilenamenparflMter setzen 
SOO Flag für LOAD 

LOU-Byte der PrograMmnfangsadresse 
HtGH'Byte der Adresse 
LOAD'Routine 

LOU-Byte der Endadresse speichern 
HIGH-Byte der Adresse speichern 
Rücksprung vom Heuptprogramn 

00 00 00 NAHE 


Wie Sie sehen, besteht der einzige Unterschied im Laden von 
Programmen von Band oder von Disk in der veränderten Gerä¬ 
teadresse. 

Mit einem Maschinensprachemonitor wird das Programm ohne 
weitere Angaben immer absolut geladen und gespeichert. 

Soll von einem BASIC-Programm aus ein Maschinenprogramm 
mit LOAD geladen werden, so ergeben sich einige Schwierig¬ 
keiten. Absolutes Laden läßt sich zwar leicht durch Angabe der 
Sekundäradresse 1 erreichen. Es besteht jedoch noch ein zweites 
Problem. Nach jedem LOAD wird die Endadresse des geladenen 
Programms immer gleich der Endadresse des BASIC-Programms 
gesetzt, und die Programmausführung beginnt wieder am Pro¬ 
grammanfang. Dies ist für das Nachladen von BASIC-Program- 
men (Overlay) durchaus sinnvoll, macht jedoch beim Laden von 
Maschinenprogrammen oder sonstigen Speicherinhalten Pro¬ 
bleme. ln einem solchen Fall empfiehlt sich ein kleines Maschi¬ 
nenprogramm wie eines der obigen Beispiele, das z.B. vom 
BASiC-Programm aus mit SYS aufgerufen wird. Auch eine 
Parameterübergabe ist möglich, z.B. Filenamen und Gerä¬ 
teadresse. 

Mit den nun gezeigten Beispielen lassen sich (allerdings mit den 
genannten Schwierigkeiten) Maschinenprogramme von BASIC 
aus laden. 
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10 IF A*1 THEH 60 
20 A=1 

30 LOAD "NAHE“.e,1 

60 PRINT " PROGRAHH GELADEN" 

50 END 

Sollen mehrere Programme hintereinander geladen werden, so ist 
das mit dem folgenden BASIC-Programm möglich. 

10 ON A GOTO 30,50,80 
30 AeA+1 

60 LOAD "NAME 1",8,1 

50 PRINT " ERSTE PROGRAHH GELADEN" 

60 A>A*1 

70 L0AD"HAHE 2".8,1 

80 PRINT " ZWEITE PROGRAHH GELADEN" 

90 END 

Abspeichern von Programmen oder beliebigen Speicherbereichen 
mit der SAVE-Routine geschieht ähnlich. Hierzu muß der 
SAVE-Routine die Start- und Endadresse mitgeteilt werden. 
Außerdem werden Geräteadresse sowie Länge und Adresse des 
Filenamens (beim Abspeichern auf Diskette unbedingt erforder¬ 
lich) benötigt. Die Startadresse muß in der Zeropage an zwei 
aufeinanderfolgenden Adressen stehen (LOW- und HIGH-Byte), 
im Akku wird ein Zeiger auf diese Adresse übergeben. Das 
LOW-Byte der Endadresse steht im X- und das HIGH-Byte im 
Y-Register. Geräteadresse und Filenamenparameter werden wie 
bei der LOAD-Routine gesetzt. Wir wollen als Beispiel jetzt den 
Speicherbereich von SCOOO bis SC200 unter dem Namen 
*NAME" auf Diskette speichern und haben die Startadresse des 
Programms in SFB/SFC gespeichert. 


COOO LDX MOS 
C002 IDY «SOI 
C006 JSR SFFBA 
C007 LDA M06 
C009 LDX MZZ 


; Geriit«adr«sse für Floppy 
; Sekundäradresse S01 
: Fi leparameter übergeben 
; Anzahl der Zeichen des Natnens 
; LOW-Byte der Adresse des Namens 
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•OOB 

IDY 

«SCO 

cooo 

JSR 

BFFBO 

C01D 

LDX 

«too 

C012 

LOY 

#sco 

cou 

STX 

SFB 

CQ16 

STY 

SFC 

C018 

LPA 

«SFB 

COiA 

LDX 

«SOI 

C01C 

UDY 

#SC2 

C01E 

JSR 

SFFD8 

C0Z1 

RTS 


C022 

6E 61 60 65 00 


HICB-Byte der Adraese 
Fflenamenparaneter übergeben 
LOU-Byte der Startadresse 
HICH-Byte der Adresse 
LOU-Byte spefchern 
HiGH-Byte spefchern 

mitteilen, wo Adresse gespeichert wurde 
LOU-Byte der Endadresse * 1 
KtGH-Byte der Eridadresse 
SAVE-Routine 

Rücksprung vom Unterprograim 
00 00 00 KÄME 


Wie Sie aus dem Beispiel ersehen, wird der Inhalt der 
Endadresse nicht mehr abgespeichert, es muß deshalb immer die 
Endadresse plus eins angegeben werden. Zum Abschluß wollen 
wir noch ein BASIC-Programm ohne Filenamen mit EOT- 
Kennzeichen auf Kassette schreiben. 


COOO 

LDX 

«SOI 

C002 

LDY 

«S02 

C006 

JSR 

sffba 

C007 

LDA 

«soo 

C09? 

JSR 

SFFBD 

COOC 

LDA 

«S2B 

CODE 

LDK 

S2D 

C010 

LOY 

S2E 

C012 

JSR 

SFF08 

C015 

RTS 



5.3 Die CIAs 


Gerätaadresse für Band 
Sekundäradresse 02 für End of Tape 
FUeparameter übergeben 
kein Hane 

Fitenamenp*r«net«r übergeben 
Zeiger auf BASIC-Programstart 
LOU-Byte der BASIC-Endadresse 
HtGH-Byte der BASIC-Endadresse 
SAVE-Routine 

RückspruTfl von Unterprogram 


Die CIAs (Complex Interface Adapter) sind zwei sehr leistungs¬ 
fähige Interfacebausteine, deren Leistungsfähigkeit beim C64 
jedoch nicht vollkommen ausgenutzt wird. Die CIAs sind die 
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Nachfolger der VTAs, die noch un VC20 und in der Floppy 1541 
Verwendung gefunden haben. 

Bevor wir auf die Arbeitsweise der CIAs eingehen, noch einige 
allgemeine Informationen: 

Die beiden völlig identischen Bausteine unterscheiden sich 
lediglich in ihren Aufgaben und in der Weise, wie sie mit den 
übrigen Elementen des Computers verbunden sind. Der CIA 1 
dient hauptsächlich der Taslaturabfrage. Zusätzlich werden von 
ihm der Joystick, Paddels, Lightpen und Maus verwaltet. Er ist 
mit der IRQ-Leitung (Interupt Request) des Computers verbun¬ 
den und belegt den Adreßbereich von SDCOO bis $DCFF. Der 
CIA 2 hingegen dient ausschließlich der Steuerung von Periphe¬ 
riegeräten. Seine Leitungen sind am Userport herausgeführt. Er 
ist mit der NMI-Leitung (Nicht Maskierbarer Interupt) des 
Computers verbunden und belegt den Speicherbereich von 
SDDOO bis SDDFF. 

Der Interrupt der CIA 2 hat deshalb eine höhere Priorität im 
Vergleich zur CIA 1. Dies ist auch sinnvoll, da die CIA 2, wie 
bereits erwähnt, die zeitkritischen Ein- und Ausgabeoperationen 
ausführt. 

Die ClAs verfügen jeweils über zwei freiprogrammierbare 
Timer, eine unbenutzte Echtzeituhr, und zwei freiprogrammier¬ 
bare 8-Bit-Datenports. 


5.4 Die E/A-Ports 
5.4.1 Tastaturabfrage 

Die CIA’s verfügen Über zwei 8-Bit-Datenregister (PRA und 
PRB) bei denen jede der Leitungen sowohl als Ein- als auch als 
Ausgang gewählt werden kann. Um dies festzulegen, verfügen 
die CIAs über jeweils zwei 8-Bit-Datenrichtungsregisler (DDRA 
und DDRB). Wenn ein Bit im DDR gesetzt ist (=1), arbeitet das 
korrespondierende Bit des PR als Ausgang. Ist das Bit im DDR 
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gelöscht (=0), so ist das entsprechende Bit des PR als Eingang 
definiert. Durch das Auslesen der DDRs erfahr man die 
Eingangsspannungsbelegungen der PRs. 

Die Portleitungen PAO bis PA7 und PBO bis PB7 des CIA I fra¬ 
gen unter anderem, wie aus dem Schaltplan im Anhang ersicht¬ 
lich, die Tastatur ab. Sie bilden eine 8-mal-8-Matrix, die es 
ermöglicht, 64 Tasten abzufragen. 

Falls Sie die Tasten Ihres C64 einmal gezählt haben, haben Sie 
jedoch festgestellt, daß dieser 66 Tasten hat. Das ist dadurch zu 
erklären, daß die RESTORE-Taste über eine eigene Leitung 
verfügt, die bei einem Tastendruck die RESTORE-Leitung auf 
Masse legt und dadurch einen NMI (Nicht Maskierbarer Inter¬ 
rupt) auslöst. Die zweite fehlende Taste ist SHIFT-LOCK. Sie ist 
parallel zur linken SHIFT-Taste geschaltet. 

Eine Erklärung vorweg; Wenn ein Datenport im Datenrich¬ 
tungsregister auf Eingang geschaltet ist, und dieser nicht belegt 
ist, so sind diese Bits im Datenregister auf HIGH geschaltet 
(gesetzt). Zum besseren Verständnis arbeiten Sie bitte mit der 
Tabelle am Ende des Kapitels. 

Beim CIA 1 sind die Leitungen PAO bis PA7 als Ausgang ge¬ 
schaltet, die Leitungen PBO bis PB7 als Eingang. Fragt die 
Interruptroutine des Betriebssystems die Tastatur ab, so legt sie 
die Anschlüsse des Ports A kurzzeitig auf LOW, die Bits der 
Adresse SDCOO (56320) werden gelöscht. 

Wird eine Taste gedrückt, so wird das Lowsignal des Port A 
über die Leiterbahn auf das entsprechende Bit des Port B über¬ 
tragen. 

Die anderen Bits des Port B sind in diesem Fall nicht ange¬ 
schlossen und deshalb, wie bereits erklärt, gesetzt. 

Erkennt das Betriebssystem einen vollständig gesetzten Port B, so 
wurde keine Taste gedrückt, und es wird zum Ende der 
Tastenabfrage gesprungen. 
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Wurde beispielsweise H gedrückt, so wird Bit S des Port B 
gelöscht. Daran kann der Rechner erkennen, daß eine der Tasten 
F3, S, F, H, K, :, = oder die Commodore-Taste gedrückt sein 
muß. Um festzustellen, welche dieser Tasten gedrückt ist, setzt 
der Rechner alle Bits des Port A bis auf das erste auf high und 
schiebt die Bits des Port B nacheinander ins Carry-Flag, um zu 
überprüfen, ob sie gelöscht sind. Sobald er ein gelöschtes Bit 
festgestelll hat, holt er sich den entsprechenden Tasten-Code aus 
einer der Tabellen ab SEB8I. Aus welcher Tabelle der Tasten- 
Code geholt wird, hängt davon ab, ob SHIFT oder COMMO- 
DORE-Taste gleichzeitig betätigt wurden. Waren alle Bits des 
Port B gesetzt, wird das nächste Bit des Port A gelöscht und alle 
Übrigen gesetzt. Daraufhin wiederholt sich die Kontrolle des 
Port B. 


Sind mehrere Tasten gedrückt, so werden entsprechend mehr 
Bits des Port B gelöscht. Daraus wird ersichtlich, daß es möglich 
Ist, mehrere Tasten gleichzeitig abzufragen. 

Als erstes nun ein Programm, daß es erlaubt, auf eine Taste 
oder auf eine Betätigung des Joysticks zu warten, ohne daß eine 
der Routinen zur Tastenabfrage angesprungen werden muß. Es 
ist also möglich, auf einen Tastendruck zu warten, obwohl der 
Interrupt, der die Tastatur abfragt, verhindert ist. 


COOO LDA *S00 
C002 STA SOCOO 
C005 LDA SDC01 
C008 CHP «SFF 
COOA BEC SCQOO 
COOC RTS 


; Port A auf Low legen 
; Port 6 holen 
; Toste gedrückt 
; Nein, dann wieder ztnt Anfang 
; Rüeksprung vom UnterprograiM 


Das folgende Programm fragt mehrere Tasten auf einmal ab. Das 
Programm springt nur aus der Schleife, falls DEL, W, und die 
RUN/STOP-Taste gleichzeitig gedrückt sind. 


COOO SEI ; Interri4)t verhindern 

C001 LDA ((SOO 
C003 STA SDCOO 


; Port A auf LoH setzen 
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C006 LOA tOCOl 
C0Q9 CNP «IFF 
COOB BEO SC001 
COOD LDX MOO 
COOF LOA «IFE 
C011 PHA 
C012 STA tOCOO 
C015 LDA SDC01 
C018 CKP SC020,X 
CD1B BEO SC021 
C010 PLA 
COIE CLC 
C01F BCC SC001 
C021 PLA 
C022 INX 
0023 CPX «SI» 
C025 BEO SC02B 
C027 SEC 
C028 ROL 
C029 BNE SC011 
C026 CLI 
C02C RTS 


Port S holen 

Taste Bedrückt 

Hein, dann wieder von Anfang 

Zähler auf SOO setzen 

Alle Bits bis auf das erste gesetzt 

Wert*speichern 

an Port A ubergeben 

Wert von Port B holen 

Nit Wert aus Tabelle vergleichen 

Ja, dann weiter 

Ansonsten Stapel rücksetzen 

und zus 

Anfang springen 
Gespeicherten Wert holen 
Zähler erhöhen 
Nit Endwert vergleichen 
Ja, dann zun Ende 
Carry setzen 

gelöschtes Bit us eins verschieben 
laibedingter Sprung 
Interrupt wieder ermöglichen 
Rücksprung voni Unterprogram 


CD20 FE FO FF FF FF FF FF 7F; Daten für die Tasten 


Die Bits des Port A werden einzeln, der Reihe nach gelöscht 
und die dazugehörige Bitkombination des Port B überprüft. 
Daraus ergeben sich acht Werte für Port B, die ab Adresse 
SC02D abgelegt sind. 

Wie schon erwähnt, holt sich das Betriebssystem den ASCII Wert 
der gedrückten Taste aus einer Tabelle. Zuvor wird jedoch die 
soeben gedrückte Taste in einem anderen Code in der Adresse 
SCB und eine Kopie davon in der Adresse SCB abgelegt. Dieser 
Code entspricht der Stellung des entsprechenden ASCII-Wertes 
in der eben erwähnten Tabelle ($EB8I). 

Wenn es auf Geschwindigkeit ankommt, so empfiehlt es sich, die 
gedrückte Taste direkt in einer dieser Adressen abzufragen. Die 
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entsprechende Tabelle zur Identifizierung der Tasten finden Sie 
am Ende dieses Kapitels. 


PORT B tDCOl 

PORT A 

$OC 00 BIT r BIT e BIT S BIT 4 BIT 9 BIT 2 BtT 1 BIT 0 


UW 


»'T ' -(;rJ[{E>rs 

BIT 3 - I V j-iJJ W H 


Z 4 


C 6 

I 


B 8 


N}iPimiMiroiün 


A HW 3 

Ti; 

D IhR 5 

Xli, L 

Gi'YH 7 H 

I 

j 'H i I 


BIT 5 —I I 


0 

p 



RUN 1 
■ STOPp 


@H : H ■ H-H L^P 

I 

Q U g: -SPAC6- 2 \- ^ 


Abb. S.4.i.l; TMtatur-Mstrix 
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TabeHe der Ta _ 

OEZ HEX BSD. I OEZ HEX BED 

0 lOO'Siü 1 61 q\ 
1 ioi S l l 7 1 1 R 

1 8 1 2 D 



3 ;03 

: F7 

4 04 

: F1 

5 05 

: F3 


6 06 F5 22:1 6: 


3 

6 

& 

4 

C 

5 

F 



T 138:26 o 


23:1 7 X 13927 N 


48 

3o; £ 

49 

31; “ 

50 32 ’ ] 

51 

o o ^ 

O O HOM 

5 2 4 bilsg 

53 351 = 

54 

36:U 

55 

37 ■ / 


4028 + 15 6381^ 


8 0 8 2 4 18^. 

9 09 w 25 19 Y |41 29 p 
1 0 OA A 26 1 A G 
1 1 OB % 271 B ^( 

1 2 PC: z 2 8:1 C: b 
1 3 0 D: s 2 9:1 D: h 
1 4;0E E 30 1 E: u 
1 5 OFbiJ^g. 3 1:1 F v 


5:2P:' I 
^:2E @ 
72F ’< 


583 


59 3B;^ " 
6 0 3 

6 1 3 DÄ 
62 3E Q 


63 3Fs 


64 l$4 0 = keine Taste 


Abb. 5.4.1.2; Tutencodicrung 
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5.4.2 Joystick 

Die Joystickabfrage erledigt der CIA I. Wie aus dem Schaltplan 
gut ersichtlich, werden für den Joystickport I die Bits PBO bis 
PB4 und für Joystickport 2 die Bits PAO bis PA4 der CIA 1 
belegt. Über die Schalter des Joysticks wird Masse, das heißt ein 
Low.-Signal, auf die entsprechende Portleitung gelegt. 

Es ist selbstverständlich auch möglich, mehrere Leitungen auf 
low zu legen und dies dort abzufragen, sofern die entsprechen¬ 
den Portleitungen im DDRA als Eingang definiert waren. Da der 
Joystickport 1 mit Port B der CIA i verbunden ist, wird auch 
verständlich, daß beim Betätigen des Joysticks "wunderliche" 
Zeichen auf dem Bildschirm erscheinen. Hier nun eine Über¬ 
sicht Ober die Zuordnung der Portleitungen: 


Kontrollport 1 
Adresse SDCOl 


Kontrollport 2 
Adresse JDCOO 


oben; 

unten: 

links: 

rechts: 


Port BO 
Port Bl 
Port B2 
Port B3 


Port AO 
Port A 1 
Port A2 
Port A3 


Feuer: Port B4 


Port A4 


Mit dem folgenden BASIC-Programm kann man den Joystick in 
Joystickport 2 abfragen. 


10 POKE 56322,224 
20 J=PEEIC (56320) 

30 IF (J AND 1)»0THEM PRINT“0BEN" 
40 IF (J AND 2)°0THEM PRINT"UNTEN" 
50 IF <J AND <)=0TKEB PRII>T''LIHr$" 
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60 (F (J AND 8>=0THEN PRINTXRECHTS" 
70 IF (J AND 16)=0THEN PRINT”ICNOPF" 
60 GOTO 20 


ln Zeile 10 werden die Leitungen PAO bis PA4 des PRA als 
Eingang geschaltet. Dies geschieht im DDRA, der Register 2 der 
CIA 1 ($DC02) belegt. Daraufhin werden die Daten von Port A 
geholt und kontrolliert, welche Bits gelöscht wurden. 
Anschließend wird wieder zur Abfrage gesprungen. Das Pro¬ 
gramm können Sie nicht mit der STOP-Taste unterbrechen, da 
keine Tastenabfrage mehr möglich ist. Falls Sie das Programm in 
Ihr eigenes Programm einbauen wollen, so ist es nicht unbedingt 
nötig, auf eine Tastenabfrage zu verzichten. Durch POKE 
56322,255 wird die Tastenabfrage wieder ermöglicht. Um die 
Joystickabfrage auf Joystickport 1 zu verlegen, brauchen Sie nur 
zu jeder Adresse eine 1 zu addieren. 


5.4.3 Die Verwendung von Paddies 

An den C64 können handelsübliche Paddies angeschlossen wer¬ 
den. Sie werden einfach in den Controlport 1 auf der rechten 
Seite des Gerätes eingestöpselt. Hinter einem Paddle verbirgt 
sich nichts weiter als ein Potentiometer, welches auf die im 
Kapitel 4 erläuterte Weise mit dem SID verbunden ist. und eine 
Taste, welche auf die Joystickposition LINKS für das eine 
Paddle und RECHTS für das andere Paddle wirkt. 

Ein wenig problematisch ist das Verfahren, die Paddlewerte pro¬ 
grammtechnisch auszuwerten, da sich einige Bits zur Paddie¬ 
steuerung und -abfrage die ClAs 1 und 2 mit der Tastatur teilen 
müssen. 

Probleme bereiten zum einem die Tasten an den Paddies und 
zum anderen die Tatsache, daß Anschlußmöglichkeiten für zwei 
Paddlepaare (also vier Paddies) bestehen, der SID aber nur über 
zwei Analog/Digital-Wandler verfügt. Letzteres Problem wird 





Die CiAs 6526 


211 


dadurch gelöst, indem die Paddies über einen Analogschalter 
geführt werden.Um diesen zu bedienen, werden zwei weitere 
Bits der CIA 1 herangezogen. 

Es muß also auch hier zur Auswertung der A/D-Wandler die 
Tastatur lahmgelegt werden, allerdings nur für die Zeit des 
tatsächlichen Zugriffs, da man sonst mit der Tastatur nicht mehr 
arbeiten könnte. 

Die Lösung bringt folgendes kleine Maschinenprogramm. Es 
wird als DATA-Statements in ein BASIC-Programm eingebun¬ 
den und erlaubt, wie weiter unten gezeigt, den komfortablen 
Zugriff auf alle Parameter von vier angeschlossenen Paddies. 

Das Programm ist in einem Bereich angelegt, der vom Betriebs¬ 
system nicht benutzt wird. 

Die Rückmeldungen belegen einige Speicherzellen, die nur 
während einer Kassettenoperation anderweitig belegt sind. 


CFBE 

SEI 


;Tastaturabfrage verhindern 

CFBF 

LDA 

«$80 

jParameter für Paddlesatz A 

CFC1 

JSR 

SCFEC 

;A/0-Werte AI i.aid A2 holen 

CFC4 

STX 

$0330 

;und sieherstellen 

cfcr 

STt 

$0330 


CFCA 

LOA 

$0000 

;Tasten A aus CIA 1 holen 

CFCD 

AHO 

«$0C 

;benötigte Bits filtern 

CfCF 

STA 

S029F 

;<jrid sieherstellen 

CF02 

LOA 

#$40 

.-Parameter fär Pactdlesatz B 

CFD4 

JSR 

$CFEC 

;A/0-Werte 01 und 92 holen 

CF07 

STX 

$033E 

;und sicherstellen 

CFDA 

STY 

$033F 


CFDD 

LOA 

$0C01 

;Tasten B aus OIA 2 holen 

CFEO 

ANO 

«$oc 

.‘benötigte Bits filtern 

CFE2 

STA 

$O2A0 

.-und sicherstellen 

CFE5 

LOA 

«SFF 

.-alle Bits Ausgang in CIA 1 

CfE7 

STA 

$DC02 

;um Tastaturabfrage wieder 

CFEA 

CLI 


;zu erlauben 

CFEB 

RTS 


;R^k(cahr ins Basicprogranra 

CFEC 

STA 

$0000 

{Paddlesatz ausMshlen 
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CFEF 

ORA MCO 

;und entsprechende Bits 

CFF2 

STA tOC02 

;auf Ausgang setzen 

CFF4 

LDX mo 

.‘VerzögerungsschleiYe zur 

CFF6 

DEX 

;Beruh<g<J^ des 

CrF7 

BNE SCFF6 

;A/D-Eingangs 

CFF9 

LDX $0419 

;A/D 1 holen 

CFFC 

LDY $041A 

;A/D 2 holen 

CFFF 

RTS 

.‘Rückkehr ins Hai^tprograim 


Hier nun das BASIC-Programm. Schließen Sie die Paddies an, 
laden und starten Sie das Programm und schauen Sie, was 
geschieht. 


10 DATA 120.169,128.32,236,207.142,60,3,140,61,3,173 
20 DATA 0,220,41,12.141,159,2,169,64.32,236,207,142 
30 DATA 62.3.140,63,3.173,1.220,41,12,141,160,2,169 
40 DATA 255,141,2,220,88,96,141,0.220,9,192,141,2 
50 DATA 220,162,0,202,208,253,174,25.212.172,26,212,96 
60 FOR H=S3182 TO 53247 

70 READ A: POKE M,A; NEXT: REM Haschinenprogrsnn einiesen 

80 AX^30: REM Paddle 1 an Controlport 1 

90 AY=831: REH Paddle 2 «i Controlport 1 

100 BA=672: REH Tasten von Paddlepaar A 

110 BX=628: REH Paddle 1 an Controlport 2 

120 BY=829: REH Paddle 2 an Controlport 2 

130 BB>830; REM Tasten von Paddlepaar B 

140 SYS 53182: REH Alle Werte holen 

150 PRINT PEE«AX)" "PEECCAYI" '‘PEEK{BA)" *•; 

160 PRINT PEEK(BK)" ■■PEErCSY)'' <‘PEEK(BB> 

170 GOTO 140 


5.4.4 MAUS 

Die Maus ist ein sehr leicht zu bedienendes Eingabeinstrument, 
das leider noch kaum zum C64 durchgedrungen ist. Vor kutzem 
sind jedoch einige Mäuse auf den Markt erschienen, die ohne 
weiteres an dem C64 anschließbar sind. 
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Sie belegen die gleichen Anschlüsse wie auch der Joystick und 
legen den Anschluß für die jeweilige Richtung auf Masse. Im 
Prinzip ist dies nämlich ein als Maus "getarnter" Joystick. Durch 
das Joystick-kompatible Signal ergibt sich auch umgehend ein 
Problem. Es ist nicht möglich, die Geschwindigkeit, mit der die 
Maus bewegt wird, festzustellen. Man kann lediglich mit einem 
konstanten Wert für die Geschwindigkeit arbeiten. 

Doch wie funktioniert eigentlich so eine Maus? Die Bewegung 
der in der Maus befindlichen Kugel wird auf zwei Rollen über¬ 
tragen. Die eine Rolle übernimmt die Bewegung in X- und die 
andere in Y-Richtung. An jeder der Rollen ist ein Kranz mit 
Löchern befestigt. Die Löcher lassen einen Lichtstrahl, der auf 
einen Fotowiderstand fällt, ungehindert durch. Durch Drehen 
des Kranzes entsteht ein ständiger Wechel zwischen hell und 
dunkel. Die Bewegung der Maus wird somit nicht wie beim 
Joystick durch das Vorhanden- und Nichtvorhandensein des 
Signals, sondern durch das ständig gesendete, sich ständig 
ändernde Signal erkannt. 

Bei der Maus für den C64 werden diese Impulse durch eine 
zusätzliche Schaltung in ein Joysticksignal umgewandelt. Diese 
Umwandlung ermöglicht es, die Maus einzustöpseln und die 
Tastatur trotzdem abzufragen. 

Das folgende Maschinenprogramm ermöglicht es, eine Maus, die 
nicht speziell für den C64 entwickelt wurde, abzufagen. ln die¬ 
sem Fall ist es die Maus für den Atari 520 ST. Aufgrund der 
Tatsache, daß diese Maus ständig ein Signal an den Port schickt, 
ist es nicht möglich, zusätzlich die Tastatur abzufragen. Das ist 
jedoch auch der einzige Nachteil. Dafür bekommen sie eine 
"richtige" Maus und keine Joystick-"Imitation". 

Das Sprite, das durch die Maus gesteuert wird, muß zusätzlich 
zu diesem Maschinenprogramm noch ab Adresse $0340 (832) 
abgelegt werden. Im angefügten BASIC-Lader ist dies bereits 
geschehen. 




214 


64 Inlern 


cooo 

SEI 


C001 

LDA 

«B01 

C003 

STA 

SDOIS 

C006 

LDA 

•S60 

C008 

STA 

SDOOO 

COOB 

STA 

SD001 

CODE 

LDA 

«SCO 

coto 

STA 

S07F8 

C013 

LDX 

MOO 

C015 

STX 

S0C02 

C018 

LDA 

SDCOO 

C01B 

PHA 


C01A 

AHD 

•S03 

C01E 

CHP 

SFB 

C020 

BEO 

SC036 

C022 

LDY 

SFB 

C024 

STA 

SFB 

C026 

CHP 

SCOCO,Y 

C029 

BHE 

SC02E 

C02B 

JSR 

SCOöO 

C02E 

CHP 

SC0C4,Y 

C031 

BNE 

SC036 

C033 

JSR 

SCOTB 

C036 

PLA 


C037 

PHA 


C038 

LSR 


C039 

LSR 


C03A 

AND 

•S03 

C03C 

CHP 

SFC 

C03E 

BEQ 

SC054 

C040 

LOT 

SFC 

C042 

STA 

SFC 

C044 

CHP 

SCOCO.Y 

C047 

BHE 

SC04C 

C049 

JSR 

SC09E 

C04C 

CHP 

ScaC4,Y 

C04F 

BNE 

SC054 

C051 

JSR 

SCOAB 

C054 

PLA 


C055 

AND 

#S10 


; Tastaturabfrage verhindern 

; Sprite eins einschalten 
; Koordinaten festlegen 


: Spritezeiger auf S0340 <832} stellen 

Port A auf Eingartg stellen 
Port lesen 
ifid merken 

erste 2 Bits isolieren (Horizontale) 

nit altem Wert vergleichen 

ja, dann zur nächsten Abfrage 

ansonsten alten Wert lesen 

und neuen Wert speichern 

Wert für entsprechende Bewegung? 

nein, andere Bewegung vergleichen 

Sprite nach rechts bewegen 

entgegengesetzte Bewegung? 

nein, dann andere Bewegung 

Sprite nach Links bewegen 

gespeicherten Wert holen 

und erneut abspeichern 

Bits verschieben, in Bewegung 

in vertikaler Richtung abzufragen 

Bits isol ieren 

mit altem Wert vergleichen 

Ja, dann zur nächsten Abfrage 

alten Wert holen 

und neuen Wert speichern 

Wert für entsprechende Bewegung 

nein, dann andere Richtung 

Sprite nach unten verschieben 

Wert mit anderer Richtung vergleichen 

nein, dann Feuerknopf 

Sprite nach oben verschieben 

gespeicherten Portwert holen 

mit Feiiertaste vergleichen 
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C057 BNE SC016 
C059 INC SD020 
C05C JHP SC0I8 
C05F NOP 


; nein, dann zum Anfang der Abfrage 
; Wert für Rahmenfarbe erhöhen 
; zuti Anfang der Abfrage springen 


Bewegungsroutinen für das Sprite 


C060 

PHA 


; Akku retten 

C061 

LOA 

soOlO 

; Spriteüberlaufregister laden 

C064 

CMP 

«SOI 

; ist es gesetzt 

C066 

BNE 

SC06F 

; nein, dann verzweigen 

C068 

LOA 

SOOOO 

; Spritekoordinate laden 

C06B 

CMP 

«SAD 

; mit Maximalwert vergleichen 

C06D 

BCS 

SC079 

; verzweige, wenn größer 

C06F 

INC 

SOOOO 

; X-Koordinate erhöhen 

C072 

BNE 

$C079 

; verzweige, wenn kein Überlauf 

C074 

LDA 

«S01 


C076 

STA 

S0010 

; Überlaufregister setzen 

ca79 

PLA 


; Gespeicherten Wert holen 

C07A 

RTS 


; und zurück zun Hauptprogram 

C078 

PHA 


; Akku retten 

C07C 

LOA 

S0010 

; Oberlaufregister laden 

C07F 

CMP 

«SOI 

; Register gesetzt 

C081 

BNE 

SC092 

; nein, dann verzweige 

0083 

LOA 

SOOOO 

; Koordinate laden 

C086 

BNE 

SC08O 

; wenn nicht gleich null, verzweige 

0088 

LOA 

«soo 

; (Iberlaufregister löschen 

c:08A 

STA 

SO010 


C08D 

DEC 

SOOOO 

; X-Koordinate verringern 

C090 

PLA 


; gespeicherten Akku holen 

C091 

RTS 


; und zurück ins Hauptprogram 

C092 

LOA 

SOOOO 

; Koordinate laden 

C095 

CMP 

#SI8 

; Hlnimalwert 

C097 

BCC 

SC090 

; kleiner dann Rücksprung 

0099 

OEC 

SOOOO 

; sonst X-Koordinate verringern 

C09C 

BNE 

SC090 

; unbedingter Sprung 
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C09E 

PHA 


; Akku retten 

C09F 

LOA 

SD001 

; V-Koordinate laden 

C0A2 

CNP 

«$F1 

; Naximlwert 

COA4 

BCS 

SCDA9 

; gröfier, dann Rücksprung 

C0A6 

INC 

SD001 

; Koordinate erhöhen 

C0A9 

PLA 


; geretteten Akku holen 

COAA 

RTS 


; und zurück ins Haiptprograimi 

COAB 

PHA 


; Akku retten 

COAC 

LDA 

SDD01 

; Y'Koordinate laden 

COAF 

CHP 

M31 

; MinlmlHert 

C0B1 

ecc 

SC0B6 

; kleiner, dann Rücksprung 

C0B3 

DEC 

SD001 

; sonst Koordinate verringern 

C0B6 

PLA 


; Akku holen 

C0B7 

RTS 


; Rücksprung ins Hauptprogramn 


COCO 02 00 03 01 01 03 00 02 ; Daten zur Feststellung 

der Richtung der Kaus 


Hier jetzt der BASIC-Lader, in dem das Sprite schon vorhanden 
ist. 


10 FOR N>OTOä3:READ X:P0KEB32'fN,X:NEXT 
20 READ X:SUHsSUM'<-X:tFX»-lTHEN40 
30 PO(CE49152*Y.X:Y=Y+1:GOT020 
40 IFYO200TIIEN PRINT''ERROR IN DATA":END 
so SYS49152 

90 REM 

91 REM SPRITE DATEN 

92 REM 

100 DATA 0.0.0.0.0.0.0,0,0,15,224,0,15,192,0,15,128,0,15.192,0,13, 
224,0 

101 DATA 8,240,0,0,120,0,0,60,0,0,30,0,0,15,0,0,7,128,0.3.128.0.0, 

0,0,0,0 

102 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 

197 REM 

198 REM PROGRAMM 

199 REM 
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200 DATA 120,169.1,141.21,206,169.96,141,0,208,Ul, 1,206,169.13,14 
1,248,7 

201 DATA 162,0,142,2,220,m,0,220.72,41,3,197,251.240.20,164,2Sl, 
133,251 

202 DATA 217,192,192,206,3,32,96,192.217,196,192.208,3.32.123,192, 
104,72,74 

203 DATA 74.41.3.197,252,240,20.164,252.133,252,217,192,192,206,3, 
32.158,192 

204 DATA 217,196.192,206,3,32,171,192,104,41.16,206.191.238,32.206 
.76,24.192 

205 DATA 0,72.173,16,206,201,1,208,7,173,0,208,201,77,176,10,236.0 
.208,208 

206 DATA 5,169.1.141,16,206.104.96,72,173,16,208,201,1,206.15,173, 
0,208,208 

207 DATA 5,169,0,141,16.206.206,0,208,104,96,173,0,208,201,24.144, 
247,206 

208 DATA 0.206.206.242.72.173.1.206.201,241.176,3.238.1,203,104,96 
.72.173 

209 DATA 1,208.201,49,144,3,206,1,208,104.96,0,0,0,0,0,0.0,0,2,0.3 
.1.1,3,0.2,-1 
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Control Port 1: 




Pln 

Signal 

1 

JOV AD 

i 

JOY AI 

3 

JOV A} 

4 

JOY A3 

s 

PADDLE POTENTIOMETER AY 

t 

BUTTON A/LIOHT PEN 

7 

» 5V 

■ 

QND 

t 

PADDLE POTENTIOMETER AX 


Control Port 2; 


Pin 

Signal 

1 

JOY BO 

7 

JOY ei 

3 

JOY 62 

4 

JOY 63 

6 

PADDLE POTENTIOMETER BV 

8 

BUTTON S 

7 

<• 5V 

8 

OND 

a 

PADDLE POTENTIOMETER BX 


Abb. 6.4.4; Control Pott 


5-4.5 Die 65 Maus 1351 

Die Maus ist ein sehr leicht zu bedienendes Eingabeinstrument. 
Sie belegt die gleichen Anschlüsse wie auch der Joystick. 

Doch wie funktioniert eigentlich die Maus? Die Bewegung der 
in der Maus befindlichen Kugel wird auf zwei Rollen über¬ 
tragen. Die eine Rolle übernimmt die Bewegung in X- und die 
andere in Y-Richtung. An jeder der Rollen ist ein Kranz mit 
Löchern befestigt. Die Löcher lassen einen Lichtstrahl, der auf 
einen Fotowiderstand fällt, ungehindert durch. Durch Drehen 
des Kranzes entsteht ein ständiger Wechsel zwischen hell und 
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dunkel. Die Bewegung der Maus wird somit nicht wie beim 
Joystick durch das Vorhanden- und Nichtvorhandensein des 
Signals erkannt. 

Das folgende Maschinenprogramm ermöglicht es, die 
Commodore-Maus 1351 in Port l, die speziell für den C64 ent¬ 
wickelt wurde, abzufragen. Es liegt in S8000, von wo es nach 
SCOOO kopiert wird. In SCOOO liegt das Interrupt-Programm, das 
die Maus steuert. Das Mausprogramm erkennt, welches Zeichen 
sich unter dem Mauszeiger befindet. Außerdem lassen sich die 
X- und Y-Koordinalen in den Adressen $037D und $037E 
abfragen. 

Nachdem das Maschinenprogramm in den Speicher geladen 
wurde, kann es mit SYS 32832 gestartet werden. Im BASIC- 
Loader ist dies bereits im Programm eingebunden und braucht 
nur mit RUN gestartet zu werden. 

Nun folgt das Maschinenlisting und der BASIC-Loader: 


Sprite Daten 


8000 

F6 

00 

00 

90 

00 

00 

88 

00 

8008 

00 

oc 

00 

00 

BE 

00 

00 

07 

8010 

00 

00 

02 

00 

00 

00 

00 

00 

8018 

00 

00 

00 

00 00 

00 

00 

00 

8020 

00 

00 

00 

00 

00 

00 

00 

00 

8028 

00 

00 

00 

00 

00 

00 

00 

00 

8030 

00 

00 

00 

00 

00 

00 

00 

00 

8038 00 

00 

00 

00 

00 

00 

00 

00 


Programmanfang 

8040 LOY §t00 Zahler auf Mutt 

8042 LDA S8000.Y Spritedaten 

8045 STA SOEOO.Y nach Puffer t kopieren 

8048 INY Zähler erhöhen 

8049 CPY $S40 wenn fertig, 

8048 BNE S8042 dann weiter 
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604D LDA i$01 

Sprite 1 

S04F STA S0015 

einschalten 

8052 STA M027 

utd Farbe set2en 

805S LDA SS6A 

Sprite 

8057 STA SOOOO 

X'Richtuitg 

805A STA S0001 

Y-Richtung 

80SD LDA $SOO 

übsrlaufregister 

80SF STA SD010 

setzen 

8062 LOA §S38 

Zeiger auf 

8064 STA S07F8 

Puffer 1 

8067 LOY SSOO 

Zahler auf Null 

8069 LDA $807C.Y 

Interruptroutine nach 

806C STA SCOOO.Y SCOOO kopieren 

806F IHY 

Zähler erhöhen 

8070 CPY iSDI 

uenn fertig, 

8072 ONE S8069 

dann wei ter 

8074 LDA §$CQ 

Wert 

8076 STA S0AO4 

zwi schenspef ehern 

8079 JHP SCOOO 

Sprtaig zur Interruproutine 

807C NOP 


8070 NOP 


807E NOP 


807F NOP 


8080 HOP 


8081 NOP 


8082 NOP 


8083 NOP 


8084 NOP 


8085 NOP 


8086 HOP 


8087 WH* 


8088 NOP 


8089 MOP 


808A NOP 


8086 NOP 


808C NOP 


8080 HOP 


a08E HOP 


808F SEI 

Interrupt sperren 

8090 LDA §S21 

IRQ auf 
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S092 

STA 

t0314 

«0021 

8095 

lOA 

ssco 

setzen 

8097 

STA 

«0315 

und 

809A 

PLP 


Register holen 

809B 

CLI 


Interrupt frefgeben 

809C 

RTS 


Rücksprung 

8090 

NOP 


keine Operation 

809E 

LOA 

S0419 

Hauskoordinate holen 

80A1 

LOY 

«0001 


80A4 

JSR 

«0058 


80A7 

STY 

«0001 


80AA 

OLG 


Oarry für Addition loschen 

80AB 

AOO 

«0000 

zur alten Position addieren 

80AE 

STA 

«0000 

und speichern 

8061 

TXA 


X-Reg. nach Akku 

8062 

ADC 

§«00 

auf 

8064 

AND 

§«01 

Überlauf 

8066 

EOR 

«D010 

prüfen 

8069 

STA 

«0010 

und speichern 

8060 

LOA 

«041A 

Hauskoordinaten holen 

80BF 

LOY 

«0002 


8002 

JSR 

«0058 


8005 

STY 

SC002 


8008 

SEO 


Carry für Addition 

8009 

EOR 

§«FF 

Bits ladrehen 

8006 

AOC 

«0001 

Zur alten Position addieren 

BOCE 

STA 

«0001 

ind speichern 

8001 

JHP 

«0083 

Rücksprung 

8004 

STY 

«0004 

Werte 

8007 

STA 

«0003 

Zwischenspeichern 

80DA 

LOX 

§«00 

X-Reg. löschen 

8000 

SEO 


Carry für Subtraktion löschen 

8000 

SBC 

«0004 

subtrahieren 

8OE0 

ANO 

S«7F 

Bit 8 löschen 

rg 

LU 

o 

CO 

CHP 

§«40 

wenn werte gleich, 

80E4 

BCS 

SBOED 

dann verzweige 

80E6 

LSR 


mal 2 

B0E7 

BEO 

«60FB 

verzweige, wenn kein Überlauf 

80E9 

LOY 

SC003 

alten wert laden 

80E0 

RTS 


Rücksprung 
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80EC 


§SCO 

Bits setzen 

80EF 

CHP 

fSFF 

und vergleichen 

8QF1 

BEQ 

S80FB 

verzweige, wenn kein Oberlauf 

80F3 

SEC 


Carry für Rechenoperation 

80F4 

ROR 


Bits verschieben 

80F5 

UlX 

Wf 

alte werte 

80F7 

LOT 

$C0D3 

holen 

SOFA 

RTS 


Rückspriiig 

80FB 

LDA 

»00 

Akku löschen 

80FD 

RTS 


Rückspnmg 

80FE 

BRiC 



SOFF 

LDA 

SOOOO 

X'Position laden 

8102 

SBC 

$$18 

und subtrahieren 

8106 

LDX 

$SFF 

wert laden 

8106 

INX 


und erhöhen 

8107 

SBC 

$$08 

solange ecixrahieren 

8109 

8CS 

$6106 

bis Überlauf 

810B 

TKA 


X-Reg. wieder nach Akku 

610C 

SBC 

$$01 

subtrahieren 

810E 

STX 

$03FD 

und speichern 

8111 

SEC 


Carry setzen 

8112 

LDA 

$0001 

T'Position laden 

8115 

SBC 

$$32 

und subtrahieren 

8117 

LDX 

$$FP 

Wert laden 

8119 

INX 


und erhöhen 

81U 

SBC 

$$08 

solange subtrahieren 

811C 

BCS 

58119 

bis Überlauf 

811E 

TXA 


X-Reg. nach Akku 

811F 

SBC 

$$01 

subtrahieren 

8121 

STX 

$03FE 

und speichern 

8126 

LDA 

SD010 

Prüfen ob 

8127 

CHP 

$$01 

Überlauf 

8129 

BNE 

$8168 

verzweige, wew Ja 

812B 

LDA 

$03FD 

Puffer 

812E 

CMP 

$$10 

richtig ? 

8130 

BEQ 

$8168 

verzweige, wenn nein 

8132 

LOA 

$03FD 

Puffer 

8135 

CHP 

$$1E 

richtig ? 

8137 

BEQ 

$8168 

verzweige, wenn nein 

8139 

LDA 

$03FD 

Puffer 
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813C CHP $$1F 
813E BEO $8148 
8140 LOA S03FD 
8143 ADC §S20 
8145 STA S03FD 
8148 JHP SEA31 


richtig ? 

verzweige, wenn nein 
Puffer laden 
richtig stellen 
und speichern 

Sprung ztr Interruptroutine 


100 F0IIIs32768r033100:READA:POKEI.A:HEXT 
105 SYS 32832 

110 0ATA248,0,0,144,0.0,184,0,0,220,0,0,142,0.0.7,0,0 
120 DATA2,0,0,0,0,0.0.0,0,0,0,0.0.0,0,0,0,0 
130 DATAO,0,0,0.0,0,0,0.0.0.0,0,0,0.0.0,0,0 
140 OATAO.0,0,0.0.0,0.0.0,0,160,0,185,0.128.153.0.14 
150 DATA200,192,64,208,245,169,1,141, 21,208,141, 39,208,169,100,141, 
0,208 

160 DATA141,1,208,169,0,141,16,208,169,56.141,248,7,160,0,185,124,128 
170 DATA153.C, 192,200,192,209,208,245,169,192.141,4,10,76,0,192,234,234 
180 DATA234,234,234,234,234,234,234,234,234,234,234,234,234,234,234.234. 
234,120 

190 DATA169,33.141,20,3.169.192,141,21,3,40.88,96,234,173,25,212,172 
200 DATA209,192.32,88,192.140,209,192,24,109,0,208,141,0,208,138,105,0 
210 DATA41,1,77,16,208,141,16.208,173,26,212,172,210,192,32, 88,192,140 
220 DATA210,192,56,73,255,109,1,208,141,1,208,76,131,192,140,212,192,141 
230 DATA211,192,162,0,56,237,212,192,41,127,201,64,176,7,74,240,18,172 
240 DATA211,192,96,9,192,201,255,240,8,56,106,162,255,172,211,192,96,169 
250 DATAO,96.0.173,0,208,233,24.162,255,232,233,8,176,251,138,233,1 
260 DATA142.253,3,56,173,1,208,233,50,162.255.232,233.8,176,251,138,233 
270 DATA1,142,254,3,173,16,208,201,1,208,29,173.253,3,201,29,240,22 
280 DATA173,253.3.201,30,240.15,173,253.3,201,31,240,8,173.253,3,105 
290 DATA32,141,253,3,76,49,234,0,0 


5.5 Timer 

Jede der zwei CIAs verfügt über zwei frei programmierbare 16- 
Bit-Timer. Diese zählen von ihrem gesetzten Wert an bis Null 
und lösen daraufhin einen Interrupt aus. Das Auslösen eines 
solchen Interrupts kann jedoch auch vom Programmierer verhin¬ 
dert werden. Normalerweise wird Timer A von CIA 1 vom 
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Betriebssystem dazu verwendet, den jede 1/60 Sekunde auf ge¬ 
rufenen Systeminterrupt zu steuern. Aus diesem Grunde ist es 
ratsam, nur den unbenutzten Timer B für eigene Experimente zu 
verwenden. 

Man stellt den Timer B, indem man den Wert, von dem herun¬ 
tergezählt werden soll, in die Register 6 und 7 des CIA 1 
(Adressen $DC06 und SE)C07) schreibt. Register 6 enthält das 
Low-Byte und Register 7 das High-Byte des Wertes. Für Timer 
A der CIA 1 sind es die Register 4 und S (Adrssen $DC04 und 
$DC05). Jeder der beiden Timer besteht aus einem Vorspeicher 
(engl. Latch) und einem Zähler (Counter). Schreibt man einen 
Wert in eines dieser Register, so wird er im Latch gespeichert. 
Beim Lesen der Register erhält man den derzeitigen Wert des 
Timers. Beide Timer können unabhängig voneinander betrieben 
werden. Es besteht jedoch auch die Möglichkeit, sie zu kombi¬ 
nieren, und dadurch einen 32-Bit-Timer zu erhalten. Dies kann 
dann von Vorteil sein, falls lange Verzögerungsschleifen benötigt 
werden. 

Zum Einstellen des Arbeitsmodus existieren zwei voneinander 
unabhängige Register. Für Timer A ist dieses Register 14 
(Adresse $DC0E) und für Timer B 15 (Adresse $DC0F). Auf 
die Bedeutung der einzelnen Bits dieser Register, die im wesent¬ 
lichen gleich ist, wird jetzt näher eingegangen. 


Bit 0: START/STOP 

Es ist möglich, durch Löschen dieses Bits die Timer anzuhalten. 
Durch Setzen des Bits werden sie wieder gestartet. 

Bit I: PB ON/OF 

Ist dieses Bit gesetzt, so wird bei jedem Unterlauf (das heißt 
beim Durchlaufen von Null) des Timers ein Signal an die ent¬ 
sprechende Portleitung ausgegeben. Für Timer A ist das PB 6 
und für Timer B PB 7. Ist das Bit gelöscht, so hat ein Unterlauf 
des Timers keinen Einfluß auf die Portleitung. Dieses Bit hat 
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Priorität vor dem DDRB. Das bedeutet, daß bei gesetztem Bit 
die entsprechende Portleitung immer als Ausgang fungiert. 

Bit 2: TOGCLE/PULSE 

Dieses Bit arbeitet nur im Zusammenhang mit Bit I dieses 
Registers. Ist es gesetzt, so wird bei jedem Timerunterlauf das 
Signal auf Leitung PB6 invertiert. Beim Register 15 ist es Lei¬ 
tung PB7. Es ist also möglich, ein Rechtecksignal auszugeben, 
dessen Frequenz durch den entsprechenden Timer festgelegt ist. 
Bei gesetztem Bit wird bei jedem Unterlauf auf die entspre¬ 
chende Portleitung ein positives Signal in Länge eines Taktzyk¬ 
lus ausgegeben. 

Bit 3: ONE-SHOT/CONTINUOUS 

Im One-Shot-Modus (in diesem Fall ist das Bit gesetzt) zählt der 
Timer von dem im Latch gespeicherten Wert herunter, erzeugt 
einen Interrupt, lädt den Timer erneut mit dem gespeicherten 
Wert und stoppt daraufhin. Ist das Bit nicht gesetzt (Continuous- 
Modus) stoppt der Timer nicht, sondern beginnt erneut den Wert 
abzuzählen. 

Bit 4: FORCE LOAD 

Wird dieses Bit gesetzt, so wird der Counter des Timers, unab¬ 
hängig davon, ob er gerade läuft oder nicht, mit dem Wert des 
Latch geladen. 

Die folgenden Bits sind bei Register 14 und 15 unterschiedlich 
und werden deshalb einzeln behandelt. 

Bit 5 (Register 14): IN MODE 

Dises Bit bestimmt die Quelle des Timer-Triggers (Trigger = 
Auslöser), also das Signal, das den Timer dazu veranlaßt, seinen 
Wert um eins zu verringern. Bei gesetztem Bit wird der Trigger 
durch positive Signale an der Leitung CNT ausgelöst. Ist das Bit 
gelöscht, so ist der Systemtakt der Auslöser. 
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Bit 5 und 6 (Register 15): IN MODE 

Diese Bits erfüllen dieselbe Aufgabe wie in Register 14. Aller¬ 
dings können sie (es sind ja zwei Bits), mehr Quellen angeben. 

00=Trigger wird durch Systemtakt ausgelöst. 

OIsTrigger wird durch positive Signale am Pin CNT ausgelöst. 
lOsTrigger wird durch den Unterlauf von Timer A ausgelöst. 
IlsWie 10, jedoch wird Timer A durch das Signal an CNT aus¬ 
gelöst 


5.6 Echtzeituhr 

Jeder CIA verfügt über eine 24 Echtzeituhr, die allerdings vom 
Computer nicht benutzt wird. Sie entspricht nicht der Betriebs¬ 
systemuhr TIS, die über den Systeminterrupt gesteuert wird. Im 
Gegensatz zur CIA-Uhr ist die TI$-Uhr sehr ungenau. Ihre 
Abweichung beträgt ca. 1/2-Stunde pro Tag, da sie von der 
Häufigkeit des Interrupts abhängt. 

Bei der Uhr des CIA besteht die Möglichkeit, eine Alarmzeit 
festzulegen. Beim Erreichen dieser Zeit, wird ein Interrupt aus¬ 
gelöst. Die Uhr ist in vier Register auf geteilt. Es sind die Regi¬ 
ster 8 bis II. die folgende Aufgaben haben: 

In Register 8 sind die Zehntelsekunden gespeichert, in Register 
9 sind es die Sekunden, in Register 10 die Minuten und in 
Register 11 die Stunden. Zusätzlich gibt Bit 7 des Registers 11 
noch AM oder PM (Vor- oder Nachmittag) an. Die Zahlendar¬ 
stellung in all diesen Registern erfolgt im BCD-Format, 
wodurch das Umwandeln durch Maschinenprogramme erleichtert 
wird. Nähere Erklärungen zu diesen Format und eine Tabelle 
zur Umwandlung der beiden Formate finden Sie am Ende dieses 
Abschnitts 5.6. 

Die Uhr des CIA ist über die Netzfrequenz getaktet und deshalb 
recht genau. Es besteht die Möglichkeit, die Uhr an die jewei¬ 
lige Netzfrequenz anzupassen. Dies kann durch Ändern von Bit 
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7 des Registers 14 geschehen. Ist es gesetzt, so arbeitet die Uhr 
mit der bei uns verwendeten Netzfrequenz von 50 Hertz, anson¬ 
sten sind es 60 Hertz. 

Die Alarmzeit wird in denselben Registern angegeben, die zum 
Stellen der Uhr benutzt werden. Der einzige Unterschied besteht 
darin, daß beim Stellen der Alarmzeit Bit 7 des Registers 15 
gesetzt ist. Beim Erreichen der Alarmzeit wird ein NMI ausge¬ 
löst. Bei einem Lesezugriff erhält man immer den Wert des 
Counters. Es ist also nicht möglich, die Alarmzeit abzufragen. 

Soll die Uhr gestellt oder gelesen weden, müssen ein paar Punkte 
beachtet werden. Wenn die Uhr gestellt wird, so ist es ratsam, 
das Register, das für die Stunden zuständig ist, als erstes zu 
beschreiben. Sobald ein Schreibzugriff auf dieses Register 
erfolgt, bleibt die Uhr stehen und beginnt erst dann wieder zu 
laufen, wenn das Register, das für die Zehntelsekunden zustän¬ 
dig ist, beschrieben wurde. Dies ist sicher sinnvoll, denn wer 
kann schon eine laufende Uhr auf Zehntelsekunden genau ein¬ 
stellen. Die Uhr stoppt allerdings nicht, wenn ein Zugriff auf 
eines der anderen Register erfolgte. 

Ähnlich wie beim Stellen verhält es sich auch beim Lesen der 
Uhrzeit. Erfolgt ein Lesezugriff auf das Stundenregister, so wird 
die aktuelle Zeit im Latch gespeichert. Die Uhrzeit in den 
Registern ändert sich nicht, die Zeit läuft jedoch intern (im 
Latch) weiter. Somit ist es möglich, die genaue Zeit zum Zeit¬ 
punkt des Lesezugriffs zu erhalten. Sobald die Zehntelsekunden 
gelesen wurden, wird die gelatchte Zeit wieder in die Register 
übertragen. Wenn nur das Stundenregister gelesen werden soll, so 
ist es unerläßlich, die Zehntelsekunden auch zu lesen, damit die 
Uhr weiterläuft. 

Bevor wir Ihnen anhand eines Beispiels zeigen, wie das Stellen 
und das Lesen der Uhr geschieht, wird das BCD-Format 
genauer erklärt. Wie Sie vielleicht wissen, bietet der 6510-Pro- 
zessor die Möglichkeit, in diesem Format zu rechnen. Dazu muß 
lediglich das Dezimalflag des Prozessors im Statusregister mit 
dem Befehl SED gesetzt werden. 
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Wie der Name Dezimalflag schon sagt, können wir jetzt Zahlen 
im Dezimalsystem darstellen und mit ihnen rechnen, ln diesem 
Modus kann man mit einem Byte nur Zahlen von 0 bis 99 dar- 
stellen. Ein Byte wird zu diesem Zweck in LOW- und HIGH- 
Nibble aufgespalten. Mit jedem der Nibble kann eine Zahl zwi¬ 
schen 0 und 9 dargestellt werden. Jedes Nibble stellt also eine 
Ziffer der Dezimalzahl dar. Hier nun eine Tabelle, aus der Sie 
die entsprechenden Werte entnehmen können. 


DEZIMAL BCD-FORMAT 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


0000 

0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 


Wenn die Zahl 35 im BCD-Format dargestellt werden soll, so 
ergibt sich die folgende Bitfolge: 00110101. Es folgen nun zwei 
Programme, die es ermöglichen, die Zeit einzustellen und auch 
wieder abzurufen. 

Zunächst das Programm zum Stellen. Der Wert für l/IOsec wird 
bei diesem Programm immer auf 0 gesetzt. 


10 C>56328: REH Basisadr. dar Uhr in CIA 1 

20 REH C>56584 für Uhr In CIA 2 

30 ROKE C+7,(>EEI«C*7>AHD127 

35 POKE C-»6.REEK<C*6)0Rt28 

40 lNPtn*'ZEI7 IH PORHAT HHHHSS £INGEBEN";AS 

50 IF LEHCAB)<>6 THEH 40 

60 H<VAL(LEFTS(AB,2)) 
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70 NsVAL(MIOt(At,3.2>> 

80 S:VAL(RIGHTS(At,2>) 

90 IF H>23 THEN AO 

100 IF H>11 THEN H°H-f68 

110 POKE C-f3,16*IHT(H/10)*H'INT(H/10)*10 

120 IF M>39 THEN AO 

130 POKE C+2,16«INT(N/10)+M-INT(H/10)«10 
IAO IF S>59 THEN AO 

150 POKE C«1,16*IHT(S/10)*^S-INT(S/10)*10 
160 POKE C.O 


Das Lesen der Uhrzeit ermöglicht folgendes Programm: 

10 0=56328: REN Basisadr. der Uhr In CIA 1 
20 PRINT CHRS(1A7):REN C=5658A für Uhr in CIA 2 
30 H=PEEK(C'f3):H=PEEK(C*2):S>PEEK(C'f1):T=PEEKCC) 

AO FL>1 

50 IF H>32 THEN H=H-128:FL=0 
60 H«tNT(H/16)*10«H*INT(H/16)*16:ON FL SOTD 80 
65 IF H«12 THEN 85 
70 H=H+12 

80 IF H«12 THEN H*0 
85 M*INT(H/16}*10«N-INT(M/16)*16 
90 S=INT(S/16)*10+S*INT(S/16)»16 
100 TS'STRSCT) 

110 HS>STRt(H):IF LEN(HS)=2 THEN HS«» Ox+RICHTStHS.D 
120 MS>STRS(N):IF LEN(HS}=2 THEN NS«» Ox-^RIGHTSCNS.D 
130 SS«STRS(S):IF LEN(SS)=2 THEN SS«» 0''-fRIGNTS(SS,1) 

IAO PRINT CHRS(19}; 

150 PRINT RIGHTS(HS,2)'':’'RIGHTS(MS.2)'':»RI6HTS(SS.2)»:0''; 
160 PRINT RIGHTS(TS,1) 

170 GOTO 30 


Nach Drücken von STOP/RESTORE müssen Sie die Uhrzeit 
wieder neu setzen, da das Betriebssystem alle Register auf den 
Ausgangswert setzt. Davon ist leider auch das Bit für die 
50/60Hz-Auswahl betroffen. Ihre Uhr würde stark Zurückblei¬ 
ben. 
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S.7 Die Programmierung der RS-232 Schnittstelle 

RS-232 ist die Bezeichnung für eine Schnittstelle zur seriellen 
Datenübertragung. Auch die europäische Bezeichnung V 24 ist 
gebräuchlich. Was bedeutet nun serielle Übertragung und wann 
wird sie benutzt? 

Bei der seriellen Übertragung werden nicht wie bei der paral¬ 
lelen Schnittstelle jeweils 8 Bits auf verschiedenen Leitungen 
gleichzeitig, sondern Bit für Bit nacheinander übertragen. Daraus 
ergeben sich Vor- und Nachteile der verschiedenen Übertra¬ 
gungsweisen. Die serielle Schnittstelle kommt mit weniger Lei¬ 
tungen aus; außerdem ist Datenübertragung über eine Telefon¬ 
leitung möglich, dafür geht es jedoch nicht so schnell wie bei 
der parallelen Übertragung, die über mehr Leitungen verfügt. 

Das Betriebssystem des Commodore 64 enthält bereits die kom¬ 
plette Software zur Bedienung einer seriellen RS-232 Schnitt¬ 
stelle. Die Schnittstelle selbst ist als RS-232 Steckmodul er¬ 
hältlich, das auf den USER-Port gesetzt wird und die erfoder- 
liche Pegelumwandlung auf +/- 12 Volt übernimmt. Dadurch 
können Sie mit Ihrem Commodore 64 auch mit Geräten mit 
serieller Schnittstelle kommunizieren. 

Das Betriebssystem hat der RS-232 Schnittstelle die Geräte¬ 
adresse 2 zugeordnet. Wird ein logisches File mit Gerätenummer 
2 eröffnet, so legt das Betriebssystem zwei Puffer zu je 256 Byte 
als Ein- und Ausgabepuffer für die zu übertragenden Daten an. 

Dieser Pufferbereich liegt normalerweise am Ende des BASIC- 
RAMs. Wird die RS-232 Schnittstelle in einem BASIC-Pro- 
gramm verwendet, sollte der OPEN-Befehl zuerst gegeben wer¬ 
den, da dabei alle Variablen gelöscht werden. Auch wird nicht 
geprüft, ob noch ausreichend Speicher vorhanden ist. Beim 
CLOSE-Befehl wird dieser Puffer wieder freigegeben. Auch 
dabei wird in BASIC ein CLR-Befehl ausgeführt, so daß Sie die 
Datei erst am Ende Ihres Programms schließen sollten. Zu einer 
Zeit kann immer nur ein Datenkanal für RS-232 offen sein. 
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Beim Schließen eines RS-232 Datenkanals wird eine eventuell 
laufende Übertragung abgebrochen und die Pufferzeiger zurück- 
gesetzt. Der Befehl 

SYS 61604 

wartet solange, bis der komplette Pufferinhalt übertragen ist und 
sollte vor dem CLOSE-Befehl benutzt werden (Maschinen¬ 
spracheprogrammierer können JSR $F0A4 benutzen). 

Die Parameter für die Datenübertragung werden durch ein 
Kontrollregister und ein Befehlsregister festgelegt. Diese beiden 
Register werden als die ersten beiden Zeichen des ’Filenamens* 
übergeben. 

Das Kontrollregister dient zur Definition der Baud-Rate sowie 
der Anzahl der zu übertragenden Daten- und Stopbile. Die 
Baud-Rate bestimmt die Geschwindigkeit der Datenübertragung 
in Bits pro Sekunde, die Stopbits werden nach jedem über¬ 
tragenen Datenwort (S-8 Bits) gesandt. 

Das Befehlsregister bestimmt Übertragungsart, ParitätsprOfung 
und Art des Handshake. 

Beim Kontrollregister bestimmen die untersten 4 Bits die Baud- 
Rate nach folgender Tabelle: 


Btt 3 2 10 

0 0 0 0 
0 0 0 1 
0 0 10 
0 0 11 
0 10 0 
0 10 1 
0 110 
0 111 
10 0 0 
10 0 1 
10 10 


dezimal Baud-Rate 

0 Anwender'Baud-Rate, s.u. 

1 50 

2 75 

3 110 

4 134.5 

5 150 

6 300 

7 600 

S 1200 

9 1800 

10 2400 
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0 

1 

1 

11 

3600 

(nicht impleraentlert) 

1 

0 

0 

12 

4800 

(nicht iiplenentlert} 

1 

0 

1 

13 

7200 

(nicht inplenentierO 

1 

1 

0 

U 

9600 

(nicht inplementiert) 

1 

1 

1 

15 

19200 

(nicht iRplementiert) 


Sie können also Baud-Raten zwischen SO und 2400 programmie¬ 
ren. Die Anzahl der Datenbits wird durch Bit S und 6 bestimmt 


Bit 6 

5 

deziimi 

Anzahl der Datenbits 

0 

0 

0 

6 Bits 

0 

1 

32 

7 Bits 

1 

0 

64 

6 Bits 

1 

1 

96 

5 Bits 


Die Anzahl der Stopbits schließlich wird durch Bit 7 bestimmt: 

Bit 

7 

dezimal 

Anzahl der St<^its 


0 

0 

1 Stopbit 


1 

128 

2 Stopbits 

Das Befehlsregister ist folgendermaßen organisiert: 

Bit 

0 

dezimal 

Hsntfshake 


0 

0 

3'Draht-Handshake 


1 

1 

X'Drsht-Handshake 

Bit 

4 

dezimal 

Übertragungsart 


0 

1 


0 

16 


VolIduplex 
Halbduplex 
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7 

6 

s 

dezTMl 

Perftltaprüfung 

X 

X 

0 

0 

keine Paritlitsprüfir>9, 
kein 8. Oatenbit 

0 

0 

1 

32 

laigerade Parität 

0 

1 

1 

96 

gerade Parität 

1 

0 

1 

160 

keine ParitStspriihrig, 
8. Oatenbit iieaer 1 

1 

1 

1 

224 

keine ParitätsprOfudg, 

8. Datenbit inner 0 


Hier noch eine Bemerkung zum Handshake-Modus: Haben Sie '3 
Draht Handshake' gewählt, so werden die Steuerleitungen CTS 
(Clear To Send) und DSR (Data Set Ready) beim Senden und 
Empfangen nicht ausgewertet, das heißt, der Rechner sendet die 
Daten z.B. an einen Drucker unabhängig davon, ob der Drucker 
die Daten schon verarbeitet hat oder nicht. Wollen Sie dagegen, 
daß das angeschlossene Gerät die Möglichkeit hat, die Daten¬ 
übertragung anzuhalten, so müssen Sie ’X Draht Handshake’ 
wählen. Dazu müssen die oben erwähnten Steuerleitungen ver¬ 
drahtet werden und der Drucker natürlich in der Lage sein, 
diese Steuerleitungen überhaupt bedienen zu können. Wenn man 
dagegen Daten zwischen zwei Rechnern austauscht, kommt man 
oft mit dem '3 Draht Handshake' aus. Beachten Sie dazu auch 
die Hinweise weiter unten. 

Sie wollen nun einen RS-232 Datenkanal mit folgenden Para¬ 
metern eröffnen: 

Übertragungsrate 2400 Baud 
7 Bit ASCII Daten 
2 Stopbils 

keine Paritätsprfifung 
8. Datenbit immer 0 
Vollduplex 
3-Draht-Handshake 


Die OPEN-Anweisung sieht dann so aus: 

OPEN I, 2, 0, CHR$(10■^O+128)+CHR$(0^O+224) 
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Die Programmierung eigener Baud-Raten 

Da die Realisierung der verschiedenen Baud-Raten über die 
Programmierung der Timer in den ClAs geschieht, können Sie 
bei Bedarf andere als die vorgegebenen Baud-Raten verwenden. 
Die obere Grenze von 2400 Baud läßt sich dabei jedoch nicht 
überschreiten, da die soflwaremäßige Realisierung der RS 232 
Übertragung dafür nicht schnell genug ist. Die Timer lösen nach 
einer Zeit, die abhängig von der Baud-Rate ist, einen nicht 
maskierbaren Interrupt (NMI) aus, während dessen der Empfang 
der einzelnen Bits stattfindel. Wollen Sie nun eigene Baud-Raten 
verwenden, so können Sie die entsprechenden Timerwerte als 
drittes und viertes Zeichen des Filenamens beim OPEN-Befehl 
übergeben. Die Timerwerte lassen sich nach folgender Formel 
aus der Baud-Rate ermitteln: 

T - 492662/BAUD - iOl 

Den erhaltenen Wert müssen wir in Low- und High-Byte zerle¬ 
gen und als drittes und viertes Zeichen des Filenamens überge¬ 
ben. Ins Konirollregister müssen wir anstelle des Kodes für die 
Baud-Rate eine Null setzen (Anwender Baud-Rate), damit das 
Betriebssystem weiß, daß wir eine eigene Baud-Rate verwenden 
wollen. Das folgende Beispiel benutzt die gleichen Parameter wie 
oben, verwendet jedoch eine Baud-Rate von 1000. 


100 BAUD : 1000 

110 T > 492662/BAUO • 101 

120 TK s mT{T/256> 5 TL » T - rH*256 

130 OPEN 1,2.0. CHRS(128)*CH»<224)*CMR»<TL)-»CHI»<TM) 


Bei eigenen Baud-Raten lassen sich Werte von ca. 8 bis 2400 
Baud erreichen. 

Das Statusregister beim Verkehr über die RS-232 Schnittstelle 
hat eine andere Bedeutung als in der normalen Daten¬ 
übertragung. Es läßt sich in BASIC zwar auch über die Variable 
ST abfragen, wird jedoch bei Jedem Lesen gelöscht. Soll der 
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Siaiuswert daher fflr mehrere Abfragen benutzt werden, muß er 
erst einer anderen Variablen zugeordnet werden. ST gibt nur den 
RS-232 Status wieder, wenn der letzte Iteteoverkehr über RS- 
232 lief. Von einem Maschinenprogramm läßt sich der Status 
jedoch auch ohne Löschen lesen. Die Bedeutung der einzelnen 
Bits des RS-232 Status ist im folgenden beschrieben. Ein 
gesetztes Bit bedeutet dabei, daß die Bedingung eingetreten ist. 


Bit Beschreibung 
0 Paritätsfehler 

1 Rahmenfehler 

2 Empfängerpuffer voll 

3 Empfängerpuffer leer 

4 CTS (Clear to send) Signal fehlt 

5 unbenutzt 

6 DSR (Data set ready) Signal fehlt 

7 Break Signal empfangen 


Geschieht die Programmierung der RS-232 Schnittstelle in 
Maschinensprache, so kann man die Ein- und Ausgabepuffer für 
die Datenübertragung in einen beliebigen Speicherbreich legen. 
Die Zeiger auf die Puffer werden beim OPEN-Befehl einmal 
gesetzt und können danach jedoch in einen anderen Speicherbe¬ 
reich gelegt werden. Die entsprechenden Zeiger liegen in der 
Zeropage, und zwar zeigt SF7/SF8 auf den Eingabepuffer und 
$F9/$FA auf den Ausgabepuffer. Die Programmierung der Ein- 
/Ausgabe auf die RS-232 Schnittstelle geschieht genauso wie bei 
anderen Ausgabegeräten, als Geräteadresse wird 2 gewählt. Siehe 
dazu das Kapitel über Ein-/Ausgabeprogrammierung. 


Dazu noch einige Adressen für die RS-232 Ein-/Ausgabe 


S0293 659 Kontrollwert 

S0Z94 660 Befehlswort 

S0295/$0296 661/662 Timerwert für Baiid-Rate 
$029r 663 Il$-232 Statiiswort 

$0298 664 Anzahl der Datenbits, wird bei OPEM berechnet 

S0299/S029A 665/666 Timerwert für Baud-Rate beim Senden 
S029B 667 Schreibzeiger Enpfangspuffer 
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S029C 

668 

Lesezeiger Enpfangspuffer 

$0290 

669 

Lesezeiger Sendefxjffers 

$029€ 

670 

Schreibzeiser Sendlepuffer 


Weiterhin werden in der Zero-Page noch einige Adressen als 
Arbeitsspeicher während der Datenübertragung benötigt. 

Der physikalische Anschluß an die RS-232 Schnittstelle 

Als Normstecker für die RS-232 Schnittstelle dient ein ISpoIiger 
Cannonstecker, der folgendermaßen auf gebaut und belegt ist: 

1 2 3 4 5 6 r 8 9 10 11 12 13 


U 15 16 17 18 19 20 21 22 23 24 2S 


Pinbelegung des 25poligen Cannonsteckers 


Pin Abk. Richtung 


1 

GND 


2 

TKD 

OUT 

3 

RXD 

IN 

4 

RTS 

OUT 

5 

CTS 

IN 

6 

OSR 

IN 

7 

GND 


8 

OCD 

IN 

20 

DTR 

OUT 

22 

RI 

IN 


Bedeutung 

Protective Ground 
Transnftecl Date 
Received Data 
ReOuest To Send 
Clear To Send 
Data Set Ready 
Signal Ground 
Data Carrier Detected 
Data Terainal Ready 
Ring IndUator 


Wollen Sie zwei Rechner untereinander verbinden, so muß die 
Leitung folgendermaßen aussehen: 
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Rechner 1 Rechner 2 

Beschreilx #>9 Pin Pin Beschreibung 


Transmitted Data 

2 ....> 3 

Racaived Data 

Racaived Data 

3 2 

Transmitted Data 

Read/ To Send 

4 -•••> 5 

Clear To Send 

Clear To Send 

5 <---• 4 

Ready To Send 

Data Set Ready 

6 <••• 20 

Data Terminal Ready 

Data Terminal Ready 

20 6 

Data Set Ready 

Ground 

7 <”•» 7 

Groia'd 


Die Pfeile geben jeweils die Richtung der Übertragung an. Bei 
dieser Verdrahtung können Sie den ’X-Line-Handshake’ wählen. 
Wenn Sie im 3'Drahl-Belrieb arbeiten, so genügt es, wenn Sie 
Pin 2, 3 und 7 wie oben beschrieben verbunden haben. Wollen 
Sie z.B. einen Drucker anschließen, dessen Übertra¬ 
gungsparameter Sie nicht kennen, so kann man folgenden Trick 
an wenden: 

Verbinden Sie wie oben die Pins 2, 3 und 7 und verbinden Sie 
an Jedem Stecker die Pins 4, 5 und 8 sowie die Pins 6 und 20. 
Damit können Sie die meistens Geräte zum Arbeiten veranlassen. 
Sie werden jetzt Daten empfangen oder senden können. Falls die 
übertragenen Daten verstümmelt oder verkehrt ankommen, so 
wird die Baud-Rate und/oder die Parity nicht stimmen. Variie¬ 
ren Sie diese Parameter nun so lange, bis die Daten richtig 
übermittelt werden. Durch das Kurzschließen der Sleuerleitun- 
gen arbeiten Sie praktisch im 3-Lirte-Betrieb. Falls Sie die Daten 
nicht schnell genug senden oder empfangen können, müssen Sie 
evtl, auf Maschinensprache ausweichen. 


5.8 DER lEC-BUS 

Ganz algemein ist der lEC-Bus eine Schnitstelle zwischen Com¬ 
puter und den Peripheriegeräten. Man unterscheidet zwischen 
dem 'großen' und den 'seriellen' lEC-Bus. Beim 'großen' lEC- 
Bus werden die Daten zwischen den Geräten paralei (alle Bits 
auf einmal) übertragen. Im Gegensatz dazu werden die Daten 
beim 'seriellen' lEC-Bus, wie der Name schon sagt seriell (alls 
Bits nacheinander) übertragen. Der 'serielle' kommt aufgrund 
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dessen mit fünf Leitungen aus, wärend es beim 'großen* 24 
Leitungen gibt. Der Unterschied liegt natürlich nicht nur in der 
Anzahl der Leitungen, sondern auch in der Geschwindigkeit des 
Datentransfers. Der C64 verfügt nur über den 'seriellen' lEC- 
Bus, und deswegen meinen wir in Zukunft wenn wir vom lEC- 
Bus sprechen, den eben genannten. 

Doch nun wollen wir uns einmal die Arbeitsweise dieses lEC- 
Busses näher ansehen. 

Übrigens, wieso wird eigentlich immer von 'Bus* geredet und 
was hat das mit dem bekannten Nahverkehrsmittel zu tun? 

Sie werden es kaum glauben, aber die beiden Dinge haben sehr 
viel gemein. 

Stellen Sie sich eine lange Straße mit mehreren Bushaltestellen 
vor. Die Haltestellen sollen die an der Leitung angeschlossenen 
Geräte sein. Auf dieser Straße fährt nun ein richtiger Bus. An 
den Haltestellen stoppt er entweder dann, wenn dort Leute ste¬ 
hen. die mitgenommen werden wollen, oder wenn im Bus 
befindliche Personen auszusteigen wünschen. Kurz gesagt ist der 
Bus ein Transportmittel, mit dem Leute von einer Haltestelle zu 
irgendeiner anderen befördert werden. Wo ein- oder ausgestie¬ 
gen wird, bestimmen die Fahrgäste selbst, denn woher sollte der 
Busfahrer das wissen. Dieser ist nur für den ordnungsgemäßen 
Transport und die Einhaltung der Verkehrsregeln zuständig. 

Das obige trifft auch ziemlich genau den Sachverhalt beim lEC- 
Bus. Der Bus-CONTROLLER ist der Fahrer (von dem es natür¬ 
lich nur jeweils einen gibt); Haltestellen, bei denen sich der Bus 
füllt, werden TALKER genannt, und die Stellen, bei denen 
Fahrgäste den Bus verlassen, sind die LISTENER. 

In der Microcomputertechnik wird also ganz allgemein unter Bus 
ein Leitungssystem verstanden, welches in der Regel von einem 
Controller gesteuert wird, und an dem mehrere Einheiten 
gleichberechtigt angeschlossen sind. 
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5.8.1 Begriffsbestimmungen 

Damit wir in den folgenden Abschnitten nicht beim Auftauchen 
von neuen Begriffen den Fluß des Textes durch Erläuterungen 
aufhallen müssen, wollen wir Ihnen an dieser Stelle die häufig 
verwendeten Bezeichnungen vorstellen und ausführlich erklären. 
Die Kenntnis dieser Begriffe lohnt sich auf jeden Fall, da diese 
auch in anderweitiger Fachliteratur sehr verbreitet sind. 

EOI = End Or Identify 

Dies ist ein Signal, das zwei Zwecken dient. Erstens sendet der 
TALKER dieses Signal bei der Übertragung des letzten Daten¬ 
bytes, zweitens benutzt es der CONTROLER in Verbindung mit 
ATN, um ein Gerät, welches mit SRQ eine Bedingung verlangt, 
zum Senden einer Geräteadresse zu veranlassen. 

Hier noch zusätzlich die Belegung der fünf Leitungen des lEC- 
Busses: 

1 SRQ = Service ReQuesl 

Hat ein Gerät irgendeine Aufgabe erledigt und braucht neue 
Daten oder hat welche abzugeben, so kann es dem CONTRO¬ 
LER durch dieses Signal mitgeteilt werden. Dieser wird darauf- 
hinn einen Identify-Zyklus (mit EOI und ATN) einleilen, um 
festzuslellen, um welches Gerät es sich handelt. Diese Funk¬ 
tionsweise wird beim C64 nicht verwendet. 

2 GND = Masse 

3 ATN - ATteNtion 

Immer, wenn der CONTROLLER einen Befehl übermitteln will, 
aktiviert er diese Leitung. Dadurch soll erreicht werden, daß alle 
am Bus angeschlossenen Geräte diesen Befehl mitbekommen, da 
ja von vornherein noch nicht feststehl, welches Gerät gemeint 
ist. Das stellt sich erst bei Übermittlung der Geräteadresse her¬ 
aus, weshalb diese auch immer zuerst übermittelt wird, damit 
sich die anderen Geräte wieder vom Bus ’abhängen’ können. 
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4 CLK = CLOCK 

Da die Daten bitseriell übertragen werden, gibt der TALKER 
jedem Bit einen Taktimpuls auf die Leitung CLK mit auf deo 
Weg, womit die Gültigkeit der Daienleitung angezeigt wird. 

5 DATA 

Ist die einzige Datenleitung, über die ein Datenbyle mit dem 
niedrigstwertigen Bit voran seriell geschoben wird. 

6 Reset 

Diese Leitung hat für die Vorgänge auf dem Bus keine Bedeu¬ 
tung. Sie dient lediglich dazu, den an einem beliebigen Gerät 
aufgetretenen Resetimpuls weiterzuleiten. 


Serielle E / A : 



Pm 

Sianal 

1 

SRQIN 

2 

GND 

3 

ATN OUT 

4 

CLK IN / OUT 

5 

DATA IN / OUT 

6 

RESET 


Abb S.e.1.1: Serielle B/A 


5.8.2 Geräteadressen 

Aus der Tatsache, daß alle Geräte gleichberechtigt am lEC-Bus 
angeschlossen sind, ergibt sich die Notwendigkeit, ein bestimm¬ 
tes Gerät für eine bestimmte Aktion zu selektieren, an der die 
anderen Geräte unbeteiligt bleiben sollen. 
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Zu diesem Zweck ist jedem Gerät eine "Hausnummer" zugeteilt, 
die eben besagte Geräteadresse. Diese Adresse enthält aber nicht 
nur die Hausnummer, sondern auch schon die Aktion, die vom 
Gerät verlangt wird, nämlich .ob das Gerät die Daten senden 
oder empfangen oder die Aktivitäten beenden soll. 


Dazu wird das Adressierungsbyte in zwei Hälften geteilt. Das 
niederwertige Halbbyte enthält nur die Adresse (deshalb ein 
Bereich von 0-15), das höherwertige Halbbyte die Aktion (ein 
Bereich von 16-240). 

Die möglichen Aktionen: 

$20 (32) 

Das Gerät wird als LISTENER adressiert, das 
heißt, es soll Daten empfangen. Dieses Kommando 
resultiert z.B. aus einem PRINT#-Befehl in BASIC. 

$40 (64) 

Das Gerät soll TaLKER sein, also Daten senden. 
Die Ursache dieses Kommandos kann ein GET# 
oder INPUT# sein. 

$30 (48) 

Die Betriebsart LISTEN wird beendet. Das nieder¬ 
wertige Halbbyte ist hierbei immer =15. 

SSO (80) 

Die Betriebsart TALK wird beendet. Auch hierbei 
ist der Adressteil sIS. 


Das vollständige Adressierungsbyte für beispielsweise einen 
Drucker mit der Hausnummer 4 ist also 3244^36 (S24). 


5.8.3 Sekundäradressen 

Sie kennen sicher die Möglichkeit, auf einer Floppy mehrere 
Dateien zu eröffnen. Dazu müssen Sie bekanntlich außer unter¬ 
schiedlichen logischen Filenummern auch jeweils andere 
Datenkanäle (Sekundäradressen) im OPEN-Befehl angeben, z.B.: 
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10 OPE« 1.8,6,"0ATEI1« 

20 OPEN 2.8.7,"DATEia« 

Die Sekundäradresse dient also dazu, gerätespezifische Funktio¬ 
nen auszulösen. Sie hilft im Falle der Floppy, verschiedene 
Dateien auseinanderzuhalten, zu welchem Zweck die Sekun¬ 
däradresse bei jeder Aktion im Anschluß an die Geräteadresse 
übermittelt wird. 

Wie Sie sehen, hat die Sekundäradresse also keine generelle 
Steuerfunktion auf dem lEC-Bus, sondern eine von Gerät zu 
Gerät unterschiedliche Bedeutung. Die für die Floppy relevanten 
Sekundäradressen wollen wir nachfolgend vorstellen. 

Auch hier findet eine Zweiteilung statt, wobei der niederwertige 
Teil die eigentliche Sekundäradresse enthält, die im OPFN- 
Befehl angegeben wurde (Bereich 0-lS). und der höherwertige 
Teil diejenige Information enthält, die im Zusammenhang mit 
der Sekundäradresse auftrittt 

S60 (96> PRINT, INPUT Oder CET 
SEO (224> CLOSE 
tFO (240) OPEN 

Eine Besonderheit stellen die Sekundäradressen 0 und I dar. Die 
Floppy interpretiert die 0 als LOAD-Befehl. und die 1 als 
SAVE. Deshalb dürfen diese Werte nie in einem OPEN-Befehl 
angewendet werden. 

Bei den Commodore-Druckern kann über die Sekundäradresse 
u.a. der Zeichensatz ausgewählt werden. 


5.8.4 Die Systemvariable ST 

Die numerische Variable ST gibt darüber Auskunft, wie eine 
Aktion auf dem lEC-Bus ausging. Für den Programmierer heißt 
das, daß er tunlichst nach jedem PRINT, INPUT oder derglei¬ 
chen diese Variable abfragen sollte, da bei Störungen auf dem 
Bus sonst Daten verlorengehen könnten. 
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Diese Variable ist vom BASIC aus mit unter der Variablen ST 
abzurufen und belegt die Adresse $90 in der Zero-Page, wo Sie 
auch die entsprechenden Werte zu den entsprechenden Ereignis¬ 
sen nachschlagen können. 

Die Ereignisse werden durch Setzen der entsprechenden Bits 
gekennzeichnet. Es ist möglich, daß mehrere Bits gesetzt sind, 
weshalb es nötig ist die abzufragenden Bits zu isolieren 

100 GET#1,AS:IF (St AND 64) THEN . 

Durch die serielle Ausgabe der Zeichen und durch die wenigen 
Leitungen ,die zur Verfügung stehen, sind alle Abläufe im 
Zusammenhang mit der Datenübertragung sehr zeitkritisch. Da 
das Timing genau eingehalten werden muß, ist es verständlich, 
daß es bei den anfangs auf den Markt gekommenen Interfaces 
von Fremdherstellern oft zu Fehlinterpretationen des Leitungs¬ 
zustands kam. Commodore selbst hatte geringe Schwierigkeiten, 
wie man am Drucker VC-1526 sehen konnte. 

Die folgenden Ausführungen sollen deshalb auch nur der 
Beleuchtung des Prinzips dienen. Zur Konstruktion eigener Peri¬ 
pherie sind sie nicht unbedingt geeignet. Sie sollten dazu schon 
Ober einen gewissen Meßgerätepark verfügen, mit dem Sie die 
Vorgänge auf dem seriellen Bus sichtbar machen und daraus mit 
Hilfe dieser Beschreibung Ihre Schlüsse ziehen können. 


5.8.5 Adressierung 

Als Beispiel für die folgenden Illustrationen der Vorgänge auf 
dem lEC-Bus sollen die Basic-Zeilen 

10 OPEN 1,8,15 
20 PRINT#!,"!" 

dienen. Es soll also einfach das Zeichen A auf einem Drucker 
mit der Geräteadresse S ausgegeben werden. Auslöser für die 
Aktionen auf dem Bus ist nur die Zeile 20. Von dem OPEN 
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merkt der Drucker noch nichts, da, anders als bei der Floppy, 
hiermit kein Dateiname verbunden ist, der übermittelt werden 
müßte. 

1. Als erstes wird hier ATN HIGH zum Zeichen, daß ein 
Befehl folgt. 

2. Daraufhin wird die Leitung DATA auf LOW gesetzt um 
sofort danach von der Hardware der Floppy auf HIGH 
gelegt zu werden. Wird die Leitung nicht auf HIGH ge¬ 
setzt, erfolgt ein "DEVICE NOT PRESENT". 

3. Die Leitung DATA übernimmt jetzt die Funktion, dem 
TALKER zu verstehen zu geben, daß er zur Zeit noch 
nicht in der Lage ist ein Zeichen zu empfangen, weil er 
beispielsweise mit der Verarbeitung vorheriger Daten be¬ 
schäftigt ist. Das heißt, daß, solange die DATA-Leitung 
HIGH ist, das Gerät keine Daten aufnehmen kann. Ist es 
soweit, wird DATA=LOW. 

4. Der Computer signalisiert Jetzt mit mit CLOCKsl das er 
bereit ist Daten zu senden. 

5. Als nächstes kommt die Geräteadresse über die Leitung 
DATA, und zwar ein Bit mit jedem LOW-Impuls auf der 
Leitung CLK. 

6. Innerhalb von Ims muß die Floppy jetzt die Leitung 
DATA nach HIGH bringen, um zu signalisieren daß sie 
die Daten empfangen hat und verarbeitet. 

Sie sehen hier schon, daß DATA drei Aufgaben hat, nämlich zu 
signalisieren, wann der Empfänger bereit, ist Daten zu empfan¬ 
gen, die Daten zu schicken und nach Beendigung dieses Vor¬ 
gangs eine Rückmeldung zu übermitteln. Die DATA-Leitung 
wird also sowohl vom TALKER als auch vom LISTENER ver¬ 
wendet. 
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5.8.6 Der Dateatransfer 

Der Datentransfer geschieht analog zu der Adressierung nur mit 
dem Unterschied, daß die ATN-Leitung nicht benötigt wird. 
Auf die gleiche Weise folgt der abschließende CHR$(13). 

Wo bleibt das Signal EOl? 

Das folgt jetzt, womit die Leitung DATA eine vierte Aufgabe 
bekommt. 

7. Die Vereinbarung sah bis jetzt so aus, daß nach Runter¬ 
setzen der Leitung DATA durch den LISTENER der 
TALKER durch CLK=HIGH den Datentransfer einleitete. 
Nun bleibt aber CLK länger LOW, was schlicht bedeutet, 
daß das zuvor übertragene Byte das letzte war. 

Auch dieser Umstand muß vom LISTENER mit DATA=HIGH 
quittiert werden. 

8. Sobald DATA wieder LOW wird, überträgt der TALKER 
ein Leerbyte (CHRS(O) ab Punkt 16). Danach geht der Bus 
in den Ruhezustand. 

Die Adressierung erfolgt analog zu Punkt 1-6, wobei das Daten¬ 
byte den Wert $3F (48+15) aufweist, um, wie im Punkt 5.8.2 
beschrieben, die Betriebsart LISTEN zu beenden. 

Wie Sie sehen, funktioniert es wunderbar. Den gravierenden 
Nachteil, den ein serieller Bus systembedingt gegenüber dem 
parallelen hat, nämlich die wesentlich geringere Geschwindig¬ 
keit, wird durch drastisch verkürzte Wartezeiten (1ms) teilweise 
auf gefangen. 

Nach diesen Erläuterungen muß noch auf die Adressierung der 
einzelnen Leitungen hingewiesen werden. Hier muß man zwi¬ 
schen den Empfangs- und den Sendeleitungen unterscheiden. 
Die Leitungen CLK und DATA werden aufgespalten und auf 
vier Portleitungen verteilt. Somit existieren die Leitungen CLK- 
IN, DATA-IN, CLK-OUT und DATA-OUT. Die Sendeleitun¬ 
gen sind mit Dioden so abgeschirmt, daß kein empfangenes 
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Signal ihre Portleitungen beeinflussen kann. Die von ihnen 
geschickten Signale werden umgepolt, bevor sie den Empfänger 
erreichen (aus LOW wird HIGH und aus HIGH wird LOW). Sie 
beeinflussen jedoch außer den Eingangsleilungen der anderen 
Geräte auch noch die des eigenen. 

Weil der Firma Commodore der Einbau eines zweiten Umpolers 
bei den hereinkommenden Signalen zu teuer gewesen ist, ließ 
man ihn weg und überbrückte die somit entstandene Lücke 
durch nicht standardgemäße Software. Die hier erläuterte 
Arbeitsweise des lEC-Bus bezieht sich auf den Standarl lEC-Bus 
und nicht auf den "Krüpper des C64. Das Rom wurde zum 
besserem Verständniß so dokumentiert, wie es dem Standard-Bus 
entspricht. Der Programmierer muß hier umdenken, da alle 
hereinkommenden Signale invertiert sind. 

Die folgende Tabelle gibt Ihnen diejenigen Bits an, mit denen 
Sie die Leitungen beeinflussen oder abfragen können. Alle Lei¬ 
tungen sind am Port A der CIA 2 mit der Adresse SDDOO 
angeschlossen. 


Leitung Eingang Ausgang 

DATA Bit 7 Bit 5 

CLK Bit 6 Bit 4 

ATN Bit 3 



Abb. 6.8.6: Zeitdisgrsmni 
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5.8.7 Die ProgrammleruDg des lEC-Bus 

Wie läßt sich die Bedienung des lEC-Bus in Maschinensprache 
programmieren? Für alle Aufgaben stehen im Betriebssystem 
Unterprogramme zur Verfügung, die in der Sprungtabelle im 
obersten ROM-Bereich zusammengefaßt sind. Siehe dazu die 
letzte Seite des ROM~Listings. Als Beispiel wollen wir uns anse- 
hen, wie wir die Fehlermeldung der Floppy-Disk einiesen kön¬ 
nen. Schauen wir erst, wie dies in BASIC gemacht wird. 

10 OPEH 15.8.15 : REH Offnen des Feftlerkencls 
20 INPUT*15,AS,BS,O.OS : REN FeMernielek#« holen 
30 PRINT : REN und ausgeben 

40 CLOSE 15 : REH Kanal schlieBen 

In BASIC ist dies wegen des INPUT-Befehls nur im Program¬ 
modus möglich. Hier ist eia Maschinenprogramm, das die glei¬ 
chen Dienste tut: 


cooo 

A9 

08 


LOA 

«8 

• 

Geriteadresse der Floppy 

C002 

85 

BA 


STA 

$BA 



C004 

20 

B4 

FF 

J5R 

SFFB4 

4 

Talk senden 

CC07 

A9 

6F 


LOA 

#15 4- S60 

t 

Sekundäradr. 15 plus S60 

C009 

85 

B9 


STA 

$B9 



COOB 

20 

96 

FF 

JSR 

SFF96 

9 

Sekieidäredresse für Talk 

CODE 

20 

A5 

FF 

JSR 

SFFA5 

m 

f 

Zeichen von Floppy holen 

C011 

20 

D2 

FF 

JSR 

SFFD2 

• 

ß 

auf Bildschirm ausgeben 

C014 

C9 

00 


CMP 

«sn 

• 

e 

ist es carriage return ? 

C016 

DO 

F6 


BHE 

SCOOE 

e 

nein, weitere Zeichen 

COI8 

20 

HB 

Ff 

JSR 

SFFA8 

e 

Untatk senden 

C01A 

60 



RT5 


9 

fertigzlnl 


Hier ein Ladeprogramm in BASIC: 

100 FOR I > 49152 TO 49T79 

1T0 REAQ X : POHTE I.X ; S=S«X ; NEXT 

120 DATA 169, 8.133.186, 32,180.255,169,111,133,185, 32 

130 DATA 150,255, 32.165.255, 32,210,255,201, 13,208.246 
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140 DATA 32,171,255, 96 

150 IF S o 4169 THEN PRINT "FEHLER IN DATAS !f" : END 
160 PRINT "OK !" 


Von BASIC aus läßt das Programm sich mit SYS 12*4096 auf- 
rufen. Mit einem etwas längeren Maschinenprogramm kann man 
auf einfache Weise auch das Inhaltsverzeichnis der Diskette 
anzeigen. Man erspart sich auf diese Weise, das Directory mit 
LOAD "S",8 als BASIC-Programm zu laden, wobei immer das 
jeweilige BASIC-Programm im Speicher verloren geht. 


COOO A9 

24 

LDA 

«S24 

C002 85 

FB 

STA 

SFB 

C004 a9 

FB 

LOA 

«SFB 

C006 85 

BB 

STA 

SBB 

C008 A9 

00 

LDA 

*sm 

CDOA 85 

BC 

STA 

sec 

COOC A9 

01 

LDA 

«SOI 

COOE 85 

B7 

STA 

SB7 

C010 A9 

08 

LDA 

«SOS 

C012 85 

BA 

STA 

SBA 

C014 A9 

60 

LDA 

«S60 

C016 85 

89 

STA 

SB9 

C018 20 

D5 F3 

JSR 

SF305 

C01B A5 

BA 

LDA 

SBA 

C01D 20 

B4 FF 

JSR 

SFFB4 

C020 A5 

B9 

LOA 

$69 

C022 20 

96 FF 

JSR 

SFF96 

C025 A9 

m 

LDA 

«soo 

C027 85 

90 

STA 

S90 

C029 AO 

03 

LDV 

«S03 

C02B 84 

FB 

STY 

SFB 

C02D 20 

A5 FF 

JSR 

SFFA5 

C030 85 

FC 

STA 

SFC 

C032 A4 

90 

LOY 

S90 

C034 DO 

2F 

BNE 

SC065 

C036 20 

A5 FF 

JSR 

SFFA5 


Dollarzeichen als 
Fi lenaM 
speichern 

Adresse des Filenamens 
high Byte 

Länge des Filenamens 

Gerätenunner der Floppy 

Sekundäradresse für LOAD 

File mit Namen eröffnen 

Talk senden 

Sekundäradresse senden 

Status löschen 
ersten 3 Byte überlesen 
als Zähler merken 
Byte von Floppy holen 
und merken 
Status testen 

Byte von Floppy holen 





Die CI As 6526 


249 


C039 A4 90 


LOY 

$90 

; Status testen 

C03B DO 28 


BHE 

$C065 


C030 A4 FB 


LOY 

SFB 

; Zähler holen 

C03F 88 


OEY 


; urid erniedrigen 

C040 DO E9 


BHE 

$C02B 


C042 A6 FC 


LOX 

SFC 

; Byte zurücRholen 

C044 20 CD 

BO 

JSR 

SBOCD 

; 16-Bit Zahl ausgeben 

C047 A9 20 


LOA 

«$20 

; Zahl der belegten Blocks 

C049 20 02 

FF 

JSR 

SFF02 

; Leerzeichen ausgeben 

C04C 20 A5 

FF 

JSR 

$FFA5 

; nächstes Byte holen 

C04F A6 90 


LOX 

S90 

; Status testen 

C0S1 00 12 


BNE 

SC065 


C053 AA 


TAX 


; Byte testen 

C054 FO 06 


BEQ 

SC05C 

; Null? dann Zellenende 

C056 20 02 

FF 

JSR 

SFF02 

; sonst ausgeben 

C059 4C 4C 

CO 

JMP 

$C04C 

; wd nächstes Zeichen 





holen 

C05C A9 00 


LDA 

noo 

; carriage return 

COSE 20 02 

FF 

JSR 

SFFD2 

; ausgeben 

C061 AO 02 


LOY 

IIIS02 

; zwei Bytes für 





Linkadresse 

C063 DO C6 


BHE 

$C02B 

; wei termachen 

C065 20 42 

F6 

JSR 

$F642 

; Datei schließen 

C068 60 


RTS 




Hier wieder das Ladeprogramm: 

100 FOR I « 49152 TO 49256 

110 READ X : POKE l,X : S«S*X : NEXT 

120 DATA 169, 36.133,251,169,251.133,187,169, 0,133,188 

130 DATA 169, 1,133,183,169, 8,133,186,169, 96.133,185 

140 DATA 32,213,243.165,186, 32,180,255,165,185, 32,150 

150 DATA 255,169, 0,133,144,160, 3.132,251, 32.165,255 

160 DATA 133,252,164,144,208, 47. 32,165.255.164.144,208 

170 DATA 40.164,251.136.208.233,166,252, 32.205,189.169 

180 DATA 32, 32,210,255, 32,165,255,166.144,208, 18,170 

190 DATA 240, 6, 32,210,255. 76. 76,192,169, 13, 32,210 
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200 DATA 255.160. 2.208.198, 32, 66,246. 96 

210 IF S <> 1S343 THEN PRINT "FEHLER IN DATAS li" : END 

220 PRINT "OK I" 


Der Aufruf von BASIC geschieht wieder mit SYS 12*4096. Es 
wird dann das Inhaltsverzeichnis der Diskette auf dem Bild¬ 
schirm angezeigt, ohne daß ein gespeichertes BASIC-Programm 
verloren geht. 

Statt des seriellen lEC-Bus kann es sich vor allem aus 
Geschwindigkeitsgründen lohnen, ein lEC-Bus Modul einzu¬ 
setzen, das auf den Memory Expansion Port gesetzt wird. Sie 
können dann sämtliche Peripheriegeräte der großen Commodore- 
geräte benutzen, wie z.B. die großen Diskettendoppellaufwerke. 

Bei der Programmierung des parallelen lEC-Bus ändern sich 
lediglich die Adressen der Routinen wie z.B. Ein- und Ausgabe 
eines Bytes auf den lEC-Bus oder Senden von TALK oder 
LISTEN. Programmieren Sie dagegen Ihre Ein- und Ausgabe auf 
den lEC-Bus über logische Dateien mit BASIN ($FFCF) und 
BSOUT ($FFD2), so sind überhaupt keine Änderungen erforder¬ 
lich. 


5.9 Das serielle Schieberegister 

Der serielle Datenport SDR ist ein synchrones 8-Bit Schiebere¬ 
gister. CRA Bit6 bestimmt Ein- oder Ausgabemodus. 

Im Eingabemodus werden die Daten an SP mit der steigenden 
Flanke eines an CNT liegenden Signals in ein Schieberegister 
übernommen. Nach 8 CNT-Pulsen wird der Inhalt des Schiebe¬ 
registers nach SDR gebracht und das SP-Bit im ICR gesetzt. 

Im Ausgabemodus fungiert Timer A als Baudrate-Generator. Die 
Daten aus SDR werden mit der halben Unterlauffrequenz von 
Timer A nach SP hinausgeschoben. Die theoretisch höchste 
Baudrate beträgt demnach 1/4 des Systemtaktes. 
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Die Übertragung beginnt, nachdem Daten ins SDR geschrieben 
wurden, vorausgesetzt, Timer A läuft und befindet sich im 
Continuous-Modus (CRA Bit 0^1 und Bit 3=0). 

Er von Timer A abgeleitete Takt erscheint an CNT. Die Daten 
aus SDR werden in das Schieberegister geladen und dann mit 
jeder fallenden Flanke an CNT aus SP hinausgeschoben. Nach 8 
CNT-Pulsen wird der SP-Interrupt erzeugt. Wird jedoch SDR 
vor diesem Ereignis mit neuen Daten geladen, so werden diese 
nun automatisch ins Schieberegister geladen und hinausgescho- 
ben. In diesem Falle erscheint kein Interrupt. Die Daten aus 
SDR werden mit dem höchstwertigen Bit voran hinausgeschoben. 
Eingehende Daten sollten dasselbe Format auf weisen. 


S.IO Pinbelegung der CIA 

Das Blockschema der CIA 6526 finden Sie auf der nächsten 
Seite. 

Pinbelegung des 40-poligen Gehäuses; 

1 Masse 

2 ‘ 9 I/O-Port A; S Bit bidirektional 

t0-t7 I/O-Port B; S Bit bidirektional. Die Bits 6*7 können zur 

Anzeige des Unterlaufs der beiden Timer progranniert wer¬ 
den. 

18 *PC (Port Control); nur Ausgang; signalisiert die Verfüg¬ 
barkeit von Daten an Port B oder beiden Ports. 

19 TOD (Tine Of Day); nur Eingang ÖO/60 Kz; triggert die 
Echtzeituhr. 

20 *SV; Betriebsspannung 

2t -IRQdnterrupt Request); nur Ausgang; wird 0 bei Überein¬ 

stinnung eines gesetzten Bits in ICR nit den Eintreffen 
des zugehörigen Ereignisses. 

22 R/U(Read/-Write); nur Eingang; 0«übernahine des Datenbus, 
IsAusgabe auf den Datenbus. 

23 -CS (Chip Seiest); nur Eingang; 0=0atenbus gültig, 
TsDatenbus hochohaig (Tri-State). 

24 'FLAG; nur Eingang; Bedeutung wie -PC. 
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25 02 (Systetntakt 2); nur Eingang; alle Oatenbusaktionen 

finden nur bei 02«1 statt. 

26*33 DBT'OBQlOater^xts); bidirektional; Schnittstelle zun Pro¬ 

zessor. 

34 -REStfteset); nur Eingang; DaRUcksetzen der CIA in den 

Griaidzustand. 

35*38 RS3-RS0(Register Select); nur Eingang; dient zur Auswahl 

eines der 16 Register der CIA; nur gültig *it *CSaO. 

39 SPlSerial Port); bidirektional; dient als Ein-/ Ausgang 
des Schieberegisters. 

40 CNKCount); bidirektional; Ein-/ Ausgang des 
Schieberegistertakts oder Triggereingang für die Inter- 
valltiner. 
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<3ND 

PAO 

PA1 

PA2 

PA3 

PA4 

PAS 

PA6 

PA7 

PBO 

PB1 

PB2 

PB3 

PB4 

PB5 

PB6 

PB7 

PC 

TOD 

vcc 


□ 

1 

^ 40 

d 

CNT 

□ 

2 

39 

d 

SP 

□ 

3 

38 

d 

RSO 

n 

4 

37 

d 

R$1 

n 

$ 

36 

d 

RS2 

□ 

6 

35 

d 

R$3 

□ 

7 

34 

d 

RES 

d 

8 

33 

d 

DBO 

d 

8 

32 

d 

DB1 

i 

10 

MOS 6526 31 

d 

DB2 

d 

11 

30 

n 

DB3 

d 

1 2 

29 

dl 

DB4 

d 

1 3 

28 

d 

DBS 

d 

14 

27 

d 

DB6 

d 

1 5 

26 

d 

DB7 

d 

1 6 

25 

d 

<p2 IN 

d 

1 7 

24 

d 

FLAG 

!_ 

1 8 

23 

d 

CS 

d 

1 9 

22 

D 

R /'W 

d 

20 

21 

n 

mo 


Abb. 6.10: Der 6626 


5.11 Der User-Port 

Mit dem User-Port bietet der C64 eine Schnittstelle, die zur 
Steuerung, der Name sagt es, anwenderspezifischer Peri¬ 
pheriegeräte dient. 

Das wären im einfachsten Falle über Treibertransistoren ange¬ 
schlossene Lampen, das könnte aber auch ein Drucker mit 8- 
Bit-Parallelschnittstelle (Centronics) sein, den Sie vielleicht 
zufällig besitzen und gerne am C64 betreiben würden. 
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Der User-Port besteht im wesentlichen aus einem 8-Bit-Port 
und diversen Steuerleitungen, die im folgenden näher vorgestellt 
werden: 


1 

GND 


2 

♦5V 

;nit nax. lOOivA belastbar 

3 

-RESET 

;nit der gleichnamigen Prozessorleitung verbunden 

4 

CNT1 

;verbix^en mit CNT von CIA 1 

5 

SP1 

;mit SP von CIA 1 verbunden 

6 

CNT2 

;Leitung CNT von CIA 2 

7 

SP2 

;verbtnden mit SP von CIA 2 

8 

-PC2 

;Kandshake-Ausgang von CIA 2 

9 

ATN 0(JT;Steuerleitung des serfellen lEC-Bus, stamt 

von PA3 der CIA 2 

0 

9V AC 

;Uechselspannung; mit max. 100 mA belastbar. 

11 


;Gegenpol zu oben 

12 


;GND 

A 


;GND 

B 

-FLAG2 

;Nandshake-Eingang von CIA 2 

C-L 

PB0-PB7;I/O-Lines von CIA 2 

H 

PA2 

;t/0-Line von CIA 2. Diese Leitung ersetzt den von 
den anderen CBHs bekannten CB2 der VIA 6522.z 

N 

GND 



Einige der oben auf geführten Leitungen haben im C64 bereits 
fest zugeordnete Funktionen. Hierzu und auch zur Handhabung 
der ClAs lesen Sie sich bitte Kapitel 5 ab Punkt S.3 durch. 

Wollen Sie an den User-Port Geräte anschließen, die eigentlich 
zum Anschluß an den User-Port des VC-20 oder CBM 8032 
vorgesehen sind, so ist das prinzipiell nur bei den Geräten mög¬ 
lich, die zu ihrem Betrieb ausschließlich die Pins A-N, 1 und 12 
benötigen. 
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USER-PORT : 


1 2 34 S 6 7 8 9101112 



ABCDEFHJKLMN 


Pin 

Signal 

1 

QND 

2 

+ «V 

3 

RESET 


CNT1 

( 

SP1 

< 

CNT2 

7 

SP2 

t 

PC2 

9 

ATN IN 

1 0 

9 VAC 

11 

9 VAC 

1 2 

GND 

A 

OND 

B 

FLAa2 

C 

PBO 

D 

PBI 

E 

PB? 

F 

PB3 

H 

PB4 

J 

PB6 

K 

PB6 

L 

PB? 

M 

PA2 

N 

GND 


Abb S-11.1; U*«r-Port 


Auf jeden Fall müssen Sie die programmtechnisch unter¬ 
schiedliche Handhabung der Pins B und M beachten. 

Sollten Sie eigene Projekte am User-Port anschließen wollen, so 
beachten Sie bitte, um eine Beschädigung des Rechners zu ver¬ 
meiden, unbedingt folgendes: 

Bei Verwendung des User-Port als Eingang darf die Eingangs¬ 
spannung nur im Bereich 0-S Volt liegen. Eine Spannung im 
Bereich 0-0,6 Volt wird beim Auslesen des Datenports als 0 
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interpretiert, eine solche von 1,6-S Volt als I. Der Bereich von 
0,7 bis 1,5 Volt ist indifferent, d.h. er kann zufällig als 0 oder I 
erkannt werden. 

Bei Verwendung als Ausgang beachten Sie bitte, daß die Aus¬ 
gänge nur eine Belastung eines TTL-Eingangs aushalten. Sie 
könnten also keinesfalls eine Leuchtdiode direkt anschließen, 
was langfristig zur Zerstörung der CIA führen würde. Es emp¬ 
fiehlt sich immer eine Pufferstufe, wie auch in unserem Bei¬ 
spiel. 

Vermeiden Sie unbedingt, ein auf Ausgabe programmiertes Port¬ 
bit mit einer Fremdspannung von außen zu beaufschlagen, was 
zur unmittelbaren Zerstörung führt. Überlegen Sie sich daher 
gut, welchen Wert Sie in das Datenrichtungsregister laden, damit 
Sie nicht versehentlich ein für die Eingabe vorgesehenes Bit auf 
Ausgabe programmieren. 

Wenn Sie die Stromversorgung für Ihr Projekt dem User-Port 
entnehmen wollen, beachten Sie bitte, daß Sie die beiden zur 
Verfügung stehenden Spannungen nicht mit mehr als Je 100mA 
belasten. Bei leichten Übertretungen wird zunächst der Kasset¬ 
tenrecorder streiken, danach verabschiedet sich die Sicherung im 
Innern des C64 und evtl, auch die Primärsicherung im Trafoge¬ 
häuse. Zerstört wird dabei jedoch nichts weiter. 


5.12 Registerbeschreibuiig der CIA 


REGO PRA 

(Port Register A) 

Zugriff; 

READ/WRlTEzpg65 

Bit 0-7 

Dieses Register entspricht dem Zustand der 
Pins PAO-7. 

REG 1 PRB 

(Port Register B) 

Zugriff: 

READ/WRITE 

Bit 0-7 

Dieses Register entspricht dem Zustand der 
Pins PBO-7. 
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REG 2 DDRA 
Zugriff: 
Bit 0-7 


REG 3 DDRB 
Zugriff: 
Bit 0-7 


REG 4 TA LO 
Zugriff: 
Bit 0-7 


Zugriff: 
Bit 0-7 


REG 5 TA HI 
Zugriff: 
Bit 0-7 


Zugriff: 
Bit 0-7 


REG 6 TB LO 


REG 7 TB HI 


(Datenrichlung Register A) 

READ/WRITE 

Diese Bits bestimmen die Datenrichtung der 
korrespondierenden Datenbits des Ports A. 
O^Eingang, I^Ausgang. 

(Datenrichtung Register B) 

READ/WRITE 

Diese Bits bestimmen die Datenrichlung der 
entsprechenden Datenbits des Ports B. 
O^Eingang, 1= Ausgang. 

(Timer A LO-Byte) 

READ 

Dieses Register gibt den augenblicklichen 
Zustand des niederwertigen Bytes von Ti¬ 
mer A wieder. 

WRITE 

In dieses Register wird das niederwertige 
Byte des Werts geladen, von dem der Timer 
auf null zählen soll. 

(Timer A HI-Byte) 

READ 

Dieses Register gibt den augenblicklichen 
Zustand des höherwertigen Bytes von Timer 
A wieder. 

WRITE 

In dieses Register wird das höherwertige 
Byte Werts geladen, von dem der Timer auf 
null zählen soll. 

(Timer B LO-Byte) 

Zugriff und Belegung entspricht REG 4. 
(Timer B HI-Byte) 

Zugriff und Belegung entspricht REG 5. 
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REG 8 

TOD 10 

(Uhr 1/10 sec) 


Zugriff: 

READ 


Bit 0-3 

Zehntelsekunden der Echtzeituhr im BCD- 
Format. 


Bit 4-7 

Immer 0. 


Zugriff: 

WRITE und CRB Bit 7=0 


Bit 0-3 

Zehntelsekunden im BCD-Format. 


Bit 4-7 

Müssen 0 sein. 


Zugriff: 

WRITE und CRB Bit 7=1 


Bit 0-3 

Vorwahl der Zehntelsekunden der Alarmzeit 
im BCD-Format. 


Bit 4-7 

Müssen 0 sein. 

REG 9 

TOD SEC 

(Uhr sec) 


Zugriff: 

READ 


Bit 0-3 

Einersekunden der Uhr im BCD-Format. 


Bit 4-6 

Zehnersekunden der Uhr im BCD-Format. 


Bit 7 

Immer 0. 

Weitere Zugriffsarten analog zu REG 8. 

REG 10 


TOD MIN (Uhr min) 


Zugriff: 

READ 


Bit 0-3 

Einerminuten der Uhr im BCD-Format. 


Bit 4-6 

Zehnerminuten der Uhr im BCD-Format. 


Bit 7 

Immer 0. 

Weitere Zugriffsarten analog zu REG 8. 

REG 11 


TOD HR (Uhr Std) 


Zugriff: 

READ 


Bit 0-3 

Einerstunden der Uhr im BCD-Format. 


Bit 4 

Zehnerstunde der Uhr. 


Bit 5-6 

Immer 0. 


Bit 7 

OsvormittagsCAM), I=nachmittags(PM). 
Weitere Zugriffsarten analog zu REG 8. 

REG 12 


SDR (Serial Data Register) 


Zugriff: 

READ/WRITE 


Bit 0-7 

Aus diesem Register werden die Daten bit¬ 
weise zum Pin SP hinausgeschoben, bzw. 
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REG 13 

Zugriff: 
Bit 0 
Bit 1 
Bit 2 

Bit 3 

Bit 4 
Bit 5-6 
Bit 7 

Achtung: 

Zugriff: 


Bit 7 


REG 14 

Zugriff: 
Bit 0 
Bit 1 

Bit 2 


Bit 3 


vom Pin SP in dieses Register hineingescho¬ 
ben. 

ICR (Interrupt Control Register) 

READ (INT DATA) 

IsUnterlauf Timer A. 

I=Unterlauf Timer B. 

I=Gleichheit von Uhrzeit und gewählter 
Alarmzeit. 

I=SDR voll/leer (abhängig von der Be¬ 
triebsart). 

I=Signal am Pin FLAG auf getreten. 

Immer 0. 

Übereinstimmung mindestens eines Bits von 
INT MASK und INT DATA auf getreten. 
Beim Lesen dieses Registers werden alle 
Bits gelöscht. 

WRITE (INT MASK) 

Bedeutung der Bits wie oben, ausgenommen 
Bit 7 

Isjedes 1-Bit setzt das korrespondierende 
Masken-Bit. Die anderen bleiben unberührt. 
0=jedes 1-Bit löscht das korrespondierende 
Masken-Bit. Die anderen bleiben unberührt. 

CRA (Control Register A) 

READ/WRITE 

I=Timer A Start, 0=Stop 

I=Unterlauf von Timer A wird an Pin PB6 

signalisiert. 

I=jeder Unterlauf von Timer A kippt PB6 
in die jeweils andere Lage, 0=jeder Unter¬ 
lauf von Timer A erzeugt an PB6 einen HI- 
Puls mit der Länge eines Systemtakts. 
I=Timer A zählt nur einmal vom Aus¬ 
gangswert auf null und hält dann an, 
0=Timer A zählt fortlaufend vom Aus¬ 
gangswert auf null. 
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Bit 4 1 »unbedingtes Laden eines neuen Startwer¬ 

tes in Timer A. Dieses Bit fungiert als 
Strobe. Es muß bei jedem unbedingten La¬ 
den neu gesetzt werden. 

Bit 5 Dieses Bit bestimmt die Quelle des Timer- 
Triggers. 1 »Timer zählt steigende CNT- 
Flanken, 0=Timer zählt Systemtaktpulse. 

Bit 6 1»SP ist Ausgang, 0=SP ist Eingang. 

Bit 7 l=Echtzeituhr-Trigger beträgt 50Hz, 

0»Trigger beträgt 60 Hz. 


REG 15 


Zugriff: 
Bit 0-4 


Bit 5-6 


Bit 7 


CRB (Control Register B) 

READ/WRITE 

Diese Bits haben die gleiche Bedeutung wie 
in REG14, allerdings bezogen auf Timer B 
und Pin PB7. 

Diese Bits bestimmen die Quelle des Trig¬ 
gers für Timer B. 00=Timer zählt Sys¬ 
temtakte, 01 »Timer zählt steigende CNT- 
Flanken, I0»Timer B zählt Unterläufe von 
Timer A, ll»Timer B zählt Unterläufe von 
Timer A, wenn CNT=1 ist. 
l»Alarm setzen, 0»Uhrzeit setzen. 
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6. Das ROM-Listing 

6.1 Nutzung des ROM-Listings 

Ein Vorteil der Assemblerprogrammierung ist es, daß der 
Anwender auf die Routinen im BASIC-ROM und im Be¬ 
triebssystem zurückgreifen kann. Das Benutzen dieser Routinen 
erspart viel Arbeit und ist außerdem noch platzsparend. Häufig 
macht man sich unnötig viele Gedanken über ein programm¬ 
spezifisches Problem und rauft sich am Ende die Haare, wenn es 
dann doch nicht tadellos funktioniert, obwohl im Betriebssystem 
eine entsprechende Routine schon vorhanden ist. 

Wir wollen Ihnen an dieser Stelle anhand von einigen Beispielen 
demonstrieren, wie man diese Routinen am besten nutzt und was 
dabei zu beachten ist. Eine Zusammenfassung der wichtigsten 
Routinen finden Sie in Kapitel 6.2 

Ein Problem, das sich häufig stellt, ist das Verschieben von 
Speicherbereichen. Dieses Problem kann zwar durch Ver¬ 
schachtelung mehrerer Schleifen gelöst werden, viel eleganter 
und vor allem günstiger ist es jedoch, die fertige Routine im 
BASIC-ROM zu verwenden. Diese Routine wird intern zum 
Beispiel benutzt, wenn eine neue BASIC-Zeile eingefügt wurde 
und alle Variablen verschoben werden müssen. Sie steht im 
ROM ab der Adresse $A3BF (41919). Vor dem Einsprung müs¬ 
sen jedoch einige Bedingungen erfüllt werden; Der alte Block¬ 
anfang sowie das alte und neue Blockende müssen in bestimmten 
Adressen in der Zeropage abgelegt werden. Eine Anwendung 
dieser Routine, in der der Bereich von $1000 bis $1500 in den 
Bereich $2000 verschoben werden soll, könnte folgendermaßen 
gestaltet werden: 

LDX #S00 ; alter Blockanfang (LOU-Byte) 

LOY MIO ; alter Blockanfang (HIGH-Byte) 

STX B5F ; abspeiehern 

STT $60 } abspeiehern 

LOX MOI ; altes Blockende (LCW-Byte «1) 

LOY #$15 ; altes Blockende (High'Byte) 
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STX $SA 

; abspeichern 

STY »56 

; abspeichern 

LDX «SOI 

; neues Blockende (LOM-Byte * 1) 

LDY «SIS 

; neues Blockende (High-Byte) 

STX S58 

; abspeichern 

STY S59 

; abspeichern 

JSR SA3BF 

; Verschieberoutinc anspringen 

«TS 

; Rücksprung 


Wie Sie sehen, ist diese Methode recht einfach und auch relativ 
kurz. Poked man die Werte in die Zeropage, so findet die Rou¬ 
tine auch im BASIC Verwendung, wenn man sie mit SYS 41919 
auf ruft. 

Eine weitere nützliche Routine beginnt ab $£50A (58634). Sie 
kann benutzt werden, um die Cursorposition abzurufen oder 
diese zu verändern. Bei gesetztem Carry-Flag wird die aktuelle 
Position des Cursors geholt. Die Zeile wird in das X-Register 
und die Spalte in das Y-Register übertragen. Ist das Carry-Flag 
hingegen gelöscht, wird der Cursor mit den Werten aus den bei¬ 
den Registern neu positioniert. Auf den ersten Blick scheint die 
Routine für BASIC nicht verwendbar, doch hier zeigt sich wie¬ 
der, daß die Nutzung des ROM-Listings auch etwas Eigeninitia¬ 
tive voraussetzt. Wenn man die einzelnen Routinen der 
Hauptroutine selbständig aufruft und das bewährte Hilfsmittel 
Poke hinzuzieht, läßt sich die Routine auch aus dem BASIC 
heraus benutzen. Es empfiehlt sich also immer, die benötigten 
Routinen vorher sorgfältig durchzuarbeiten und sich mit ihnen 
vertraut zu machen. 

Die Nutzung des ROM-Listings beschränkt sich aber nicht nur 
auf die fertigen Routinen. Es ist durchaus möglich, diese Routi¬ 
nen zu verändern, um sie seinen Wünschen anzupassen oder auch 
um sie zu verbessern. Da sich das ROM aber nicht verändern 
läßt, muß man es vorher in einen RAM-Bereich kopieren. Hier 
bietet sich das RAM an, das sozusagen parallel unter dem ROM 
liegt. Die hierzu benögigte Kopierroutine sieht etwas absurd aus, 
da zum Beispiel 




Das ROM-Lisling 


263 


POKE 49000, PEEK (49000) 

auf den ersten Blick keinen Sinn hat. Dieser Befehl bewirkt 
aber, daß der Inhalt dieser Speicherzelle aus dem ROM gelesen 
und an die gleiche Stelle in das RAM geschrieben wird. Nach 
dem Kopiervorgang muß dem Prozessor noch mitgeteilt werden, 
daß sich das gesamte ROM nun im RAM befindet. Zu dem 
Kopiervorgang lesen Sie sich bitte auch das Kapitel über die 
Speicheraufteilung durch, da Sie dort noch weitere, wichtige 
Informationen bekommen. 

Nun können Sie alle gewünschten Veränderungen am ROM vor¬ 
nehmen. Wie wäre es zum Beispiel mit einer neuen Laderoutine, 
die einen Autostart unterdrückt ? Da ein Autostart nur dann 
erfolgen kann, wenn bestimmte Vektoren beim Laden über¬ 
schrieben werden, wie in Kapitel 1 erwähnt, läßt er sich einfach 
unterdrücken, indem man das Programm in einen anderen 
Speicherbereich lädt. Hier stößt man auf Schwierigkeiten, wenn 
es sich um ein Kassettenprogramm handelt, das mit der 
Sekundäradresse 3 abgespeichert wurde, da dieses wie in Kapitel 
4 erwähnt immer in den Orginalbereich geladen wird. 

Da das Betriebssystem während des Ladens auf die Sekundär¬ 
adresse abfragt, ist es uns möglich, die Abfrage an dieser Stelle 
so zu modifizieren, daß das Programm trotzdem an die von uns 
angegebene Adresse geladen wird. Sehen wir uns dazu die ent¬ 
sprechenden Adressen der Routine an: 

SF568 CPX *t0S ; Überprüfung auf Sekundäradresse 3 

SF56A BHE SFS49 ; wenn nicht 3, dann verzweige 

Das ist die Stelle, an der wir eingreifen können, indem wir die 
Verzweigung so abändern, daß bei Sekundäradresse 3 so ver¬ 
fahren wird wie bei Sekundäradresse 1, wir also angeben kön¬ 
nen, in welchen Bereich geladen werden soll. So sähe die Ver¬ 
zweigung nach der Änderung aus: 


SF56A BEO SF579 ; Verzweigung wie bei Sekundsradresse 1 
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Auch andere Änderungen können nach demselben Muster vorge¬ 
nommen werden, wie zum Beispiel die Änderung der Repeat- 
funktion bei der Tastaturabfrage, oder das Einbringen eigener, 
deutscher Fehlermeldungen. Hier sind Ihrer Kreativität keine 
Grenzen gesetzt. 


6.2 Verzeichnis der wichtigsten ROM-Routinen 

Im folgenden sind die wichtigsten Routinen des BASIC-ROMs 
und des Betriebssystems zusammengefaßt: 

Adresse Funktion 

SA3BF Speicherinhalte verschieben 

$A637 Fehlermeldung ausgeben, Fehlernunner muB 

in K-Register stehen 
SA480 Eingabewarteschleife 

SAS60 Eingabe einer Zeile per Tastatur 

SA613 Speicheradresse einer Prograiraizeile berechnen 

SA664 BAStC-Befehl NEW 

SA660 BASIC-Befehl CLR 

SA68E CHRGET-Zeiger auf Anfang des BASIC- 

Speichers stellen 
SA69C BASIC-Befehl LIST 

SA7e 1 BASIC-Befehl ausführen 

SAB24 String ausgeben, Ausgabegerät ist in 

S9A festgelegt 

SAB3F Ausgabe eines Leerzeichens 

SAB62 Ausgabe Cursor rechts 

$AB67 Ausgabe eines ASCIl-Zeichens, Akku nuB 

ASCII-Uert enthalten 

SAD9E Beliebigen Ausdruck holen, ist $14 (Typflag) s 0, 
dam numerisch, ist $14 = FF, dann String 
$AEF7 Prüft auf Klanner zu 

$AEFA Prüft auf Klanner auf •<(•• 

$A£F0 Prüft auf konna 

$B113 Prüft auf Buchstabe 

SB39S 16-Bit*Interzahl in A/V-Reg. nach FlieBkomuzahl 

SB7EB Holt eine 16*Bit-lnterzahl ind einen 8-Bit-Wert 
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M950 FAC > KONSTANTE - FAC , Akku ml Y-Register 
zeigen auf KONSTANTE (Low- und High-Byte) 

$8853 FAC > ARG - FAC 

$B867 FAC > KONSTANTE (A/Y> * FAC 

SB86A FAC > ARG « FAC 

S6A28 FAC z KONSTANTE <A/V) * FAC 

SBAZB FAC « ARG * FAC 

SBASC FlieBkcmtazahl nach ARG bringw, Zeiger auf 
Zahl in Akku und Y-Register 
SBBOF FAC > KONSTANTE (A/Y) / FAC 
SBBIZ FAC > ARG / FAC 

SBBAZ FlieRkennazahl nach FAC bringen, Zeiger auf 
Zahl in Akku und Y-Register 
SB8C7 FAC nach Akku #4 übertragen 

S8BCA FAC nach Akku KS übertragen 

S8BD4 FAC nach Variable übertragen, Zeiger auf 
Zietadresse in Akku und Y-Register 
$BBFC ARG nach FAC übertragen 

SBCOC FAC nach ARG übertragen 

SBCZB Vorzeichen von FAC holen, Zero- und Carry- 
Flag Herden beeinfluBt 

SBCSB Vergleich KONSTANTE (A/Y) «it FAC . Flags 
Herden beeinfluBt 

S6C9B Unuandlung FlieBkoieiia nach Integer in FAC 
$BCF3 Uauandlung ASCII nach FtieBkonna 

SBDCD Positive Integerzahl aus Akku ml X-Reg. ausgeben 
SBDDD Unuandlung FAC nach ASCII-Format, ASClI-Uerte 

Herden ab $0100 abgelegt 

SBFTI SQR, zieht OuadrstHurzel aus der Zahl in FAC 
SBFTS FAC > ARG * KONSTANTE (A/Y) 

$BF7« FAC > ARG ' FAC 

$E10C ASCn-Zeichen ausgeben , Wert nuB in Akku stehen 
$E112 ASClI-Zeichen holen (Eingabegerät uählbar) 

$E124 Zeichen aus Tastaturpuffer in Akku holen 

SE156 SAVE-Routine 

SE165 VERIFY-Routine 

$E168 LOAD-Routine 

$E18C OPEN-Befehl 

$E1C7 CiaSE-Befehl 
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SE106 Parameter für LOAD und SAVE holen 

SE219 Parameter für OPEN und ClOSE holen 

$£264 COS, berechnet den Cosinusuert (n FAC 

SE26S SIN, berechnet den Sinuswert Im FAC 

SE2B4 TAN, berechnet den Tangenswert in FAC 

SeSOA Cursor setzen/holen, wenn CarryFlag *0, denn 

Cursor setzen, sonst Cursor holen ( ^'Register - 
Zelte, Y'Register e Spalte) 

$£518 SUdschlrmreset wird durchgefOhrt 

$ES44 CLR, loscht den B1 Idsehirn und setzt Cursor HOME 

$ES66 HOME, bringt den Cursor in die linke obere 

Ecke des Bildschirms 
$ES6C berechnet die Curaorpositlon 

$E5A0 Videocontroller initialisieren, lädt den Video* 
Controller mit den Stardardwerten 
$E584 holt ein Zeichen aus dem Tastaturpuffer 
SE5CA wartet auf Tastatureingabe 

$E8EA Bildschirii scrolLen, schiebt Bi Idschim 

um eine Zeile noch oben 
$E9FF löscht eine Bildschirmzelle 

SEAIC setzt ein Zeichen mit Farbe auf dem Bildschirm 
(Bildschirmcode im Akku, Farbe in X} 

SFFSI Video-Reset 

$FF84 CIAs initialisieren 

$FF87 RAM löschen/testen 

$FF8a I/O initielisieren 

$FF8D I/O Vektoren initialisieren 

$FF90 Setzt Flag für Ausgabe von Systeaneldung 

$FF93 schickt Sekudaradrmsse nach efneei LISTCN-Befehl 
auf den I£C*Bus 

$FF96 schickt Sekuridäradresse nach einem TALK-Befehl 

auf den IEC*Bus 

$FF99 holt bei gesetzem CarryFlag die höchste RAM- 
Adresse nach X und Y, bei gelöschtem Carry 
Flag wird die Adresse von X und T gesetzt. 

$FF9C dieselbe Funktion wie $FF99, jedoch für den 

RAM-Anfang 

SFf9F fragt die Tastatur ab 

$FFA2 setzt das Time*out*Flsg für den tEC*Bus 

$FFAS hott ein Byte vom lEC-Bus in den Mdtu 
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$FFA8 9<bt ein Byte aus den Akku an den lEC-Bus aus 
SFFAB sendet UNTALK-Befehl auf den lEC-Bus 

BFFAE sendet UHLlSTEN-BefehL auf den lEC-Bus 

BFFB1 servfet LISTEH-Befehl euf den lEC-Bus 

SFFBA sendet TALK-Befehl zun lEC-Bus 

BFFB7 holt das Statuswort in den Akku 
BFFBA setzt die Fi leparaseter, Akku muB logische 
Filenunaer enthalten, X a Gerstenumer und 
Y ■ Sekundäradresse 

BFFBD setzt Psrameter des Filenanens, Akku «uB 

Länge des Kaniens enthalten, X wxl Y enthalten 
die Adresse des Filenanensl Low- und High-Byte) 
SFFCO OPEN-Befehl, öffnet logische Datei 

BFFC3 CLOSE'Befehl, schlieBt logische Datei, 

Akku nuB logische Filenuaner enthalten 
*FFC6 CHKIN setzt folgende Eingabe auf logische 
Datei, die in X «ibergeben wird. 

Die logische Datei nuB vorher itit cfer 
OPEH-Routine geöffnet werden. 

$FFC9 CKOUT setzt felgende Ausgabe auf logische 
Datei, die in X übergeben wird. 

Die logische Datei muS vorher nit der 
OPEH'Routine geöffr>et werden. 

SFFCC CLRCH setzt die Ein- und Ausgabe wieder 
auf Standard (Tastatur/Blldschim) 

SFFCF BASIN Eingabe, holt ein Zeichen in den Akku 
SFFDZ BSOUT Ausgabe, gibt Zeichen in Akku aus 

SFFDS LOAD, ladt Progrann in den Speicher 

SFFD8 SAVE, speichert Prograisa ab 

SFFDB setzt die laufende Zeit neu 

SFFDE holt die laufende Zeit 

SFFEI fragt die STOP-Taste ab 

SFFE6 GET, holt ein Zeichen in den Akku 
SFFE7 CLALL, setzt alle Ein-/Au8gabekanäle 

zurück, die Dateien werden jedoch 
nicht geschlossen 

BFFEA erhöht die laufende Zeit um eine 

sechzigstel Sekiside 

SFFEO SCREEN holt die Anzahl der Zeilen und 
«a«d Spalten des Bildschirms 
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$FFF9 bcf galösehtM Carry-Fiag Mird der Cursor 

auf die Positiort X/T gesetzt, bei gesetztem 
CarryFlag Mird die Cursorposition nach X/Y 
geholt (X'Reg « Zeile, Y*Reg « Spalte) 

SFFF3 holt die Startadresse des I/O-Bausteins 


6.3 Alphabetisches Verzeichnis der ROM-Routioeo 

Abfrage auf gedrückte Bandtaste SFfiZE 
Adresse eines Arrayelanerits berechnen $830E 
Adressen der Basic-Befehle (minus 1) SAOOC 
Adressen der BasiC'*Fur>ktionen SA0S2 
Adressen der Fehlernwldurigen SA328 
AdreBZeiger erhöhen SFCDB 
Anfangswert für RND-Funktion $E3BA 
Arbeitsspeicher initialisieren SFD50 
Arrayelement suchen SB2E9 
Arrayvariable anlegeii SB261 
Ausgabe der Zeilenmrwi a r bei Fehlermeldking $BDC2 
Ausgeb« eines Fragezeichens $AB4S 
Ausgabe eines Leerzeichens SA63B 
Ausgabe in RS 232 Puffer SFQt4 
ARG s Konstanate (A/Y) SBASC 
ARG nach FAC Obertragen SBBFC 
ASCM-Code nach Bildschirmcode wandeln SE691 
Band für Lesen worbereiten SF8E2 
Bandheader nach Hamen suchen $F7EA 
Bandptjffer auf Band schreiben SF864 
Bandpufferzeiger erhöhen SF80D 
Basic CKOUT-Routine S£4AD 
Basic Xaltstart $E394 
Basic NMl-Einsprung SE37B 
Basic-Befehl CLOSE SElC7 
Basic-Befehl CLR SA65E 
Basic'Befehl CMD SAA86 
Basic-Befehl COHT SA857 
Basic-Befehl DATA SA8F8 
Basic-Befehl OEF SB3B3 
Basic-Befehl DIN tB081 
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Basic-Befehl 

END 

$A831 

Basie-Befehl 

FOft 

SA742 

Basic'Befehl 

GET 

SABTB 

Basic-Befehl 

GOSUB 

SA883 

Basic-Befehl 

GOTO 

SASAO 

Basic-Befehl 

IF 

$a920 

Basic-Befehl 

INPUT 

SABBF 

Basic-Befehl 

INPUT* 

SABAS 

Basic-Befehl 

LET 

SA9A5 

Basic-Befehl 

LIST 

SA69C 

Basic-Befehl 

LOAD 

SE168 

Basic-Befehl 

NEU 

SA642 

Basic-Befehl 

HEXT 

SA010 

Basic-Befehl 

CN 

SA94B 

Basic-Befehl 

CN 

SA94B 

Basic-Befehl 

OPEN 

$E1BE 

Basic-Befehl 

POKE 

$B02A 

Basic-Befehl 

PRINT 

SAAAO 

Basic-Befehl 

PRINT# 

SAA80 

Basic-Befehl 

REAO 

SAC06 

Basic-Befehl 

REM 

SA93B 

Basic-Befehl 

RESTORE 

SAS1D 

Basic-Befehl 

RETURN 

SA802 

Basic-Befehl 

RUN 

SA871 

Basic-Befehl 

SAVE 

SE156 

Basic-Befehl 

STOP 

SAS2F 

Basic-Befehl 

SYS 

SE12A 

Basic-Befehl 

VERIFY 

SE16S 

Basic-Befehl 

UAIT 

$B02D 

Basic-Befehlsworte 

$A09E 

Basic-Fehlennel düngen 

SA19E 

Basic-Funktion ABS 

S6C5S 

Basic-Funktion ASC 

$B78B 

Basic-Funktion ATN 

SE30E 

Basic-Funktion CHRS 

SB6EC 

Basic-Funktion COS 

SE264 

Basic-Funktion EXP 

SBFED 

Basic-Funktion FN 

$B3F4 

Basic-Funktion FRE 

$B37D 

Basic-Funktion INT 

SBCCC 
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Basic-Funktion LEFTS 

SB700 

Basic-Punktion LEN 

tSTFC 

Basic-Funktion LOG 

SB9EA 

Basic-Funktion HIOB 

tB737 

Basic-Funktion PEEK 

BB80D 

Basic-Funktion POS 

S839E 

Basic-Funktion RIGHTS 

tB72C 

Basic-Funktion RND 

SE097 

Basic-Funktion SGN 

SBC39 

Basic-Funktion SIN 

SE26B 

Basic-Funktion SQR 

SBF71 

Basic-Funktion STRS 

S866S 

Basic-Funktion TAN 

tE2B4 

Basic-Funktion VAL 

tB7AD 

Basic-Code in Klartext wandeln 

»A717 

Basic-Operator AND 

BAFE9 

Basfc-Operator HOT 

BAE04 

Basic-Operator OB 

BAFE6 

Basic-Routine BASIN 

SE112 

Basic-Routine BSOIJT 

SEIOC 

Basic-Routine CHKIN 

SEHE 

Basic-Routine CKOUT 

SE118 

Basic-Routine GETIN 

SE124 

Basic-Statenent ausführen 

SA7ED 

Basic-Vektoren laden 

SE453 

Basfsadresse der CIAs holen 

SE500 

Betriebssysteni-Heldiaigen 

SE45F 

Bildschirm löschen 

SE544 

Bildschirm scrollen 

SE8EA 

Bi Idschirm-Reset 

SES18 

Bildschirmformat holen 

SES05 

Bildschirnzeile löschen 

SE9FF 

Bit auf Band schreiben 

SFBA6 

Bitweise Multiplikation 

SBA59 

Bitzähler für serielle Ausgabe setzen 

SFB97 

Block von Band lesen 

SF841 

Blockverschiebe-Routine 

SA3B8 

Byte auf seriellen Bus ausgeben 

SE040 

Byte auf seriellen Bus ausgeben 

SEDDD 

Byte vom seriellen Bus holen 

SEE13 
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Byte VOM Band holen SF199 
Byte von RS 232 holen SF1 bS 
Bytewert nach X holen, GETBTT SB798 
BASlN-Routine SF157 
BSOUT-Routlne SF1CA 
Cursor setzen/holen SESOA 
Cursor Home iE566 
Cursorposition berechnen S£56C 
CHKIN-Routfne $F20E 
CKOUT-Routine $F250 
CLALL-Routine $F32F 
CLOSE-Routine SF291 
CLRCH'Routine BF333 
Detenbits für RS 232 berechnen SEF4A 
Dimensionierte Variable holen $61D1 
Division FAC ■ ARG / FAC S6B12 
Division FAC * Konstante (A/r> f FAC SBBOF 
Einfügen einer Fortseuungszeile BE963 
Eingabe einer Zeile SA56I) 
Eingabe*Wsrteschleife SA480 
Fehlerbehandlung bei Eingabe $AB40 
Fehlerneldung ausgeben BA437 
Fehlermeldung des Betriebssystems $F6FB 
Filsperameter setzen $F31F 
Flsg für Systennelchs^gen setzen BFE18 
FlieBkcamkonstante *32768 $B1AS 
FlieBkonaakonstante 0.5 BBF11 
FlieBkonaakonstante 10 BBAF9 
FAC - FAC • 10 $BAE2 
FAC > FAC * 0.5 SB849 
FAC > FAC / 10 BBaFE 
FAC 3 Konstante (A/T> BBBA2 
FAC nach Akkuß übertragen SBBCA 
FAC nach Akku*4 übertragen $BBC7 
FAC nach ARG übertragen SBCOC 
FAC nach ASCII wandeln und nach B100 BBODO 
FAC nach Variable übertragen SBBDO 
FH'Byntax prüfen SB3E1 
FRESTR SB6A3 
FRNCVL Auswerten eines beliebigen Ausdruclw SAD9E 
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FRNMIJH Ausdruck holen «fd auf iNCierisch prüfen SAD8A 
Garbege Collection $8526 
GETADR und CETIYT. 16- und 8-8it*Uert holen $87EB 
SET«». FAC in positive 16*Sit-Zahl wandeln $87F7 
GETIN-Routirie SF13E 
HarcAtare und I/O-Vektoren setzen/holen SFD15 
Header auf Band schreiben SF76A 
Nierarchiekodes der Basic-Operatoren SAOSO 
Hilfsroutine für Arrayberechnung SB34C 
Hintergrundfarbe setzen $E40A 
Interpretersc hlef fe BA7AE 
Interriptroutine $EA31 
Interruptroutine für Band lesen SF92C 
Interruptroutine für Band schreiben IFBCD, SFC6A 
IRQ-Einsprung $FF48 
IRQ-Vektor setzen $FCB8 
mO-Vektoren SF098 
Kemal Sprunstabelle $FF81 
Konstante Pi BAEAD 
Konstanten für ATN SE33E 
Konstanten für EXP SBFBF 
Konstanten für FlieKkonna nach ASCII $BF16 
Konstanten für FlieSkam« nach ASCII $B0B3 
Konstanten für LOG $B9BC 
Konstanten für RHD $E080 
Konstanten für SIN und COS $e2e 0 
Konstanten für Uniwandlung TI nach TIS SBF3A 
Kopie der CHRGET-Routine SE3A2 
Listeii senden SEDOC 
Logische Filenvanoer suchen SF30F 
Löschen und Einfügen von Programzeilen SA49C 
LOAO-Routine *F49E 
Mantisse von FAC invertieren SB947 
Meldungen des Betriebssystes« SFQBD 
Meldungen des Betriebssystems ausgeben SF12B 
Meldkaigen des Interpreters tA364 
Minus FAC « ARG • FAC SB853 
Minus FAC = Konstante (A/¥> ■ FAC SBSSO 
Multiplikation FAC > ARG * FAC $BA2B 
Multiplikation FAC = Konstante (A/Y) * FAC SBAZG 
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MSB für Zeilenanfänge neu berechnen $E6B6 
Nächste Ze! le suchen iA909 
Hichstes Element eines Ausdrucks holen $AE83 
Nächstes Statement suchen $A906 
NMI-Einsprur« $FE43 
HMt-Routine fOr RS Z32 $FE06 
Obergrenze RAM setzen/holen SFEZS 
OPEN-Routine $F34A 
Parameter für aktives File setzen SFEOO 
Parameter für Fitenamen setzen SFDF9 
Parameter für LOAD (nd SAVE holen SEtD4 
Parameter für OPEN holen SE219 
Platz für String reservieren SB4F4 
Plus FAC = ARG « FAC $BB6A 
Plus FAC > Konstante (A/V> * FAC SB867 
Polynont>erechnmg 1 SE043 
Polynoeberechnimg 2 SE0$9 
Positive tntegerzahl in A/x ausgeben S6PCD 
Potenzierung FAC > ARG hoch FAC SBF7B 
Potenzierung FAC > ARG hoch Konstante (A/T) SBF78 
PrograRRi vom Band laden SF84A 
Prograinrheader von Band lesen SF72C 
Progretmzeiger auf Basfc-Start SASSE 
Pr^rsmizetle einfügen SA4EC> 
Progrannizeile löschen SA4A? 
Progrsnnzeilen neu binden SA533 
Prüfung auf njserisch SA06D 
Prüfung auf Auto-Start-ROH SFD02 
Prüfung auf Buchstabe SB113 
Prüfi«>g auf Erreichen der Endadresse SFC01 
Prüfung auf Klaener auf Stf FA 
Prüfung auf Klanner zu SAEF7 
Prüfung auf Koems SAEFD 
Prüfung auf Platz im Speicher $A3FB 
Prüfung auf Shift, CTRL, Coenodore $EB48 
Prüfung auf Steuerzeichen SEC44 
Prüfung auf Stop*Teste SA82C 
Prüfung auf String SAOSF 
Prüfung auf Systeeiveriable SAFU 
Prüfur>g auf ilberelnstiinmung mit laufendem Zeichen SAEFO 




274 


64 Intern 


Rechtsverschieben eines Registers SS9fi3 
Rekorderniotor ausschalten $FCCA 
Reset-Rcutine $FCE2 
RAH für BASIC initialisieren SE3BF 
RON-Modul Identifizierung SF010 
RS 232 Ausgabe SEEBB 
RS 232 Ausgabe SF208 
RS 232 CHKIH $F(KD 
RS 232 GET SF0B6 
Schafft Platz im Speicher SA408 
SekindSradresse nach Listen senden S£DB9 
Sekundäradresse nach Talk senden tEDC7 
Stapelsueh-Routine SA38E 
Startadresse des Bandpuffers holen SF7D0 
Startadresse einer Progrannzeile berechnen SA613 
Status holen $FE07 
Stoptaste abfragen SF6E0 
String ausgeben SAB1E 
String holen, Zeiger nach A/T SB487 
String in reservierten Bereich übertragen $B67A 
Stringparaneter holen S67B2 
Stringparamter von Stack holen S6761 
Stringvergleich SB02E 
Stringverknüpfung SB63[> 
Stringverwaltung, FRESTR S8ÖA3 
Stringzeiger berechnen S6475 
SAVE-Routine SF500 
Tabelle der BASIC-Vektoren SE4A7 
Tabelle der Fsrbfeodes SEBOA 
Tabelle der Kardware* und I/O-Vektoren SFD30 
Tabelle der LSB der Bildschiraizeilen-Anfange SECFO 
Talk senden SEO09 
Tastatur Dekodiertabelle 1 SEB81 
Tastatur Dekodiertabelle 2 $EBC2 
Tastatur Dekodiertabelle 3 SEC03 
Tastatur Oekodiertabelle 6 tEC7B 
Tastaturabfrage KA87 
Tens in KlaoBern holan SAEFl 
Test auf Direkt-Hodus S63A6 
Test auf Nochkomaa $£684 
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Test auf Stop*Ta$te $F8D0 
Tine erhöhen $f69B 
Tine holen tF6CP 
Tfme setzen SF6E6 
T{«eout-Ftag für seriellen Bus setzen $FE21 
TiRierkonslanlen für RS 232 Baud Rate, MTSC'Version SFEC2 
Tinerkonstanten für RS 232 Baiid Rate, PAL-Version $E4EC 
Unuandlunfl einer Zeile in tnterpreterkode SA579 
UnMandlung ASCII nach FlietkoaMformat SBCF3 
UBVandluns FlieBkoniTe nach Integer SB1B2 
Umwandlung FlieBkonna nach Inteeer $BC9B 
Unlisten senden SEDFE 
Untalk senden SEOEF 
Untergrenze RAM setzen/helen SFE36 
Variable antegen SB110 
Variable holen SAF2B 
Variable holen SS086 
Vergleich SB0T6 
Vergleich konstante (A/Y) aiit FAC SBC3B 
Videocontroller Initialisieren BESAG 
Vorzeichen von FAC holen BBC2B 
Warten auf Bandtaste BFS17 
Warten auf Bandtaste für Schreiben BF838 
Warten mif Cmunodore-Taste BE4E0 
Warteschleife für Tastatureingabe SESCA 
Wertzuweisung an normalen String BAA2C 
Wertzuweisung IMTEGER $A9C4 
Wertzuweisung REAL BA906 
Wertzuweisung String tA909 
Zeichen auf Bildschirm ausgeben BE716 
Zeichen auf Ziffer prüfen SAA1D 
Zeichen aus Taststurpuffer holen $ESB4 
Zeichen und Farbe auf Bildschirm setzen BEA1C 
Zeichen von Bildschirm holen BE632 
Zeiger auf erstes Arrayelement berechnen SB19A 
Zeiger auf Farb'RAM berechnen BEA24 
Zeiger auf Taststurdekodiertabellen $EB79 
Zeile nach oben schieben SE9CS 
Zeilennunner holen und in Adressformat wartdeln SA96B 
Zeit holen BAF84 
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6.4 Die Belegung der Zeropage 

Hexadresse Dezimal Belegung 

OO 0 Datenrichtungsregister für Prozessor- 

Port 

Bit 0 - 6; 0> Eingang 1= Ausgang 

01 1 Im Prozessorport kam man engeben, 

welche Speicherbereiche ein- oder 
ec»9oschsltet werden. 

Bitbeschreibung: 

Bit 0 t B BASIC-ROM, 0= RAM 

Bit 1 1 B KERNAL-ROH, 0» RAM 

Bit 2 1 B I/O Ob Zeichensatz 

Bit 3 B Datenausgabe von Datasette 

Bit 4 0 = Taste bei Datasette gedrückt 
1 = nicht gedrückt 
Bit 5 1 s Motor an, 0= Motor aus 
Die Bits 6 und 7 sind unbenutzt und 
inner 0 

02 2 unbenutzt 

03-04 3-4 Vektor für Unwandiwg <eon FlieBkoaaa 

nach Fest 

Von diesen Adressen aus beginnt der 
Interpreter, eine Cleitkomazahl in 
eine ganze Zahl umzuwandeln. Der 
Vektor deutet auf die Adresse <B1AA. 

(6-05 5-6 Vektor für UsMandlung von Fest nach 

FlieBkonna 

Diese Routine verwandelt eine ganze 
Zahl in eine FlieBkcenazahl. Der 
Zeiger steht auf S8391. 




Suchzeichen 

Die Speicherzelle S07 wird oft von 
BASIC-Prograemen als Suchzeiger für 
Texteingaben verwendet. 

Hochka*M-Flag 
WBrend der Unwandlung von 
BASIC-Befehlen in Tokens wird die 
Speicherzelle SOS als Zwischenspeicher 
für BASIC-Texteingsben verwendet. 

Speicher für Spalte beim TAB-Befehl 
Hach der Ausführung von TAB oder SPC 
wird die Cursorposition in der 
Speicherzelle 9 zwischengespeichert. 

Os LOAD, 1s Verify, Flag des Interpre* 
ters 

Weil die Routine von LOAD und VERIFY 
identisch ist, wird ein Flag benötigt, 
um zu unterscheiden, ob ein LOAD oder 
ein VERIFV-Vorgang ausgeführt worden 
ist. 

Zeiger im Eingsbepuffer, Anzahl der 
Dimensionen 

Oie Speicherzelle SDB wird dazu 
verwertet, die Anzahl der Dimensionen 
zu berechnen. Außerdem wird noch die 
Länge der Tokenzeile hier angegeben. 

Flag für DIN 

Diese Speicherzelle wird benutzt, u« 
festzustellen, ob die Variable ein 
Array oder schon eine dimensionierte 
Variable ist. 
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OD 


Oe 


OF 


10 


11 


12 


13 


13 TypfUg tOOs numrlsch, SFF« String 
Das Flag zeigt dem BASIC-Interpreter 
an. ob es sich m Zahlenuerte oder uri 
einen String handelt. 

14 S80» Interger, $00= Real 

Wenn eine Gleitkonnazahl auftritt, 
steht in der Speicherzelle $00, bei 
einer ganzen Zahl eine $80. 

15 Hochkonnaflag bei LIST 

Dueh diese Speicherzelle wird beim 
LIST-Befehl duch ein üechkonMa 
erkannt, ob eine Textkette folgt. 
Zusätzlich wird in dieser 
Speicherzelle markiert, ob eine 
Garbage Collection durchgeführt 
werden muß oder nicht. 

16 Flag für FN 

Hier wird angezeigt, ob es sich um eine 
Array-Variable oder um eine mit DEF FM 
definierte Variable handelt. 

17 $00« INPUT, $40« GET, $98= READ 
Diese Speicherzelle gibt an. in welche 
Routine der BASIC-Interpreter 
verzweigen soll. 

18 Vorzeichen bei ATM 

Die Speicherzelle $12 wird von den 
trigonometrischen Funktionen zur 
Bestinnjng des Vorzeichens verwendet. 
Zusätzlich dient die Speicherzelle $12 
als Vergleiehse^erator für 
Vergleichsoperationen. 

19 aktives I/O-Cerät $00« Direkteingabe 
Die Speicherzelle $13 wird als Zeiger 
für die Peripheriegeräte wie Tastatur. 
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U-15 


16 


17-18 


19-21 


22-25 


26-2A 


Datasette, RS232, User-Port, 
Bildschirm, Drucker und Floppy 
vereendet. 

20-21 Integer-Adresee z.B. Zeilenniinwr 

In dieser Speicherzelle werden die 
zel lemumern von den Befehlen wie 
ON..GOTO, GOTO. GOSUB, ON..GOSU8 
und der Zeileneusgabe beim 
LIST-Befehl gespeichert. 

22 Zeiger auf Stringsteck 

Die Speicherzelle S16 zeigt auf den 
nächsten freien Speicherplatz im 
Stringstack. 

23-24 Zeiger auf zuletzt verwendeten String 
Der Inhalt dieser beiden Bytes zeigt 
auf den zuletzt verwendeten 
Speicherplatz, 

25-33 Stringstack 

Die Angaben in Stringstack enthalten 
die Stringlänge sowie die Anfar^s- 
und Endadressen des vorherigen 
Strings. 

34-37 Zeiger für diverse Zwecke 

Diese Speicherzellen benutzt der 
Interpreter, u« verschiedene 
Zwischenergebnisse zu speichern. 

38-42 Register für Funktionsauswerturg und 

Arithmetik 

Diese Speicherzellen werden vom 
BASIC-Interpreter auch zur Speichern 
vc«i Zwischenergebnissen bei der 
Multiplikation und Division benutzt. 
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2B-2C 


2D-2E 


2F-30 


31-32 


33-34 


3S-36 


43'44 Zeiger auf BAStC-Progrann Anfang 

Der Anfanssbereich des BASIC ist in 
LoN- und Highbyte angegeben. Han kann 
durch die beiden Bytes den BASIC-Start 
abfragen oder veräridern. 

45-46 Zeiger auf BASIC-Progrannende 

Dieser Zeiger teilt dem Interpreter 
das BASIC-Cnde mit, damit die 
Variablen hinter dem Progrann abgelegt 
werden können. 

47-4S Zeiger auf Start der Arrays 

Das LOW- und HIGN-Byte der Adressen 
geben den BASIC-Interpreter die 
Information, ab welcher Speicherzelle 
die Arrays eines BASIC-Progrannts 
gespeichert sind. 

4fi-50 Zeiger auf Ende der Datenfelder 

Diese beiden Speicherzellen zeigen auf 
das Ende der Arrays. Zu beachten ist, 
daB die Zeichenketten rückwärts 
gespeichert werden. 

51-52 Zeiger auf Stringgrenze 

Oer Inhalt dieser Speicherzellen 
zeigt auf das Ende des Textspeichers, 
der aber noch zugleich das obere Ende 
des frei verfügbaren RAM-Bereichs 
anzeigt. 

53-54 Hilfszeiger für Strings 

In diesen Zellen wird die Adresse der 
Zeichenkette verzeichnet, die als 
letzte von Routinen zur 
Stringmanipulation abgespeichert 
worden ist. 
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37-38 


39-3A 


3I-3C 


3D-3E 


3F-40 


41-42 


43-44 


55-56 Zeiger auf BASIC-RAK-Ende 

Dieser Zeiger gibt den Interpreter an, 
welches die höchste von BASIC 
verwendure Speicheradresse ist. 

57-58 augenblickliche BASIC-Zeilennimer 
In diesen Speicherzellen wird die 
Zeilennuipi e r verzeichnet, welche 
gerade ausgeführt wird. 

59-60 ZeilenniMter für CONT 

Falls eine Unterbrechung des 
Programtablaufs duch den Befehl STOP 
oder über die STOP-Taste erfolgt, 
wird in den Speicheradressen S3B-S3C 
die Zeilenniimer gespeichert, die 
gerade abgearbeitet wurde. 

61-62 Zeiger auf nächstes Stateaent für COMT 
Sobald eine neue BASIC-Zeile 
verarbeitet wird, holt sich das 
Betriebssysten die aktuelle 
Zei lennmner und speichert diese dann 
in S3D-S3E als LOU- und HIGH-Byte ab. 

63-64 augenblickliche Zeilernksmer für DATA 
Diese beiden Speicherzellen enthalten 
die Zeilennumer einer DATA-Zeile, die 
gerade vom READ-Befehl ausgelesen 
wird. 

65-66 Zeiger für nächstes DATA-Elenent 

Hier ist die Adresse aufgeführt, ab 
welcher der READ-Befehl nach der 
nächsten DATA-Zeile sucht. 

67-68 Zeiger auf Herkunft der Eingabe 

Der Zeiger zeigt auf die jeweilige 
Adresse in diesen Eingabe¬ 
pufferspeicher. 
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45-M 


47-48 


49-4A 


4B-4C 


4D 


4E-4F 


50-53 


69*70 Variablermane 

Falls wahrend des Ablaufs eines 
Prograapis eine Variable auftaucht 
wird deren Name hier zwischen- 
gespeiehert. 

71-72 Variablenadresse 

In diesen Speicherzellen wird der 
Zeiger auf den Variablenwert 
^■gelegt. 

73-74 Zeiger auf Variablcneleatent 

Die Adresse einer Schleifenvariable 
wird zunächst hier gespeichert, 
bevor sie in den Stack gebracht wird. 

75-76 Zwischenspeicher für Programnzeiger 
Diese Speicherzellen dienen als 
Zwischenspeicher für mathematische 
Operationen. AuSerdem werden die 
Speicherz.el len auch noch wn 
READ-Befehl als Zwischenspeicher 
verwendet. 

77 Maske für Vergleichsoperationen 

Dieser Zeiger wird von mathenatischen 
Routinen als Vergleichsoperator 
verwendet, daB heiBt us festzustellen, 
ob ein Wert kleiner, gleich oder 
grSBer ist. 

78-79 Zeiger für FM 

In $4E-S4F ist die Adresse angegeben, 
wo die Variablen und ihr Wert abgelegt 
sind. 

60-83 Stringdescriptor 

In diesen Speicherzellen wird mter 
anderem die Schrittweite für fiarbage 
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54 

55-56 

57-5B 

SC-60 

61-65 

66 

67 

68 


Collection und andere wichtige 
InforiMtionen für den Interpreter 
festgelegt. 

64 Konstante $4C JHP für Funktionen 

Hier ist die Konstante für JNP (S4C} 
festgelegt. 

65-66 Sprungvektor für Funktionen 

In SSS-SS6 werden die Sprungvektoren 
für die Funktionen angegeben. 

67-91 Register für Arithmetik, Akku iß 

Die Register werden für die 
Zwischenspeicherung von 
Polynoniauswertungen (TAN) benötigt. 

92-96 Register für Arithmetik, Akku i4, 

siehe oben 

97-101 FlieSkommakku *1, FAC 

Diese Register werden für die 
Berechnung von FlieBkonmezahlen 
verwendet. 

102 Vorzeichen von FAC 

Der Zeiger gibt an, ob der Wert, der 
in FAC steht, positiv oder negativ 
ist. 

103 Zähler für Polynomeuswertung 

Diese Speicherzelle dient als Zähler 
für die PolynoMUBwertung. 

104 Rundungsbyte für FAC 

Hier wird angegeben, ob der Wert, der 
in FAC steht, auf- oder abgerivxiet 
werden soll. 
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69-60 

105*109 

FlIeBkcMPwakki«l2, ARG 

Diese Register werden für die 

Berechnung von FlieBkoanazahlen 

verwendet. 

6E 

110 

Vorzeichen von ARG 

Hier wird angegeben, ob der Wert, der 
im ARG steht, positiv oder negativ ist. 

6F 

111 

Vergleichsb/te der Vorzeichen von FAC 
und ARG 

Diese Speicherzelle gibt den 

Interpreter an, ob die Vorzeichen der 

beiden Akkus übereinstinaen. 

71 -72 

113-1H 

Zeiger für Polynonausuertung 

Hier ist in LOU- und HIGH-Byte 
angegeben, was ausgewertet werden 
sol l. 

73-8A 

115-138 

CHRGET-Routine 

Diese Routine holt ein Zeichen aus den 

BASIC-Text. 

7A-7B 

122-123 

Progrannzeiger 

ln diesen Speicherzellen wird in LOU- 
und HIGH-Byte die Anfangsadresse des 
als nächstes auszufChrenden Befehls 
im BASIC-RAM angegeben. 

7C-8A 

124-138 

Unbenutzt 

8B-8F 

139-143 

letzter RND-Uert 

In diesen Registern wird der letzte 
RND-Uert in FUeBkonnsformat abgelegt. 

90 

144 

Statuswort ST 

In dieser Speicherzelle, die such mit 
der BASIC-Varisble ST identisch ist, 
sind die Fehler*ieldis>gen der Datasette 
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und der Floppy verzefchnett 
Datasette: 

Bit 0 s Unbenutzt 
Bit 1 - Unbenutzt 
Bit 2 • Kurzer Block 
Bit 3 = Langer Block 
Bit 4 • Lesefehler 
Bit 5 s Prüfsiimenfehler 
Bit 6 s File-Ende 
Bit 7 s Band-Ende 
Floppy: 

Bit 0 s Fehler beim Schreiben 

Bit 1 s Fehler beim Lesen 

Bit 2 s Unbenutzt 

Bit 3 3 Unbenutzt 

Bit 4 - Unbenutzt 

Bit 5 - Unbenutzt 

Bit 6 ° Daten-Eride 

Bit 7 s DEVICE NOT PRESENT ERROR 

91 145 Flag für STOP-Taste 

In dieser Speicherzelle wird vermerkt, 
ob die Stoptaste gedrückt worden ist 
oder nicht. 

92 146 Zeitkonstante für Band 

Dieses Register hat die Aufgabe, kleine 
Unterschiede bei der Aufnahne- 
geschwindigkeit auszugleichen. 

93 147 Flag für LOAD SOO. oder für VERIFY SOI 

Dieses Flag dient dem Betriebssystem 
dazu, un zu unterscheiden, ob eine 
LOAD oder eine VERIFY Operation 
erfolgt. 

94 148 Flag bei lEC-Ausgabe 

Diese Adresse setzt bei Floppy und 

Drucker den "LISTEN" Zustand. 





286 


64 Intern 


95 


96 


97 


98 


99 


9A 


U9 Ausgabepuffer für lEC-Bus 

Hier wird das Zeichen abgelegt, 
welches über den seriellen Port zur 
Floppy oder zum Drucker geschickt 
werden soll, sobald die Adresse S9A 
Bereitschaft zeigt. 

150 Flag für EOT von Band empfangen 
In $96 werden die Daten 
zwischengespeichert, die von Band 
gelesen werden. 

151 Zwischenspeicher für Register 
Beim Lesen von Band wird hier das 
X'Register zwischengespeichert. 

152 Anzahl der offenen Files 

In dieser Speicherzelle wird 
festgehalten, wie viele Files gleich¬ 
zeitig geöffnet sind. 

153 aktives Eingabegerät 

In dieser Speicherzelle wird 
festgehalten, welches Gerät zur 
Eingabe verwendet werden soll. 

Die Nuranern sind folgendermaSen 
festgelegt: 

0 = Tastatur 

1 = Datasette 

2 s RS232 und User-Port 

3 - Bildschirm 
4*5 s Drucker 
8-11 > Laufwerke 

154 aktives Ausgabegerät 

Diese Speicherzelle ist mit der 
vorherigen zu vergleichen, nur steht 
hier die Numer des Geräts, über das 
die Ausgabe erfolgt. 
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9B 

155 

ParitAt für Band 

über diese Speicherzelle findet eine 
Parity-Prüfung (Ouersuifwnbi Idung) 
statt. Dies dient dazu, un Lese- und 

Schreibfehler zu vermeiden. 

9C 

156 

Flag für Byte anpfangen 

Hier wird festgelegt, ob das gelesene 
Byte die Ouersuime richtig gebildet 
hat oder nicht. 

90 

157 

Flag für Direktaiodus $80, Progrann $00 

In dieser Speicherzelle wird 
angegeben, welche Fehlermel<Ai''9en 
zugelassen werden und welche nicht. 

$00 unterdrückt alle Fehlermeldungen, 

$80 kennt de« normalen Eingabeiriodus 
gleich ind SCO läSt alle Fehler¬ 
meldungen zu. Diese Zustände können 
alle künstlich erzeugt werden. 

9E 

156 

Ban^ass 1 Checksunne 

Diese Speicherzelle wird zur 

Überprüfung von Bytes bei Kassetten- 
Operationen benutzt. 

9F 

159 

Bandpass 2 Fehlerkorrektur 

Hier werden die Fehler korrrigiert, 
die bei Kassettenoperationen auf¬ 
getreten sind. 

A0-A2 

160-162 

Time 

In diesen Speicherzellen wird die 

Uhrzeit über die Interruptroutine 

erhöht. 

A3 

163 

Bitzähler für serielle Ausgabe 

Dieses Register wird als Zwischen¬ 
speicher von Ein-/Ausgaberout{nen 

benutzt. 
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M 

164 

Zähler für Band 

afehe oben 

AS 

165 

Zähler für Band schreiben 

Diese Speicherzelle wird als Zähler 
des Synchron-Bits verwendet. 

A6 

166 

Zeiger in Band|wffer 

Dieses Register wird als Zähler 
benutzt, welcher angibt, wie viele 

Bytes aus dem Bandpuffer gelesen 
oder in den Bandpuffer geschrieben 
worden sind. 

A7-AB 

167-171 

Arbeitsspeicher für Ein-ZAusgabe 

Diese Register werden häufig von 
Kassettenoperationen der RS-232 

Schnittstelle als Zwischenspeicher 

benutzt. 

AC-AD 

172-173 

Zeiger für Bandpuffer und Scrolling 

Diese Speicherzellen dienen in erster 

Linie als Zeiger auf die Adresse, ab 
welcher ein Progranin geladen oder 
gespeichert werden soll. Zweitens 
dienen sie auch als Zwischenspeicher 
während des Scrollings des Video-RAM 
und beim Einfügen zusätzlicher Zeilen. 

AE-AF 

174-175 

Zeiger auf Progrannende bei LOAD/SAVE 

Ähnlich wie SAC-SAD funktionieren 
diese beiden Speicherzellen. Sie 

Zeigen ioiaer auf das Byte, das gerade 
gelesen oder gespeichert wurde. 

B0-B1 

176-177 

Der Wert in den Speicherzellen wird 
benutzt, um die Zeitkonstante beim 

Lesen von Band einzustellen. 
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B2-B3 

178-179 

Zeiger auf Bandpuffer 

Diese beiden Speicherzellen zeigen auf 
den Bandpuffer ($0330 

B4 

180 

Bitzähler für Band 

Hier wird die Anzahl der übertragenden 

Bits gezählt. 

B5 

181 

nächstes Bit für RS-232 

Diese Speicherzelle enthält isiaer das 
nächste Bit. das bei RS-232 Opera¬ 
tionen übertragen werden soll. 

B6 

182 

Puffer für auszugebendes Byte 

Dieses Register wird als Ausgabe¬ 
zwischenspeicher benutzt. 

B7 

183 

Länge des Filenaawns 

In dieser Speicherzelle wird 
angegeben, aus wie vielen Zeichen der 

Filename besteht. 

B8 

184 

logische Filentüiner 

ln dieser Speicherzelle wird die 

logische Filenumer verzeichnet. 

B9 

185 

Sekundäradresse 

Hier steht die jeweilige Sekundär¬ 
adresse. 

BA 

186 

Gerätenunner 

Entsprechend ist auch in dieser 

Speicherzelle die Gerätenunaer zu 
finden. 

BB-BC 

187-188 

Zeiger auf Filenanen 

ln diesen Speicherzellen steht ein 

Zeiger, der in LOU- und HIGH-Byte- 
Darstellung auf den Filenamen zeigt. 
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BO 

189 

Arbeitsspeicher serielle Ein-/Ausgabe 

Hier wird von den RS-232-Rautinen ein 

Prüfbyte abgelegt (Parity-Prüfung). 

BE 

190 

Passzahler für Band 

In dieser Speicherzelle ist angegeben, 
uie viele Blockteile von Band gelesen 
oder euf Band geschrieben werden 

sollen. 

BF 

191 

Puffer für serielle Ausgabe 

Beim Laden eines Prograams von Band 
wird diese Speicherzelle dazu benutzt, 
um die einzelnen Bits zu einem Byte 

zusannenzusetzen. 

CO 

192 

Flag für Bandnotor 

Der Motor der Datasette kam nur 
eingeschaltet werden, wenn die 

Speicherzelle ungleich Null ist. 

C1-C2 

193-194 

Startadresse für Ein-ZAusgabe 

In diesen Registern ist in LOU- und 
HI6H*Byte-Darstellung angegeben, ab 
welcher Adresse ein Progratwi geladen 
oder gespeichert wird. 

C3-C4 

195-196 

Endadresse für Ein-/Ausgabe 

Hier steht in LOU- (.vxJ HIGH-Byte der 

Zeiger auf den Tape-Header im 

Bandpuffer. 

C5 

197 

Nuniier der gedrückten Taste 

Hier wird die Nunnier der gedrückten 

Taste gespeichert (64a keine Taste). 

C6 

198 

Anzahl der gedrückten Tasten 

Hier steht die jeweilige Anzahl der 

Zeichen, die im Tastaturpijffer 
gespeichert sind. 



Das ROM-Lisüng 


291 


C7 


CS 


C9 


CA 


ce 


cc 


CO 


199 Flag fOr RVS-Hodus 

Diese Speicherzelle gibt an, ob die 
auszugebenden Zeichen revers oder 
twnMl dargestellt werden sollen 
(Oe normal, 1a revers). 

200 Zeilene«\fe für Eingabe 

Oieses Register enthält die Position 
des letzen Zeichens in einer Zeile. 

^1 Cursorzelle für Eingabe 

Diese Speicherzelle dient dazu, in die 
Zeile des letzten eingegebenen Zeich¬ 
ens festzustellen. 

202 Cursorspelte für Eingabe 

Diese Speicherzelle dient dazu, um die 
Spalte des letzten eingegebenen 
Zeichens festzustellen. 

203 gedrückte Taste 

Hier steht der jeweilige Code der 
gedrückten Taste. (64a keine Taste). 

204 Flag für Cursor 

Der Cursor wird susgeschaltet, wenn 
in dieser Speicherzelle ein grüBerer 
Wert als Mult steht. 

205 Zähler für Cursor blinken 

Diese Speicherzelle dient als Zähler 
für die Cursor-Blinkphase. Wenn der 
Wert 20 in dieser Speicherzelle 
abgezählt ist, wird der Cursor einge¬ 
schaltet. 
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CE 

206 

Zeichen Lrter de« Cursor 

Hier ist jeweils der Büdschirnicode 
eines Zeichens an9«9«ben, das sich 
i^sde unter d» Curs^ befindet. 

CF 

2or 

Flag für Cursor 

In diesem Register wird festgehalten, 

in welcher Blink-Phase sich der Cursor 
gerade befindet. 

DO 

208 

Flag fOr Eingabe von Tastatur oder 

Bildschirm 

Hier wird die Lünge der zu 
übertragenden Zeichen gespeichert. 

D1-D2 

209-210 

Zeiger auf Start der Bildschirmzeile 

In diesen Speicherzellen wird fn LOU- 
und KICH-Byte-Osrstellung «ngezeigt, 
wo sich im Video-RAM die Zeile be¬ 
findet, suf der der Cursor gerade 
steht. 

OS 

211 

Cursorspelte 

Hier wird die Spaltenposition des 

Cursors festgehalten. 

04 

212 

Flag für Hochkomanodus 

Falls in dieser Speicherzelle eine 

Null steht, dann befindet sich der 

Conputer im Hochkonnarodus. Andere 

Werte bewirken den NoriaeUndus. 

OS 

21S 

LBnge der Bildschirmzeile 

Der Inhalt dieser Speicherzelle 
entscheidet, ob eine neue Zeile 
angefangen werden muB oder nicht. 

06 

214 

Cursorzeile 

Hier wird die Zeilenposition des 

Cursors festgehalten. 
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D7 

215 

Speicher für ASCII-Tasten-Code 

Bevor ein Zeichen in den 

Tsstaturpiiffer gebracht uird. uird es 
vorher hier zuischengespeichert. 

D6 

216 

Anzahl der Inserts 

Hier wird die Anzahl der Inserts 
festgelegt. 

D9-F2 

217-242 

NSB der Bildschirmzeilenanfänge 

Alle 25 Speicherzellen enthalten 

Informationen über die Zeilen des 

Bildschirns. 

F3-F4 

243-244 

Zeiger in Farb-RAN 

Diese Speicherzellen zeigen auf die 

Stelle im Farb-RAN, an der der Cursor 
auf der Zeile steht. 

F5-F6 

245-246 

Zeiger auf Tastatur-Dekodiertabelle 

Diese Speicherzellen zeigen auf die 

Tastatur-Dekodiertabelle. 

F7-F8 

247-248 

Zeiger auf RS‘232 Eingabepuffer 

Diese Register zeigen auf die 

Anfangsadresse des Eingabepuffers. 

F9-FA 

249-250 

Zeiger auf RS‘232 Ausgabepiffer 

Diese Register zeigen auf die 

Anfangsadresse des Ausgabepjffers. 

00FF-010A 

255-266 

Puffer für IMwaridlung FlieAkoma nach 

ASCII 

Diese Register werden für die 
Zwischenspeicherung von FlieBkonnia- 

zahlen benutzt. 
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0100*013E 256*318 Speicher fOr Korrektur bei Bandeingabe 

Bein Laden von Band werden hier die 
Daten zwisehengespeichert, aus denen 
das Betriebesystem erkennen kann, 
welche Bytes fehlerhaft sind. 

013F-01FF 256-511 Prozessorstack 

Der Stack ist generell ein 
Zwischenspeicher, in das der Pro- 
graemierer Daten ablegen kann. Außer* 
dem wird er vom Prozessor dazu 
benutzt, bei einem Interrupt oder 
einem Unterprogranroufruf die 
Adresse, von der aus verzweigt wurde, 
zuischenzuspeichern. Dies geschieht in 
der Reihenfolge HIGH- und LOU-Byte. 

Die Daten werden im Stack von der 
Adresse S01FF zur Adresse S0100 hin 
abgelegt. Bei einem BREAK wird zu¬ 
sätzlich der ProzessorstatuB im Stack 
abgelegt. 

0200-0258 512-600 BASIC-Eingabepuffer 

Hach der Eingabe eines Befehls oder 
einer Progranezeile werden diese 
Daten in diesen Bereich zwischen¬ 
gespeichert, um dann wieder weiter- 
verarbeitet zu werden. 

0259-0262 601-610 Tabelle der logischen Filenunnern 

In dieser Tabelle werden die logischen 
Filenijnnern der Reihe nach, von 1-10, 
eingetragen. Bein Schließen einer 
Datei werden diese Einträge wieder 
entfernt. 

0263-026C 611-620 Tabelle der Gerätenumern 

Diese Tabelle entspricht S0259-S0262, 
rwr mit den Unterschied, daB hier die 
Geräteadressen vermerkt werden. 
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0260-0276 621-630 Tabelle der Sekut-dliradressen 

Diese Tabelle entspricht S0259*S0262, 
nur mit de« Unterschied, daB hier die 
Sekmiäradressen venaerkt «erden. 

0277-02&0 631*640 Tastaturpuffer 

Hier werden die Tastencedes zwischen¬ 
gespeichert, die nicht sofort vom 
Betriebssystem weiterverarbeitet 
werden können. 


0281*0202 641-642 Start des BASIC-RAN 

Nach einem Reset oder einem Kaltstart 
wird dieser Zeiger auf den nächsten 
freien Speicherplatz gesetzt. 

0283*0284 643*644 Ende des BASIC-RAN 

Dieser Zeiger wird nach einen Reset 
oder einem Kaltstart auf den letzten 
verfügbaren freien RAN*Speicherplatz 
gesetzt. 

0285 64S Timeout-Flag für seriellen lEC-Bus 

Alle Zähler in dieser Speicherzelle, 
die gröBer als 128 sind, bedeuten, daß 
ein Gerät angeschlossen ist. Die 
kleineren Werte bedeuten das 
Gegenteil. 

0286 646 augenblickliche Farbe 

Hier wird die augenblickliche 
Zeichenfarbe festgelegt; 

0 • schwarz 

1 « weiB 

2 s rot 

3 « lila 

4 • purpur 

5 e grün 

6 > blau 
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7 • selb 

8 a orsnge 

9 s braun 

10 * hellrot 

11 * dunkelgrau 

12 • mittelgrau 

13 • heitgrün 
16 • hellblau 
15 > hellgrau 

0287 667 Farbe unter de* Cursor 

In dieser Speichercelle merkt sich das 
Betriebssystem, welche Farbe gerade 
unter de* Cursor steht. 

0288 668 H!GH-Byte Video-RAH 

Dieses HIGH-Byte gibt dem Betriebssysteia an, 
ab welcher Adresse das videO'RAN zu finden 
ist. 

0289 669 Unge des Tastaturpuffers 

Dieses Register gibt an, wie viele 
Speicherzellen des Tastaturpuffers 
belegt werden sollen. 

026A 6S0 Flag für Repeatfunktion für alle 

Tasten 

In dieser Speicherzelle wird dem 
Betriebssystem angegeben, welche Tasten 
eine Repeat-Funktion haben und welche 
nicht: 

0 • nur Cursor-,Insert/Delete- und 
Leertaste 
66 • keine Taste 
128 s alle Tasten 

028B 651 Zähler für Repeatgeschwindigkeit 

Diese Speicherzelle dient als Zähler, 
die die Repeat-Geschwindigkeit 
festlegt. 
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028c 


02 » 


028E 


028F-0290 


0291 


0292 


652 Zlhler für Repestverzögeru^g 

Mfer wird angegeben, wie lange eine 
Teste gedrückt sein nuB, bis die 
Repeat'Funktion einsetzt. 

653 Plag für BMIFT, Coanodore wd CTRL 
In diese« Register stellen die 
Tastencodes der Stsuertasten: 

1 > SHIFT 

2 > Cosn oJa re 

3 > SHIFT wd Coanodore 

4 - CTRL 

5 > SHIFT wd CTRL 

6 a coanodore und CTRL 

7 B SHIFT, Coanodore und CTRL 

iSU SNIFT-Ftag 

Hier steht die zuletzt gedrückte 
Steuertaste. 

655-656 Zeiger für Tastatur-Oekodiermg 

Hier steht ein Zeiger, der auf die 
Betriebssystaaroutine für die Tastatur- 
Dekodierung zeigt. 

657 Flag für SHIFT/Coamodore gesperrt 
Falls in der Speicherzelle eine 128 
steht, wird eine Unschaltung mit 
SHIFt/Canwdore vereitelt. Bei einer 
0 wird die Uniscbaltisig zugelassen. 

658 Flag für Scrollen 

Wenn in dieser Speicherzelle eine 0 
steht, setzt der Scroll-Vorgang ein. 

Bei einem gröBeren Wert setzt dieser 
Vorgang nieht ein. 
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0293 


029« 


0295-0296 


659 RS-232 KontroUwert 

Hier wird die Übertr89ungs* 
geschwindigkeit der RS-232 Schnitt¬ 
stelle festgelegt: 

Bits 0-3 steuern die Übertragungs¬ 
geschwindigkeit: 


Bitawster 

Wert 

Baudrate 

0000 

0 

50 

Baud 

0001 

1 

50 

Baud 

0010 

2 

75 

Baud 

0011 

3 

110 

Baud 

0100 

« 

134.5 

Baud 

0101 

5 

150 

Baud 

0110 

6 

300 

Baud 

0111 

7 

600 

Baud 

1000 

6 

1200 

Baud 

1001 

9 

1600 

Baud 

1010 

10 

2400 

Baud 

Bit « nicht belegt 



Die Bits 5 

und 6 steuern die Länge 

der Übertragung: 



Bitmuster 

Uert 

Länge 


00 

0 

6-Bit 


01 

32 

7-Bit 


10 

6« 

6-Bit 


11 

96 

5-Bit 


Bit 7 gibt 

die Anzahl 

der STOP-Bits an 

BitMUSter 

Wert 

Anzahl 


0 

0 

1-STOP 

-Bit 

1 

12B 

2-STOP 

-Bits 


660 RS-232 Befehlswort 

Die einzelnen Bits steuern das 
■Handshake' -Protokoll. 

661-662 Bit-Timing 

Die Möglichkeit, eine freiwahlbare 
übertragicgsgeschwindikeit einzu¬ 
stellen, wurde vorgesehen, aber nicht 
eingebaut. 




Das ROM-Listing 


299 


0297 663 RS>232 Status 

Hier werden die Fehlermeldungen der 
RS-232 Schnittstelle angezeigt: 

Bit Uert Bedeutung 

0 1 Fehler bei Parity-Prüfung 

1 2 Fehler in der Bitfolge 

2 4 Überlauf des Eingabepuffers 

3 8 Eingabepuffer ist leer 

4 16 das CTS-Signal fehlt 

5 32 nicht belegt 

6 64 Das 0SR*Signal fehlt 

7 128 Die Übertragung ist unter¬ 

brochen 

0296 664 Anzahl der Oatenbits für RS-232 

Diese Speicherzelle wird verwendet, 

HD die Uortlänge festzustellen. 

0299-029A 665-666 RS-232 Baud-Rate 

Die Übertragungsrate errechnet sich 
aus der SysteiBfrequenz (985.25) KHz 
dividiert duch die Baudrate. 

Dieser Uert steht in LOW- und 
HIGH-Byte-Oarstellung in den beiden 
Speicherzellen. Er wird vom Betriebssystem 
abgerufen. 

029B 667 Zeiger für empfangenes Byte RS-232 

Wem man den Inhalt der Speicherzelle 
mit dem Uert in SF7-SF8 addiert, 
erhält man die Adresse des zuletzt im 
Eingabepuffer eingegebenen Bytes. 

029C 668 Zeiger auf tnput von RS-232 

Uenn man den Inhalt der Speicherzelle 
mit dem Uert in SF7-SF8 addiert, 
erhält men die Adresse des ersten im 
Eingabepuffer eingegebenen Bytes. 
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0290 

669 

Zeiger auf zu (Ibertragendes Byte 

RS>232 

Wenn Man den Inhalt der Speicherzelle 
mit dem Wert in SF9-SFA addiert, 

erhält ran die Adresse des ersten im 

Ausgabepuffer eingegebenen Bytes. 

CI29E 

670 

Zeiger auf Ausgabe auf RS-232 

Wenn mn den Inhalt der Speicherzelle 
mit de« Wert in SF9-SFA addiert. 

erhält ran die Adresse des zuletzt im 
Ausgabepuffer eingegebeiien Bytes. 

029F-02AO 

671-672 

Speicher für IRQ während Bandbetrieb 

Bei Kassettenoperationen wird hier in 

LOW- und HIGH-Byte-Darstellung der 

Vektor für die Interruptroutine 
gespeichert. 

02At 

673 

CIA 2 MHt-Flag 

Diese Speicherzelle erhält den Wert 
des Interruptsteuerregisters, das die 

RS-232 Schnittstelle steuert. 

02A2 

674 

CIA 1 Tiner A 

Bei Bandroutinen wird hier das 

HICN-Byte von Timer A zwischen- 
gespeichert. 

02A3 

675 

CIA 1 Interruptflag 

Bei Bandroutinen wird in dieser 

Speicherzelle festgelegt, welche IRQs 
freigegeben sind und welche nicht. 

02A4 

676 

CIA 1 Flag für Timer A 

Hier wird bei Baridroutinen angegeben, 

ob Tiser A läuft oder nicht. Wenn hier 

eine SOO steht, ist der Timer 
freigegeben, andernfalls ist er 
gesperrt. 
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02A5 

677 

BUdschiraizeile 

02A6 

678 

Flag für PAL- (1) o. MT8C- Version (0) 
Hier steht ein Wert, der angibt, ob es 

sich un eine PAL- oder eine HT8C- 

Version handelt. 

02C0-02FE 

704-766 

Sprite 11 

0300-0301 

768-769 

SE38B Vektor für BASIC-Uarmstart 

0302-0303 

770-771 

SA483 Vektor für Eingabe einer Zeile 

0304-030S 

772-773 

SA57C Vektor für Uiawardlung in Inter¬ 
pretercode 

0306-0307 

774-775 

BA71A Vektor für UiawandliriB in Klar¬ 
text (LIST) 

0308-0309 

776-777 

SA7E4 Vektor für BASIC-Befehlsadresse 

holen 

030A-030S 

778-779 

SAE86 Vektor für Ausdruck auswerten 

030C 

780 

Akku für SYS-Befehl 

0300 

781 

X-REG für SYS-Befehl 

030E 

782 

Y-REG für SYS-Befehl 

0310 

783 

Status-Register für SYS-Befehl 

0311-0312 

785-786 

SB248 USR-Vektor 

0314-0315 

788-789 

SEA31 IRO-Vektor 

0316-0317 

790-791 

SFE66 BRK-Vektor 

0318-0319 

792-793 

SFE47 NHI-Vektor 

031A-031B 

794-795 

SF34A OPEN-Vektor 

031C-0310 

796-797 

SF291 CLOSE-Vektor 

031E-031F 

798-799 

SF20E CHKIN-Vektor 

0320-0321 

800-BD1 

SF250 CKOUT-Vektor 

0322-0323 

802-803 

SF333 CLRCH-Vektor 

0324-0325 

804-805 

$F157 INPUT-Vektor 

0326-0327 

806-807 

SfICA OUTPUT-Vektor 

0328-0329 

808-809 

$F6E0 STOP-Vektor 

032A-032B 

810-811 

SF13E GETrVektor 

032B-032C 

812-813 

$F32F CLALL-Vektor 

032E-032F 

814-815 

SFE66 Uarastart-Vektor 

0330-0331 

816-817 

SF4A5 LOAD-Vektor 

0332-0333 

818-819 

SF5E0 SAVE-Vektor 

033C-03FB 

828-1019 Barv^ffer 

0340-037E 

832-894 

Sprite 13 
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03B0-O3BE S96‘95S Sprite 14 
03CO-03FE 960-1022 Sprite 13 


6.5 Die Speicheraufteilung des C64 

Um die Speicherkonfiguration des C64 zu verändern, existieren 
die Bits 0, I und 2 der Speicherzelle SOI, dem sogenannten 
Prozessorport. Zusätzlich gibt es noch zwei Leitungen, GAME 
und EXROM, die am Expansionsport ausgeführt sind. Wenn 
man diese Leitungen auf Masse legt, werden externe Speicher¬ 
bereiche, zum Beispiel Module, eingeblendet. Mit den Bits des 
Prozessorports läßt sich lediglich die Verteilung von RAM und 
ROM im Speicher festlegen. 

Den Zustand, den die jeweiligen Bits für die einzelnen Spei¬ 
cheraufteilungen haben müssen, entnehmen Sie bitte den nach¬ 
folgenden Bildern. Hierbei entsprechen die Bits des Prozessor¬ 
ports den folgenden Bezeichnungen; 

Bit 1 = LORAM (LR) 

Bit 2 - HIRAM (HR) 

Bit 3 = CHAREN (CR) 
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SPEICHER¬ 
AUFTEILUNG 
AUS DER SICHT 
DES VIC 



BANK 3 

W W V « 

A nnA 

BANK 2 


CHAR ROM 

8000 



BANK 1 


BANK 0 

1000 

0000 

CHAR ROM 



I/O-BEREICH 



Abb.6.S.l.l: Speichcrmuf 
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LR = 1 HRsI 

QAsI EX>1 

LR>0 HHs1 

GAs1EXaX 

LR«1 Hn = 0 
aA=i exaX 

ffff 

EIIO 

BK 

KERNAL ROM 


8K 

KERNAL ROM 

! 

OK 

RAM 

oooo 

cool 

4K I/O 


4K I/O 


4K I/O 

4K RAM 


4K RAM 


4K RAM 

AOOO 

BK 

BASIC ROM 





OOOO 

40K RAM 


4eK RAM 


4BK RAM 

0040 






LR>1 HR=1 

OA- 1 EX-0 

LR>1 HR = 1 

OA< 0 EX = 0 

LR = I HR = 1 
OAj>0 EXsO 

FFFF 

EOOO 

OOOO 

/* AAA 

8K 

KERNAL ROM 


OK 

KERNAL ROM 


BK 

KERNAL ROM 

4K I/O 


4K I/O 


4K ro 

4K RAM 


4K RAM 


4K RAM 

AOOO 

• dOo 

OK 

BASIC ROM 


16K ROM 
CARTRIDGE 


BK ROM 
CARTRIDGE 

BK ROM 
CARTRIDGE 
BASIC EXPA 



OK RAM 


32K RAM 


32K RAM 


32K RAM 

1000 






8000 







LR^LORAM HR-HIRAM 
GA<»GAME EX:»EXROM 


LRsO HR>0 
QA= 1 EXoX 


e4K KAM 


LR>X HR>X 
OAiO EX-O 


«K ROM 
CARTRIDGE 


4K I/O 


12K RAM 


<K ROM 
CARTRIDGE 


II K RAM 


4K RAM 


Abb. 6.6.1.3: 8t>aieh«r>uIW1ui>t 
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6.5 Commodore 64 ROM-Listiog 


AOOO 94 E3 Start-Vektor SE394 

A002 TB E3 NHI-Vektor SE3n 


A004 43 42 4D 42 41 53 49 43 'cbMbasie' 


AOOC 30 A8 SSO 
AOOE 41 A7 sei 
A010 V AD S82 
A012 F7 AS SS3 
A014 A4 AB SS4 
A016 BE AB $65 
A01S so BO SS6 
A01A 05 AC $87 
A01C A4 A9 $88 
A01F 9F A8 $89 
A020 70 A8 $8A 
A022 27 A9 $8B 
A024 IC A8 $8C 
A026 82 AS $80 
A028 01 a8 $8e 
A 02A 3A A9 S6F 
A02C 2E A8 $90 
A02F 4A A9 $91 
A030 2C B8 $92 
A032 67 El $93 
A034 55 El $94 
A036 64 El $95 
A038 B2 B3 $96 
A03A 23 B8 $97 
A03C 7F AA $98 
A03E 9F AA $99 
A040 56 A8 S9A 
A042 9B A6 $98 


Adressen der BASIC-Befehle -1 
Interpreterkode Adresse Befehl 


$A831 

END 

$A742 

FOR 

SAD IE 

NEXT 

$A8F8 

DATA 

$ABA5 

IHPUTi 

SABBF 

INPUT 

$B081 

DIM 

$AC06 

READ 

$A9A5 

LET 

$a8ao 

GOTO 

$A871 

RUH 

$A928 

IF 

$A810 

RESrORE 

$A883 

GOSUB 

$A802 

RETURN 

$A93B 

REH 

$A82F 

STOP 

$A94B 

ON 

$B82D 

WAIT 

$E168 

LOAD 

$E156 

SAVE 

$E165 

VERIFV 

$83B3 

DEF 

$8824 

POKE 

$AA60 

PRINTAI 

SAAAO 

PRINT 

$A657 

CONT 

$A69C 

LIST 
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ACI46 50 A6 

S9C 

SA65E 

CLR 

A066 85 AA 

S90 

SAA36 

CHD 

A048 29 El 

S9E 

SE12A 

SYS 

A04A 8D El 

WF 

SEIBE 

»>EN 

A04C C6 El 

•AO 

$E1C7 

CLOSE 

A04E 7A AB 

SA1 

SAB7B 

GET 

A050 41 A6 

SA2 

SA642 

NEW 


Adressen der BASIC-Funktionen 


A052 39 

BC 

SB4 

SBC39 

SCH 

A054 CC 

BC 

SB5 

SBCCC 

INT 

A056 58 

BC 

S66 

SBC58 

ABS 

A058 10 

03 

SB7 

S0310 

USR 

A05A 7D 

B3 

S66 

Se37D 

FRE 

A05C 9E 

B3 

SB9 

SB39E 

POS 

A05E 71 

BF 

SBA 

SBF71 

SQR 

A060 97 

eo 

SBB 

SE097 

RND 

A062 EA 

B9 

SBC 

Se9EA 

LOG 

A064 ED 

BF 

SBD 

SBFED 

EXP 

A066 64 

E2 

SBE 

SE264 

COS 

A068 6B 

E2 

SBF 

SE26B 

SIN 

A06A B4 

E2 

SCO 

SE2B4 

TAN 

A06C OE 

E3 

SCI 

SE30E 

ATN 

A06E OD 

B8 

SC2 

sesoD 

PEEH 

A070 7C 

B7 

SC3 

$877C 

LEN 

AD72 65 

B4 

SC4 

SB465 

STRS 

A074 AD 

B7 

SC5 

SBTAO 

VAL 

A076 8B 

B7 

SC6 

S673B 

ASC 

A073 EC 

b6 

SC7 

$B6EC 

CHRS 

A07A 00 

B7 

SC8 

SB700 

LEFTS 

A07C 2C 

B7 

SC9 

SB72C 

RIGHTS 

A07E 37 

B7 

SCA 

$B737 

MOS 


***************************** Hierechiecodes und 


A060 79 69 B8 
A083 79 52 B8 
A066 TB 2A BA 
A089 TB 11 BB 
A06C 7F 7A BF 


Adressen-1 der Operatoren 
S79. S886A Addition 

>79, $B853 Subtraktion 

STB, SBA2B Multiplikation 

STB, $BB12 Division 

S7F, SBF7B Potenzierung 
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A06F so ES AF 
A092 66 ES AF 
A095 TD B3 BF 
AD9S SA D3 AE 
A09B 64 IS BO 


B50, BAFE9 
$66, SAFE6 
$7D, $BF66 
$5A, SAED6 
$66. SB016 


AHO 

OR 

Vorzeichen Wechsel 


HOT 


Vergleich 


BASIC-Befehlsworte 


A09E 

AOAO 

65 

C6 

6e 

66 

6F 

D2 

6E 

65 

SB 

06 

end 

for 

next 

A0A6 

66 

61 

56 

CI 

69 

6e 

50 

55 

data 

inpiit# 

AOBO 

56 

A3 

69 

6E 

50 

55 

D6 

66 

infxit 

dim 

AOBB 

69 

CD 

52 

65 

61 

C6 

6C 

65 

read 

let 

AOCO 

d6 

47 

6F 

56 

CF 

52 

55 

CE 

goto 

run 

AOCS 

69 

C6 

52 

65 

53 

56 

6F 

52 

if 

restore 

AOOO 

CS 

67 

6F 

53 

55 

C2 

52 

65 

gosiAs return 

AOOS 

56 

55 

52 

CE 

52 

65 

CO 

53 

rem 

stop 

AOEO 

56 

6F 

00 

6F 

CE 

57 

61 

69 

on 

weit 

A0E8 

D6 

6C 

6F 

61 

C6 

53 

61 

56 

load 

save 

AOFO 

CS 

56 

65 

52 

69 

66 

d9 

66 

verify def 

A0F6 

65 

C6 

50 

6F 

6B 

C5 

SO 

52 

poke 

print# 

A100 

69 

6E 

56 

A3 

50 

52 

69 

6e 

print 


A108 

D6 

63 

6F 

6E 

D6 

6C 

69 

53 

cont 

tist 

A110 

D6 

63 

6C 

D2 

63 

60 

C6 

53 

clr 

cad sys 

AUS 

59 

D3 

6F 

50 

65 

CE 

63 

6C 

open 

dose 

A120 

6F 

53 

CS 

47 

65 

D6 

6E 

65 

get 

new 

A126 

D7 

56 

61 

62 

AB 

56 

CF 

66 

tab( 

to 

A130 

CE 

53 

SO 

63 

AB 

56 

6B 

65 

8pc< 

then 

A136 

CE 

6E 

6F 

D6 

53 

56 

65 

DO 

not 

stop 

A160 

AB 

AD 

AA 

AF 

DE 

61 

6E 

C6 


/ ' and 

A166 

6F 

D2 

BE 

BD 

BC 

53 

67 

CE 

or <■> sgn 

A1SO 

69 

6E 

D6 

61 

62 

D3 

55 

53 

int 

abs usr 

A156 

D2 

66 

52 

C5 

50 

6F 

D3 

53 

fre 

pos sqr 

A160 

51 

D2 

52 

6E 

C6 

6C 

6F 

CT 

rnd 

log 

A16B 

65 

SB 

DO 

63 

6F 

03 

53 

69 

exp 

cos sin 

A170 

CE 

56 

61 

CE 

61 

56 

CE 

50 

tan 

atn peek 

A17B 

65 

65 

CB 

6C 

65 

CE 

53 

56 

len 

strS 

A180 

52 

A6 

56 

61 

CC 

61 

53 

C3 

val 

asc 

A1BB 

63 

6B 

52 

A6 

6C 

65 

66 

56 

chr$ 

left$ 

A190 

A6 

52 

69 

47 

6B 

56 

A6 

60 

r1ght$ nidB 

A19B 

69 

66 

A6 

47 

CF 

00 



90 
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A19E 

AlAO 

54 

4F 

4F 

20 

40 

41 

4E 

59 

20 

46 

A1A8 

49 

4C 

45 

03 

46 

49 

4C 

45 

Also 

20 

4F 

50 

45 

CE 

46 

49 

4C 

A1S8 

45 

20 

4E 

4F 

54 

20 

4F 

50 

A1C0 

45 

CE 

46 

49 

4C 

45 

20 

4E 

AlCfi 

4F 

54 

20 

46 

4F 

55 

4E 

a 

A100 

44 

45 

56 

49 

43 

45 

20 

4E 

A1D8 

4F 

54 

20 

50 

52 

45 

53 

45 

AlEO 

4E 

04 

4E 

4F 

54 

20 

49 

4E 

A1E8 

SO 

55 

54 

20 

46 

49 

4C 

CS 

A1f0 

4e 

4f 

54 

20 

4F 

55 

54 

50 

A1F8 

55 

54 

20 

46 

49 

4C 

C5 

40 

A200 

49 

53 

53 

49 

4C 

47 

20 

46 

A208 

49 

4C 

45 

20 

4E 

41 

40 

C5 

A210 

49 

4C 

4C 

45 

47 

41 

4C 

20 

A216 

44 

45 

56 

49 

43 

45 

20 

4E 

A220 

55 

40 

42 

45 

02 

4E 

45 

58 

A228 

54 

20 

57 

49 

54 

48 

4F 

55 

A230 

54 

20 

46 

4F 

02 

53 

59 

4E 

A238 

54 

41 

08 

52 

45 

54 

55 

52 

A240 

4E 

20 

57 

49 

54 

48 

4F 

55 

A24fi 

54 

20 

47 

4F 

53 

55 

C2 

4F 

A250 

55 

54 

20 

4F 

46 

20 

44 

41 

A2S8 

54 

CI 

49 

4C 

4C 

45 

47 

41 

A260 

4C 

20 

51 

SS 

41 

4E 

54 

49 

A268 

54 

09 

4F 

56 

45 

52 

46 

4C 

A270 

4f 

07 

4F 

55 

54 

20 

4F 

46 

A278 

20 

40 

45 

40 

4F 

52 

09 

55 

A280 

4E 

44 

45 

46 

27 

44 

20 

53 

A288 

54 

41 

54 

45 

40 

45 

4E 

04 

A290 

42 

41 

44 

20 

53 

SS 

42 

53 

A29S 

43 

52 

49 

50 

04 

52 

45 

44 

A2A0 

49 

40 

27 

44 

20 

41 

52 

52 

A2A8 

41 

09 

44 

49 

56 

49 

53 

49 

A2B0 

4F 

4E 

20 

42 

59 

20 

5A 

45 

A288 

52 

CF 

49 

4C 

4C 

45 

47 

41 

A2C0 

4C 

20 

44 

49 

52 

45 

43 

04 


BASIC-Fehlenneldungen 

1 too meny fi les 

2 file opot 

3 file not open 

4 file not found 

5 device not present 

6 not irput file 

7 not output file 
fi Kissing filenam 

9 i l legal device nuiiber 

10 next without for 

11 Syntax 

12 return without gosub 

13 out of data 

14 illegal duantity 

15 overfloH 

16 out of s«m>ry 

17 undef'd statenent 

18 t»d subscript 

19 redin'd array 

20 divisien by zero 

21 illegal direct 
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A2C6 S4 

59 

50 

45 

20 

4D 

49 

53 

22 

type Misniatch 

A2D0 4D 

41 

54 

43 

C8 

53 

54 

52 

23 

String toe long 

A2DS 49 

4E 

47 

20 

54 

4F 

4F 

20 



A2ED 4C 

4F 

4E 

C7 

46 

49 

4C 

45 

24 

ffle data 

A2E8 20 

44 

41 

54 

a 

46 

4F 

52 

25 

forraula too coiiplex 

A2F0 40 

55 

4C 

41 

20 

54 

4F 

4F 



A2F8 20 

43 

4F 

40 

50 

4C 

45 

08 



A300 43 

41 

4E 

27 

54 

20 

43 

4F 

26 

can't centinue 

A308 4E 

54 

49 

4E 

55 

C5 

55 

4E 

27 

undef'd ftftction 

A310 44 

45 

46 

27 

44 

20 

46 

55 



A318 4E 

43 

54 

49 

4F 

CE 

56 

45 

28 

verify 

A320 S2 

49 

46 

09 

4C 

4F 

41 

C4 

29 

load 



t**1 

t**1 


k**«**B 


Adressen der Fehleriselduogen 

A328 9E 

AI 

AC 

AI 

85 

AI 

C2 AI 



A330 00 

AI 

E2 

AI 

FO 

AI 

FF 

Al 



A338 10 A2 2S A2 35 A2 3B A2 

A340 4F A2 5A A2 6A A2 72 A2 



A348 7F 

A2 

90 

A2 

90 

A2 AA A2 



A350 BA A2 

C8 A2 

05 

A2 

E4 

A2 



A358 ED 

A2 

00 A3 

DE 

A3 

IE 

A3 



A360 24 A3 83 

A3 








r**B 






t*** 

Meldungen des Interpreters 

A3£4 00 

4F 

4B 

00 





OK 

A368 00 

20 

20 

45 

52 

52 

4F 

52 

ERROR 

A370 00 

20 

49 4E 

20 

00 

OD 

OA 

IN 

A378 52 

45 

41 

44 

59 2E 

00 

OA 

READY. 

A380 00 

OO 

OA 42 

52 

45 

41 

4B 

BREAK 

A388 00 

AO 











»***«•4 




»*** 

Stapelsueh-Routine fdr 


FOR-NEKT- und GOSUB-Befehl 


Einsprung von $A808, SA749, SAD2B 


A38A 

BA 

TSX 

Stapelieiger in X-Register 

A38B 

e8 

INX 

4 mal erhöhen 

A38C 

E8 

INX 

(nächsten zwei Rücksprung- 

A380 

E8 

INX 

edressen, Interpreter urxl 
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A36E 

ES 



IHX 


A36F 

BO 

01 

01 

LOA 

tOIOl.X 

A392 

C9 

61 


CMP 

MSI 

A394 

00 

21 


BNE 

SA3B7 

A396 

A5 

4A 


LOA 

S4A 

A396 

00 

OA 


BNE 

SA3A4 

A39A 

BO 

02 

01 

LOA 

S0102,X 

A39D 

65 

49 


STA $49 

A39f 

BO 

03 

01 

LOA S0103,X 

A3A2 

65 

4A 


STA 

$4A 

A3A4 

00 

03 

01 

CMP 

S0103,X 

A3A7 

00 

07 


BNE 

SA3B0 

A3A9 

A5 

49 


LOA 

$49 

A3AB 

00 

02 

01 

CMP 

S0102,X 

A3AE 

FO 

07 


BEQ 

SA3B7 

A3B0 

SA 



TXA 


A3B1 

16 



CLC 


A362 

69 

12 


AOC 

M12 

A3B4 

AA 



TAX 


A3BS 

00 

06 


BNE 

SA36F 

A3B7 

60 



RTS 



Einsprung von tA749, SB1SD 

A386 20 06 A6 JSft SA4D6 

A3BB 65 31 STA S31 

A360 64 32 STY S32 

Einsprung von SB626 

A3BF 36 SEC 

A3C0 A5 5A LOA S5A 

A3C2 E5 5F SBC S5F 

A3C4 65 22 STA S22 

A3C6 A6 TAY 

A3C7 A5 5B LOA S5B 

A3C9 ES 60 SBC S60 

A3CB AA TAX 


Routine, übergehen) 
nächstes Byte holen 
Ist es FOR-Code ? 

Nein: dann RTS 
Variablenzeiger holen 
keine Variable (MEXT}:$A3A4 
Varlablenzelger aus 
Stapel nach $A9/4A 
(Variablenzeiger) 
holen 

Hit Zeiger in Stapel vergl. 
ungleich: nächste Schleife 
Zeiger wieder holen 
Mit Zeiger in Stapel vergl. 
Gleich: Schleife gefunden,RTS 
Suchzeiger in Akku 
Carry für Addition löschen 
Suchzeiger un 16 erhöhen 
und wieder zurück ins X-Rg. 
nächste Schleife prüfen 
Rücksprung 

Block-Verschiebe-RQutlne 


prüft auf Platz in Speicher 
Ende des Arraybereichs 
als Beginn für freien Platz 


Carry löschen (Subtraktion) 
Startadresse von Endad. des 
Bereichs abziehen (LOW) 
Ergebnis (»Länge) speichern 
Gleiches System für HIGH: 
Altes Blockende (HIGH) und 
davon alter Blockanfang sub 
Länge nach X bringen 
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A3CC 

ES 


INX 


A3CD 

9S 


TYA 


A3CE 

FO 

23 

BEQ 

SA3F3 

A3D0 

AS 

SA 

LOA 

tSA 

A302 

3S 


SEC 


A303 

ES 

22 

SBC 

S22 

A3D5 

SS 

SA 

STA 

SSA 

A307 

BO 

03 

BCS 

SA30C 

A309 

C6 

SB 

OEC 

S5B 

A30S 

3S 


SEC 


A30C 

AS 

SS 

LOA 

S56 

A30E 

ES 

22 

SBC 

S22 

A3E0 

SS 

58 

STA 

S5S 

A3E2 

BO 

08 

BCS 

SA3EC 

A3E4 

C6 

59 

OEC 

S59 

A3E6 

90 

06 

BCC 

SA3EC 

A3E8 

B1 

SA 

LOA 

($5A).Y 

A3EA 

91 

58 

STA 

(S58),Y 

A3EC 

SS 


OEY 


A3ED 

00 

F9 

BNE 

SA3E8 

A3EF 

B1 

SA 

LOA 

(S5A).Y 

A3F1 

91 

58 

STA 

(S58).Y 

A3F3 

C6 

SB 

DEC 

S5B 

A3F5 

C6 

59 

OEC 

S59 

A3F7 

CA 


OEX 


A3F6 

00 

F2 

BNE 

SA3EC 

A3FA 

60 


RTS 



Einsprung von SASBS ,SADAE 


A3FB 

OA 

ASL 

A3FC 

69 3E 

AOC M3E 

A3FE 

BO 35 

BCS SA635 

A600 

SS 22 

STA S22 

A602 

BA 

TSX 

A603 

E6 22 

CPX S22 


Ist ein Rest ( Länge nicht 
256 Bytes)? 

Nein: dann nur ganze Blöcke 
Alte Endadresse (LOW) und 
davon Länge des Restab¬ 
schnitts subtrahieren ergibt 
Adresse des 
Restabschnitts 
Berechnung für HIGK inigehen 
Dasselbe System für HIGH 
Carry setzen (Subtraktion) 
Alte Endadresse (HIGH) und 
davon Länge des Rests sub¬ 
trahieren ergibt neue Adresse 
Unbedingter Sprung zur 
Kopierroutine für ganze 
Blöcke 

Kopierroutine für Rest- 

abschnitt 

Zähler vermindern 

Alles? wenn nicht: weiter 

Kopierroutine für ganze 

Blöcke 

Adresszähler vermindern 
Adresszähler vermindern 
Zähler vermindern 
Alles? Wenn nicht: weiter 
sonst Rücksprung 

Prüfung auf Platz im Stapel 


Akku muß die halbe Zahl an 
erforderlichem Platz haben 
gibt 'OUT OF MEMOtlY' 

Wert merken 

Ist Stapelzeiger kleiner 
(2 • Akku 4^ 62)? 
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A405 90 2E BCC M435 Wenn ja, dam CXJT QF MEMORY 

A407 60 RTS Rücksprung 

••••••••••••••••••••••••••••• Schafft Platt Im Speicher 

Einsprung von SA3M, SB264, SB2B9, SE426 


A40a 

C4 34 

CPY 

S34 

A40A 

90 28 

BCC 

SA434 

A40C 

DO 04 

BHE 

SA412 

A40E 

CS n 

CHP 

S33 

A410 

90 22 

BCC 

SA434 

A412 

48 

PHA 


A413 

A2 09 

LDX 

no9 

A415 

98 

TYA 


A416 

48 

PNA 


A417 

BS 57 

LDA 

157,X 

A419 

CA 

DEX 


A41A 

10 FA 

BPL 

SA416 

A41C 

20 26 B5 

JSR 

$B526 

A41F 

A2 F7 

LDX 

#$F7 

A421 

68 

PLA 


A422 

95 61 

STA 

$61,X 

A424 

E8 

INX 


A425 

30 FA 

BMI 

$A421 

A427 

68 

PLA 


A428 

A8 

TAY 


A429 

68 

PLA 


A42A 

C4 34 

CPY 

$34 

A42C 

90 06 

BCC 

$A434 

A42E 

DO 05 

BNE 

$A435 

A43D 

CS 33 

Od» 

$33 

A432 

BO 01 

BCS 

SA435 

A434 

60 

RTS 



Einsprung von SB30B 
A435 A2 10 LDX #S10 


für Zei leneinfiigmg 
und Variablen 
A/Y s Adresse, bis zu der 
Platz benötigt wird. 

Kleiner als Stringzeiger 
Akku Zwischenspeichern 
Zihler setzen 
Y-Register auf 
Stapel retten 
Ab S57 Zwischenspeichern 
Zähler vermindern 
Alle? sonst weiter 
Oarbege Collection 
Zihler setzen, un 
Akku, T-Register und aridere 
Register zurückholen 
Zihler vermindern 
Fertig? Nein, dann weiter 
Y'Register von Stapel 
zurückbolen 
Akku holen 

Ist jetzt genügend Platz? 
Ja, dann Rücksprung 
kein Platz, dann Fehler¬ 
meldung ' out of nenory ' 
ausgeben 
Rücksprung 


FehlerntjiMer 'out of «emory 
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••••••••••••••••••••••»»••• Fehlereimprung 

Einsprung von SA573, SA85F, SA0E5, SAB68, SAD32, SAD9B 
SAFOA, SB24A, SB3B0, SB402, SB65A, SB980, SBBSc, SE109 
SE19E 

A437 6C 00 03 JHP (S0300) Zum BASIC-WarmtArt (SE38B} 

.•••••••••••••••••••*»»•••• Fehlermeldung tusgeben 


Einsprung von SE3SE 


A43A 

8A 

TXA 

FehlerniMser im X-Register 

A43B 

OA 

ASL 

Akku * 2 

A43C 

AA 

TAX 

Akku als Zeiger nach X 

A43D 

BD 26 A3 

LOA SA326.X 

ind Adresse der 

A440 

85 22 

STA S22 

Fehlerntjnner aus Tabelle 

A442 

BO 27 A3 

UM SA327,X 

holen ifxi 

A445 

85 23 

STA S23 

abspeichern 

A447 

20 CC FF 

JSR SFFCC 

I/O Kanäle zurücksetzen 

A44A 

A9 00 

LOA MOO 

und Eingabekanal auf 

A44C 

85 13 

STA S13 

Tastatur setzen 

A44E 

20 D7 AA 

JSR SAA07 

<CR} und (LF) ausgeben 

A451 

20 45 AB 

JSR SAB45 

■7' ausgeben 

A454 

AO 00 

LOT «SOO 

Zeiger setzen 

A456 

Bl 22 

LOA (S22l,Y Fehlermeldiitgstext holen 

A458 

48 

PHA 

Akku retten 

A459 

29 7F 

AND in7F 

Bit 7 löschen und 

A45B 

20 47 AB 

JSR SAB47 

Fehlermeldung ausgeben 

A45E 

C8 

IHY 

Zähler vermindern 

A45F 

68 

PLA 

Akku zurückholen 

A460 

10 F4 

BPL SA456 

Fertig? Nein, dann weiter 

A462 

20 7A A6 

JSR SA67A 

BASIC-Zeiger initialisieren 

A465 

A9 69 

UM #$69 

Zeiger A/Y auf Error* 

A467 

AO A3 

LOY «$A3 

melduna stellen 


Einsprung von BA851 


A489 20 IE AB J8R SAB1E String ausgeben 
A46C A4 3A LOY S3A Auf Progrannodus 






A46E C8 IHY (prog/di rekt) prüfen 

A46F FO 03 BEO tA474 Direkt: dim eusgeben 

A471 20 C2 BD JSR SfiOC2 'in Zeil«kuiiKr> auegeben 


Einsprung von SE391 


A474 

A9 76 

LOA «76 

Zeiger auf Readv-Nodus 

A476 

AD A3 

LOY ms 

setzen und 

A478 

20 iE AB 

JSR SABlE 

String ausgeben 

MTB 

A9 80 

LDA «80 

Uert fOr Direktsodus laden 

A47D 

20 90 FF 

JSR SFF90 

und Flag setzen 


••••••••••••••••••••••••••••* Eingsbe-Warteschleife 


EinspriJ^g von SA530 

A4S0 6C 02 03 .MP <30302) JMP SM83 
Einsprung von iA480 


M83 

20 60 AS 

JSR SA560 

A486 

06 7A 

STX 17A 

A4a& 

84 7B 

STY STB 

A4eA 

20 73 00 

JSR t0073 

4480 

AA 

TAX 

A48E 

FO FO 

BEQ SMSO 

A490 

A2 fr 

LOX «FF 

A492 

06 3A 

STX S3A 

A494 

90 06 

BCC SM9C 

A496 

20 79 AS 

JSR tAS79 

A499 

4C El A7 

JNP SATEI 

A49C 

20 6B A9 

JSR M96S 

A49F 

20 79 AS 

JSR SAS79 

A4A2 

84 OB 

STY SOB 

A4A4 

20 13 A6 

JSR SA613 

A4A7 

90 44 

BCC SA4ED 


BASIC-Zeile nach 
Eingabepuffer 
CHRCET Zeiger auf 
Eingebepuffer 
nBchstes Zeichen holen 
Puffer leer? 

Ja: denn weiter warten 
Wert für 

Kennzeichen für Oirektmodus 
Ziffer? als Zeile einfügen 
BASiC-Zeile in Code wandeln 
Befehl ausführen 

Löschen und Einfügen von 
Prograoezei len 
Zeilenr. nach Adressformat 
BASiC-Zeile in Code wandeln 
Zeiger in Eingabepuffer 
Zeilenadresse berechnen 
Vorhanden? Ja: löschen 
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•••••••«••••••••••••••••••••• ProgrMnzeile löschen 


A6A9 

AO 

01 

LOY «SOI 

Zeiger setzen 

A6AB 

B1 

SP 

LOA ($SF).r 

Startadresse der nächsten 

A&AD 

SS 

23 

STA $23 

Zeile (HIGH) setzen 

AAAF 

AS 

20 

LOA S2D 

Variablänanfangszeiger 

A&B1 

8S 

22 

STA $22 

CLOU) setzen 

A4B3 

AS 

60 

LOA $60 

Startadresse der zu 

A4B5 

8S 

2S 

STA $2S 

löschenden Zeile (HIGH) 

A4B7 

AS 

SP 

LOA SSF 

Startadresse der zu 

A4B9 

88 


DEY 

löschenden Zeile (LOW) 

A4BA 

F1 

SP 

SBC ($SP},y 

Startadresse der nächsten 

A4BC 

18 


CLC 

Zeile (LOW) 

A4BD 

6S 

2D 

ADC $20 

Variablenanfangszeiger (LOW) 

A4BF 

8S 

20 

STA $20 

ergibt neuen Variabienen¬ 

A4C1 

8S 

24 

STA $24 

fangszeiger (LOW) 

A4C3 

AS 

2E 

lOA S2E 

Gleiches Systen für 

A4CS 

69 

FF 

ADC «SFF 

HIGH-Byte des Variablenan¬ 

A4C7 

8S 

2E 

STA S2E 

fangszeigers 

A4C9 

ES 

60 

SBC $60 

minus Startadresse der zu 

A4CB 

AA 


TAX 

löschenden Zeile (LOW) ergibt 

A4CC 

38 


SEC 

die zu verschiebenden Blöcke 

A4CD 

AS 

SP 

LDA SSF 

Startadresse (LOW) minus 

A4CF 

ES 

2D 

SBC $20 

Variablenanfangszeiger (LOW) 

A401 

A8 


TAY 

ergibt Länge des Restabschn. 

A4D2 

BO 

03 

BCS $A407 

GröBer als 255? Nein: $A407 

A4D4 

E8 


IHX 

Zähler für Blöcke erhöhen 

A4DS 

C6 

2S 

DEC S2S 

Transportzeiger vermindern 

A4D7 

18 


CLC 

Carry löschen 

A408 

6S 

22 

ADC $22 

Anfangszeiger (LOW) 

A4DA 

90 

03 

BCC $A4DF 

Verminderung überspringen 

A4DC 

C6 

23 

DEC $23 

Zeiger un 1 vermindern 

A4DE 

t8 


CLC 

Carry löschen 

A40F 

Bl 

22 

LOA ($22),Y 

Verschiebeschleife 

A4E1 

91 

24 

STA ($24),Y Wert abspefchern 

A4E3 

C8 


INY 

Zihler un 1 erhöhen 

A4E4 

DO 

F9 

BNE $A40F 

Block fertig? Nein: weiter 

A4E6 

E6 

23 

INC $23 

1.AdreBzeiger erhöhen (LOW) 

A4E8 

E6 

2S 

INC S2S 

Z.Adreßzeiger erhöhen (LOW) 
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A4EA CA DEX 

A4EB DO F2 INE U4DF 


****•••••*****•«••****««•«** 


A4ED 

20 

59 A6 

JSR 

•A659 

A4F0 

20 

33 AS 

JSR 

SAS33 

A4F3 

AD 

00 02 

IDA 

•0200 

A4F6 

fo 

88 

BEQ 

tA480 

A.4rs 

18 


CLC 


A4F9 

A5 

2D 

LOA 

•20 

A4FB 

SS 

5A 

STA 

•SA 

A4FD 

65 

DB 

ADC 

•OB 

A4FF 

85 

58 

STA 

•58 

AS01 

A4 

2E 

LDY 

S2E 

A503 

84 

SB 

STY 

•SB 

ASOS 

90 

01 

BCC 

SAS08 

A507 

ce 


INY 


A5DS 

84 

59 

STY 

•S9 

A50A 

20 

B8 A3 

JSR 

SA3B8 

A500 

A5 

14 

LOA 

• 14 

A50F 

A4 

15 

LDY 

•15 

A511 

80 

FE 01 

STA 

•01FE 

A5U 

8C 

FF 01 

STY 

SOtFF 

A517 

A5 

31 

LDA 

•31 

A519 

A4 

32 

LDY 

•32 

A51B 

85 

2D 

STA 

S2D 

A51D 

84 

2E 

STY 

•2E 

A51F 

A4 

DB 

LOY 

•OB 

A521 

88 


DEY 


A522 

B9 

FC Ol 

LDA 

•01FC, 

ASZS 

91 

5F 

STA 

(S5F), 

A527 

8B 


DEV 


A528 

10 

F8 

BPL 

tA522 

Einspneig 

von SE1B2 


A52A 

20 

59 A6 

JSR 

•A659 

A52D 

20 

33 AS 

JSR 

tAS33 

A530 

4C 

80 A4 

JHP 

tA480 


Blockzähler un 1 verieindern 
Alle Blöcke? Hein: Meiter 

Programnzefle einfugen 
CLR-Befehl 

Programueilen neu binden 
Zeichen {n Puffer ? 
nein, dann zur Warteschleife 
Carry Löschen 

Variablenanfangszeiger (lOV) 
als Endedresse (OiwUbereich) 
* Länge der Zeile als End¬ 
adresse des Zielbereichs LOU 
Variablenanfangszeiger als 
Endadr. des Quellbereichs lOU 
Kein Übertrag? dann SA508 
Übertrag addieren 
Als Endadresse 
des Zielbereichs 
BASIC'Zeilen verschieben 
ZeiLennuRWier aus 
•14/15 vor 

BASIC-Eingabepuffer setzen 

(Sb iOZOO) 

Neuer Variablen¬ 
endzeiger 

als Zeiger auf Progrann- 
ende speichern 
Zei lenlänge holen 
und iM 1 vernindern 
Zeile aus Eing^i^uffer 
ins Programa kopieren 
Schon eile Zeichen? 

Nein: dann weiterkopieren 


CLft-Befeill 

Prograirmzei len neu binden 
zur Eingabe'Hsrteschleife 
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BAStC'Zeilen neu binden 


Einsprung von SA&FO, SAS2D, SElBS 


A533 

AS 

2B 

LOA 

$2B 

A535 

A4 

2C 

LOY 

t2C 

A537 

65 

22 

STA 

S22 

A539 

64 

23 

STY 

123 

A53B 

16 


CLC 


A53C 

AO 

01 

LOY 

«SOI 

ASSE 

Bl 

22 

LOA 

(S22),Y 

AS40 

FO 

10 

BEO 

SA55F 

A542 

AO 

04 

LOY 

IK04 

A544 

C6 


INY 


A545 

Bl 

22 

LOA 

(t22),Y 

A547 

OO 

FB 

BNE 

SA544 

A549 

C6 


INY 


A54A 

96 


TYA 


AS4B 

65 

22 

AOC 

S22 

A54D 

AA 


TAX 


A54E 

AO 

OO 

LOY 

MOO 

A550 

91 

22 

STA 

($22),Y 

A5S2 

A5 

23 

LOA 

S23 

A5S4 

69 

00 

AOC 

#S00 

A556 

C6 


INY 


A557 

91 

22 

STA 

(S22),Y 

A559 

66 

22 

STX 

S22 

A55B 

65 

23 

STA 

$23 

A55D 

90 

PO 

BCC 

$A53C 

AS5F 

60 


RTS 



Zeiger auf BASIC-Program- 

start holen und 
und als Suchzeiger nach 
S22/23 speichern 
Carry löschen 
Zeiger laden 
Zeilenadresse holen 
»D7 Je: dann RTS 
Zeiger auf erstes BASIC* 
Zeichen setzen 
Zeichen holen 

=0? (Zeilertende) nein: weiter 
Zeilenlange nach 
Akku schieben 

* Zeiger auf aktuelle Zeile 
(LCUl ins X'Register 
Zeiger laden 

Akku als Adr.Zeiger (LOW) 
Zeiger auf aktuelle 
Zeile (HIGH) 

Übertrag addieren 
Zähler i« 1 erhöhen 
Adresszeiger (HIGH) speichern 
Startadresse der nächsten 
Zeile abspeiehern 
Zum Zeflenanfang 
Rücksprung 


Eingabe einer Zeile 


Einsprung von SA663, tAC03 

A560 A2 00 LOX #S00 Zeiger setzen 

AS62 20 12 El JSR SE112 ein Zeichen holen 
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AS65 

C9 OO 

CMP «SOO 

RETURN-Taste ? 

A5Ö7 

FO W 

BEO SA576 

ja, dann Eingabe beenden 

A569 

9D 00 02 

STA S0200,X 

Zeichen nech Eingabeptjffer 

AS6C 

ES 

INX 

Zeiger tn 1 erhöhen 

AS60 

EO 59 

CPX «$59 

69. Zeichen ? 

A56F 

90 Fl 

BCC SAS62 

nein, weitere Zeichen holen 

A571 

A2 17 

LDX «$17 

Numier für 'string too tong' 

A573 

4C 37 A4 

JHP SA437 

Fehlermeldung ausgeben 

A576 

4C CA AA 

JHP SAACA 

Puffer mit $0 abschlieSen, CR 


UHHandlunS einer Zeile in den 
Interpreter-Code 


Einsprung von SA496, SA49F 


A579 

6C 

04 

03 

JHP ($0304) 

JHP SA57C 

Einsprung 

von $A579 


A57C 

A6 

7A 


LDX $7A 

Zeiger setzen, erstes Zeichen 

A57E 

AO 

04 


LOY «$04 

Wert für codierte Zeile 

A560 

64 

OF 


STY SOF 

Flag für Hochkonie 

A562 

BO 

00 

02 

LOA $0200,X Zeichen aus Puffer holen 

A585 

10 

07 


BPL SA58E 

kein BASIC-Code ? kleiner 128 

A567 

C9 

FF 


CMP «SFF 

Code für Pi ? 

A569 

FO 

3E 


BEO SASC9 

Ja: dann speichern 

AS8S 

e6 



INX 

Zeiger erhöhen 

A56C 

00 

F4 


BNE SA562 

nächstes Zeichen überprüfen 

A58E 

C9 

20 


CHP #$20 

' ' Leerzeichen? 

A590 

FO 

37 


BEO SASC9 

Ja: dann speichern 

A592 

65 

06 


STA $08 

in Hochkonw-Flag speichern 

A594 

C9 

22 


CHP «$22 

"" Hochkonna? 

A596 

FO 

56 


BEO SA5EE 

Ja: dann speichern 

A598 

24 

OF 


BIT SOF 

überprüft auf Bit 6 

A59A 

70 

2D 


BVS SA5C9 

gesetzt: ASCII speichern 

A59C 

C9 

3F 


CHP #$3F 

'?' Fragezeichen? 

A59E 

00 

04 


BNE SA5A4 

Nein: dann weiter prüfen 

A5A0 

A9 

99 


LOA #$99 

PRIHT-Code für ? laden 

A5A2 

00 

25 


BNE SA5C9 

und abspeichern 

A5A4 

C9 

30 


CHP #$30 

Kleiner $30 ? (Code für 0) 
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ASM 

90 

06 


SCC 

SASAC 

J«: dann $ASAC 

A5AS 

C9 

3C 


CMP 

«S3C 

Mit $3C vergleichen 

ASAA 

90 

10 


BCC 

SASC9 

wem gröBer, dann $ASC9 

A5AC 

86 

71 


STY 

S71 

Zeiger Zwischenspeichern 

ASAE 

AO 

00 


LOY 

#soo 

Zähler für Tokentabelle 

ASBO 

86 

OB 


STY 

SOS 

initialisieren 

A5B2 

88 



DEY 



A5a3 

86 

7A 


STX 

S7A 

Zeiger auf Eingabe^ffer 

A5B5 

CA 



DEX 


Zwischenspeichern 

ASM 

C8 



IMY 


X- und V-Register 

A5B7 

E8 



INX 


in 1 erhöhen 

ASB8 

BO 

00 

02 

LOA 

S0200,X 

Zeichen aus Puffer laden 

A5BB 

38 



SEC 


Carry für Subtr. löschen 

A5BC 

F9 

9e AO 

SBC 

U09E.Y 

Zeichen mit Befehlswort vergleichen 

A5BF 

FO 

FS 


BEO 

SA5B6 

Gefuiden? ja: nächstes Zeich. 

A5C1 

C9 

80 


CUP 

fS80 

mit $80 (128) vergleichen 

A5C3 

00 

30 


BNE 

SASFS 

Befehl nicht gefunden: $ASFS 

ASC5 

OS 

OB 


ORA 

SOB 

BAStC'Cede gleich Zähler «fSO 

A5C7 

A6 

71 


LOY 

171 

Zeiger auf cod. Zeile holen 

ASC9 

E8 



IHX 



A5CA 

C8 



IMY 


Zeiger erhölien 

A5CB 

99 

FB 

01 

STA 

SOIFB.Y 

BAStC'Code speichern 

A5CE 

89 

FB 

01 

LOA 

S01FB.Y 

ind Statusregister setzen 

A501 

FO 

36 


BEO 

SA609 

*0 (Ende): dam fertig 

A5D3 

38 



SEC 


Carry setzen (Subtraktion) 

A506 

E9 

3A 


SBC 

«S3A 

':' Trennzeichen? 

AS06 

FO 

06 


BEO 

SASOC 

Ja: dann SASOC 

ASD6 

C9 

69 


CMP 

#S69 

OATA-COde ? 

A50A 

00 

02 


BME 

SASDE 

Nein: Speichern CN9«rs|»'i<^eft 

A5DC 

8S 

OF 


STA 

SOF 

nach Hochkonma'Flag speichern 

ASDE 

38 



SEC 


Carry setzen 

A50F 

E9 

SS 


SBC 

*$ss 

REM-Code ? 

A5E1 

00 

9F 


BNE 

SA582 

Nein: zun Schleifenanfang 

A5E3 

8S 

08 


STA 

$08 

0 in Hochkomna-Flag 

A5E5 

BO 

00 

02 

LOA 

$0200.X 

nächstes Zeichen holen 

ASES 

FO 

DF 


BEO 

$ASC9 

■0 (Ende)? Ja: dann SASC9 

A5EA 

CS 

OS 


CMP 

$08 

Als ASCII speichern? 

ASEC 

FO 

OB 


BEQ 

SASC9 

Nein: dann SA5C9 

A5EE 

C8 



INY 


Zeiger erhöhen 

ASEF 

99 

FB 01 

STA 

$01FB,r 

Code abspeichern 
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A5F2 

ES 



INX 


A5F3 

DO 

FO 


BNE 

SA5E5 

A5F5 

A6 

7A 


LOX 

S7A 

«F7 

E6 

OB 


JNC 

SOB 

ASF9 

CS 



IN? 


A5FA 

B9 

90 

AO 

LDA 

SA09O,Y 

A5FD 

10 

FA 


BPL 

SA5F9 

A5FF 

B9 

9E 

AO 

LOA 

SA09E.Y 

Aä02 

00 

B6 


BNE 

SA5B6 

AS04 

BO 

00 

02 

LOA 

$0200,X 

A607 

10 

BE 


BPL 

SA5C7 

A609 

99 

FD 

01 

STA 

S01F0.Y 

AÖOC 

C6 

78 


OEC 

STB 

A60E 

A9 

FF 


LOA 

IFSFF 

A610 

65 

7A 


STA 

S7A 

A612 

60 



RTS 





Einsprung von 

SAGA4, SA6A7 

A613 

AS 2B 

LOA 

S2B 

A615 

A6 2C 

LOX 

$2C 

Einaprung von 

SA8C0 


A617 

AO 01 

LOY 

#$01 

A619 

65 5F 

STA 

S5F 

AÖ1B 

66 60 

STX 

$60 

A610 

S1 5F 

LOA 

(tSfl.Y 

A61F 

FO 1F 

BEQ 

$A640 

A621 

CS 

INY 


A622 

C8 

INY 


A623 

A5 15 

LOA 

$15 

A625 

01 5F 

CHP 

($5F).Y 

A627 

90 16 

BCC 

$A641 

A629 

FO 03 

8E0 

$A62E 

A62B 

68 

DEY 


A62C 

00 09 

BNE 

$A637 


Zeiger erhöhen 
Zun Schleifenanfsng 
Zeiger wieder auf Eingabep. 
Suchzähler erhöhen 
Zähler erhöhen 
nächsten Befehl suchen 
Gefunden? Nein: weitersuchen 
Ende der Tabel Le? 

Nein: dann weiter 
nächstes Zeichen helen 
kleiner SSO? Ja: SA5C7 
in Eingabepuffer speichern 
CHRGET-Zeiger zurücksetzen 
Zeiger auf Eingabepuffer -1 
setzen (LW} 

Rückspruig 

Startadresse einer 
Progrannseile berechnen 


Zeiger auf BASIC- 
Progranestart ladan 


Zähler setzen 
BASIC-Progratmstart als 
Zeiger nach SSF/6Q 
Link-Adresse holen CHI6H) 
gleich null: dann Ende 
Zähler 2 sial erhöhen < LOU* 
Byte übergehen} 
gesuchte Zei lerwmer (HIGH) 
mit aktueller vergleichen 
kleiner: dann nicht gefunden 
gleich: Nunner LOU prüfen 
Zähler um 1 vermindern 
unbedingter Sprung 
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A62E 

A5 14 

LOA 

t14 

A630 

88 

OEY 


A631 

01 SF 

CHP 

(*5F),Y 

A633 

90 OC 

BCC 

SA641 

A63S 

FO OA 

BEQ 

SA641 

A637 

88 

DEY 


A63e 

Bl SF 

LOA 

{»5F).Y 

A63A 

AA 

TAX 


A63B 

88 

OEY 


A63C 

Bl SF 

LOA 

(»5F).Y 

A63E 

BO 07 

6CS 

SA617 

A640 

18 

CLC 


A641 

60 

RTS 






A642 

00 FD 

BNE 

SA641 


Einsprung von SE444 


A644 

A9 

00 

LOA 

MOO 

A646 

A8 


TAY 


A647 

91 

2B 

STA 

(*2B).Y 

A649 

CS 


INY 


A64A 

91 

2B 

STA 

(t2B).Y 

A64C 

AS 

2B 

LOA 

S2B 

A64E 

18 


ClC 


A64F 

69 

02 

ADC 

«S02 

A6S1 

85 

20 

STA 

S20 

A653 

AS 

2C 

LOA 

S2C 

A6SS 

69 

00 

ADC 

noo 

A6S7 

8S 

2E 

STA 

S2E 


gesuchte Zeilemisinier (LOU) 
Zeiger Ln 1 vermindern 
ZeilennLimer LOU vergleichen 
kleiner: Zeile nicht gefunden 
oder gleich: Cs1 und RTS 
Y-Register auf 1 setzen 
Adresse der nächsten Zeile 
in das X-Register laden 
Register vermindern (auf 0) 
Link-Adresse holen (LOU) 
weiter suchen 
Carry löschen 
Rücksprung 

BASIC-Befehl NEU 

Kein Trennzeichen: SYNTAX 

ERROR 


Nullcode laden 
und als Zähler ins Y-Reg. 
Nullcode an Progrmnnanfang 
Zähler erhöhen 
noch einen Nullcode dahinter 
Zeiger auf Progrannst. (LOU) 
Carry löschen 
Progranmtart + 2 ergibt 
neuen Variablenstart (LOU) 
Zeiger auf Progrannst. (HIGH) 
* Übertrag ergibt neuen 
Variablenstart (HIGH) 


CHRGET, Routine neu setzen 
Zero-Flag für CLR s 1 setzen 


Einsprung von SA4ED, SAS2A. SA67A 

A6S9 20 SE A6 JSR SA68E 
A6SC A9 00 LOA MOO 
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A65e 

00 

20 

BNE 

$A68D 

Eirisprung 

von 

SA87D 


A660 

20 

E7 1 

’F JSR 

$FFE7 

Efnsprung 

von 

SEIOI 


A663 

16 

37 

LOA 

S37 

A66S 

A4 

38 

LOY 

S38 

A667 

8S 

33 

STA 

S33 

AM9 

64 

34 

STY 

S34 

A66B 

AS 

20 

LOA 

S20 

AÖ60 

A4 

2E 

LOY 

t2E 

A66F 

8S 

2F 

STA 

S2F 

A671 

84 

30 

STY 

S30 

AB73 

8S 

31 

STA 

S31 

A67S 

84 

32 

STY 

S32 

Einsprung 

von 

SEIBB 


A677 

20 

10 AS JSft 

SA81D 

Einsprung 

von 

SA462, tE3S2 


A67A 

A2 

19 

LDX #$19 

A67C 

86 

16 

STX $16 

A67E 

66 


PLA 

A67F 

AS 


TAY 

A680 

68 


PLA 

A681 

A2 

FA 

LDX #SFA 

A683 

9A 


TXS 

A684 

48 


PKA 

A685 

9S 


TYA 

A686 

48 


PMA 

A687 

A9 

00 

LOA #SOO 

A689 

SS 

3E 

STA S3E 


BASIC-Befehl CLR 

Kein Tretvizeichen: SYNTAK 

£MKIR 


alle 1/0 Kanäle zurücksetzen 


Zeiger auf BASIC-RAM-Ende 
(LOU/HtGH) laden 
String-Stert auf BASIC- 
RAN-Ende setzen 
Zeiger auf Variablen¬ 
stert Laden 
und in Arrav-Anfangs- 
zeiger setzen 
md in Zeiger auf Array- 
Ende speichern 


RESroRE-Befehl 


Wert laden und String- 
Oescriptor-lndex zurücksetzen 
2 Bytes von Stapel in das 
Y'Register und den 
Akku holen 
Wert laden und damit 
Stapelzeiger initialisieren 
2 Bytes aus dem Y-Register 
und den Akku wieder auf 
den Stapel schieben 
Uert laden md damit 
CONT sperren 
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A68e 8S 10 STA S10 

A680 60 RTS 


Einsprung von SA6S9, $E1BS 


A68E 

18 


CLC 

A6Sf 

AS 

2B 

LOA S2B 

A691 

69 

FF 

AOC MFF 

A693 

8S 

7A 

STA S7A 

A69S 

16 

ZC 

LOA S2C 

A697 

69 

FF 

ADC «SFF 

A699 

8S 

n 

STA STB 

A69B 

60 


RTS 


A69C 

90 

06 


BCC 

SA6A4 

A69E 

FO 

04 


BEQ 

SA6A4 

A6A0 

C9 

AB 


CFP 

«SAB 

A6A2 

00 

E9 


BNE 

SA680 

A6A4 

zo 

6B 

A9 

JSR 

SA96B 

A6A7 

zo 

13 

A6 

JSR 

SA613 

A6AA 

20 

79 

00 

JSR 

S0079 

A6A0 

FO 

OC 


BEQ 

M6BB 

A6AF 

C9 

AB 


CMP 

«SAB 

A6B1 

00 

8E 


BNE 

SA641 

A6B3 

20 

73 

n 

JSR 

S0073 

A6B6 

20 

6B 

A9 

JSR 

SA96B 

A6B9 

OO 

86 


BNE 

SA641 

A6BB 

68 



PLA 


A6BC 

68 



PLA 


A6BD 

AS 

14 


LOA 

S14 

A6BF 

05 

IS 


ORA 

SIS 

A6C1 

00 

06 


BNE 

SA6C9 

A6C3 

A9 

FF 


LOA 

«SFF 

A6CS 

8S 

14 


STA 

S14 

A6C7 

8S 

IS 


STA 

SIS 

A6C9 

AO 

01 


LOY 

«S01 


und in FN-Flsg speichern 
Rücksprung 

Progratmzeiger auf 
BASIC-Start 


Carry löschen (Addition) 

Zeiger auf Programetart (LGU) 
Minus 1 ergibt 
neuen ChRGET-Zeiger CLOU) 
Prograanstart (HIGH) 
minus 1 ergibt 
CHRCET-Zeiger (HIGH) 

Rücksprung 

BASIC Befehl LIST 
Ziffer ? (ZeilemiMer) 
nur LIST ? 

CcxJe für 

anderer Code, dann SYNTAX ERR 
ZeilennLimer holen 
Startadresse berechnen 
CHRGOT letztes Zeichen holen 
keine Zeilennuiner 
Code für '-‘7 
nein: SYNTAX ERROR 
CHRGET nächstes Zeichen holen 
ZeilennLimer holen 
kein Trennzeichen: SYNTAX ERR 
2 Bytes von Stapel holen 
(Rücksprungadresse übergehen) 
zueite 2ei lennuwuer laden 
gleich null ? 

Nein: SA6C9 
Wert laden und 
zueite Zeilennumer Haximel- 
uert SFFFF (6SS3S) 

Zeiger setzen 
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A6CB 

84 OF 

STY *0F 

und Quote-Modus sbschslten 

A6CD 

Bl SF 

LOA (SSFI.Y 

Linkadresse HIGH holen 

A6CF 

FO 43 

BEQ SA714 

Ja: dann fertig 

A601 

20 2C A8 

JSR SA82C 

prüft auf Stop-Taste 

A6D4 

20 07 AA 

JSR SAA07 

'CR' ausgeben, neue Zeile 

A607 

CS 

INY 

Zeiger erhöhen 

A608 

Bl SF 

LOA (t5F),Y Zeilensdresse holen CLOU) 

A60A 

AA 

TAX 

und in das X-Reg. schieben 

A60B 

C8 

IHT 

Zeiger erhöhen 

A60C 

B1 SF 

LOA (>5F),Y Zeilensdresse holen (HIGH) 

A60E 

CS 15 

CNP SIS 

mit EndnoHner vergleichen 

A6E0 

DO 04 

BNE SA6e6 

Gleich? Nein; SA6E6 

A6E2 

E4 14 

CPX S14 

LCM-Nuimer vergleichen 

A6E4 

FO 02 

BEQ SA6E8 

Gleich? Ja: SA6E8 

A6£6 

BO 2C 

BCS $A714 

GröBer: dann fertig 

A6E8 

84 49 

STY S49 

Y-Reg. Zwischenspeichern 

A6EA 

20 CD BD 

JSR SBDCD 

Zeilennnmner ausgeben 

A6E0 

A9 20 

LOA «$20 

' ' Leerzeichen 

A6EF 

A4 49 

LOY S49 

Y-Reg. wiederholen 

A6F1 

29 7F 

AND «S7F 

Bit 7 löschen 

A6F3 

20 47 AB 

JSR SAB47 

Zeichen ausgeben 

A6F6 

C9 22 

CHP »S22 

"" Hochkonna ? 

A6F8 

DO 06 

BNE SA700 

Hein: SA700 

A6FA 

AS OF 

LOA SOF 

Hochkonna-Flag laden, 

A6FC 

49 FF 

EOR «SFF 

indrehen (HOT) 

A6FE 

BS OF 

STA SOF 

und wieder abspeichern 

A700 

C8 

INY 

Zeilenende nach 255 Zeichen ? 

A701 

FO 11 

BEQ SA714 

Hein: denn aufhören 

A703 

Bl SF 

LOA (S5F).Y 

Zeichen holen 

A70S 

00 10 

BNE SA717 

kein Zeilenende, dann listen 

A707 

A8 

TAY 

Akku als Zeiger nach Y 

A708 

B1 SF 

LOA (S5F).Y 

Startadresse der nächsten 

A70A 

AA 

TAX 

Zeile holen (LOU) und nach X 

A70B 

C8 

INY 

Zeiger erhöhen 

A70C 

Bl SF 

LOA (SSF).Y Adresse der Zeile (HIGH) 

A70E 

86 SF 

STX S5F 

als Zeiger merken 

A710 

85 60 

STA S60 

(speichern nach S5F/60) und 

A712 

00 BS 

BNE SA6C9 

weiternachen 

A71« 

4C 86 E3 

JHP SE386 

ZiAn BASIC-Warmstart 
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BASIC-Cedc <n ICIarteKt 
UMundlen 

A717 6C 06 03 JMP (t0306) JHP >A71A 
Einsprung von tA717 


A71A 

10 

07 

BPL 

A6F3 

A71C 

C9 

FF 

CMP 

«SFF 

A71E 

FO 

03 

BEQ 

A6F3 

A720 

24 

OF 

BIT 

OF 

A722 

30 

CF 

BMI 

A6F3 

A724 

38 


SEC 


A725 

e9 

7F 

SBC 

0t7f 

A727 

AA 


TAX 


A728 

84 

49 

STY 

S49 

A72A 

AO 

FF 

LOY 

«SFF 

A72C 

CA 


DEX 


A72D 

FO 

08 

BEQ 

BA737 

A72F 

C8 


IHY 


A730 

B9 

9E AO 

LOA 

SA09E,Y 

A733 

10 

FA 

BPL 

SA72F 

A735 

30 

FS 

BHI 

$A72C 

A737 

C8 


INY 


A73e 

B9 

9E AO 

LOA 

SA09E,Y 

A73B 

30 

B2 

BHI 

SA6EF 

A73D 

20 

47 AB 

JSR 

SAB47 

A740 

00 

F5 

BNE 

SA737 

A742 

A9 

80 

LDA 

l»80 

A744 

85 

10 

STA 

tio 

A746 

20 

AS A9 

JSR 

SA9A5 

A749 

20 

BA A3 

JSR 

SA3BA 

A74C 

00 

05 

BNE 

SA753 

A74E 

6A 


TXA 


A74F 

69 

OF 

AOe 

MOF 

A751 

AA 


TAX 


A7S2 

9A 


TXS 


A7S3 

68 


PLA 


A7S4 

68 


PLA 



kein Intcrpretercodeiousgeben 
Code für Pi? 

Ja: so ausgeben 
HochkumtMoOus ? 
dam Zeichen so ausgeben 
Carry setzen (Subtraktion) 
Offset abziehen 
Code nach K 
Zeichenzeiger merken 
Zeiger auf Befehlstabelle 
erstes Befehlswort? 

Ja: ausgeben 

Zeiger erhöhen 

Offset für X’tes Befehlswort 

alle Zeichen bis zum letzen 

überlesen (Bit 7 gesetzt} 

Zeiger erhöhen 

Befehlswort aus Tabelle holen 
letzter Buchstabe: fertig 
Zeichen ausgeben 
nächsten Buchstaben ausgeben 

BASIC-Befehl FOR 
Wert laden und 
Integer sperren 
LET, setzt FOR-Variable 
sucht offene FOR-NEXT-Schlei. 
nicht gefunden: SA753 
X-Reg. nach Akku 
Stapelzeiger erhöhen 
Akku zurück nach X-Reg. und 
in den Stapelzeiger 
Rücksprungadresse vom Stapel 
holen (LOU und HIGH} 
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A755 

A9 

09 

LOA 

«309 

A757 

ZO 

FB A3 

JSR 

SA3FB 

A75A 

ZO 

06 A9 

JSR 

SA906 

A750 

18 


CLC 


A75E 

9 & 


TYA 


A75F 

6S 

7A 

ADC 

S7A 

A761 

48 


PHA 


A76Z 

A5 

7B 

LDA 

STB 

A766 

69 

00 

ADC 

#$00 

A766 

48 


PHA 


A767 

AS 

3A 

LDA 

S3A 

A769 

48 


PHA 


A76A 

AS 

39 

LDA 

S39 

A76C 

48 


PHA 


A760 

A9 

A4 

LDA 

«$A4 

A76F 

ZO 

FF AE 

JSR 

SAEFF 

A77Z 

ZO 

80 AD 

JSR 

SAD80 

A775 

ZO 

8A AD 

JSR 

SA08A 

A778 

AS 

66 

LOA 

$66 

A77A 

09 

7F 

ORA 

«7F 

A77C 

ZS 

6Z 

AHO 

$6Z 

A77E 

8S 

6Z 

STA 

$6Z 

A780 

A9 

8B 

LDA 

#$86 

A78Z 

AO 

A7 

LDY 

#$A7 

A78A 

8S 

ZZ 

STA 

$ZZ 

A786 

84 

Z3 

STY 

$Z3 

A788 

4C 

43 AE 

JHP 

$AE43 

A78B 

A9 

BC 

LOA 

#SBC 

A780 

AO 

B9 

LDY 

#$69 

A78F 

ZO 

AZ BB 

JSR 

SBBAZ 

A79Z 

ZO 

79 00 

JSR 

$0079 

A795 

C9 

A9 

CHP 

#$A9 

A797 

00 

06 

BNE 

$A79F 

A799 

ZO 

73 00 

JSR 

$0073 

A79C 

ZO 

8A AD 

JSR 

$A08A 

A79F 

ZO 

ZB BC 

JSR 

SBCZB 

A7AZ 

ZO 

38 AE 

JSR 

$AE38 

A7AS 

AS 

4A 

LDA 

$4A 

A7A7 

48 


PHA 


A7A8 

AS 

49 

LDA 

$49 


Wert für Prüfwtg laden 
prüft auf Platz im Stapel 
sucht nächstes BAS.-Stateraent 
Carry löschen (Addition) 
CHRCET'Zeiger und Offset 
* Startadresse der Schleife 
auf Stapel speichern 
HIGH-Byte holen md 
Übertrag addieren lavd 
auf den Stapel legen 
Aktuelle 

Zeilennunner laden lavd auf 
den Stapel schieben 
(LOW und HIGH-Byte) 

'TO' - Code 
prüft auf Code 
prüft ob nunerische Variable 
nunerischer Ausdruck nach FAC 
Vorzeichenbyte von FAC holen 
Bit 0 bis 6 setzen 
mit S62 angleichen 
und abspeichern 
Rücksprungadresse laden 
(LOW und HIGH) 
und Zwischenspeichern 
(LOW und HIGH) 

Schleifenendwert auf Stapel 
Zeiger auf Konstante 1 setzen 
(Ersatzwert für STEP) 
als Default-STEP-Wert in FAC 
CHRCOT: letztes Zeichen holen 
'STEP' - Code? 
kein STEP-Wert: SA79F 
CHRCET nächstes Zeichen holen 
numerischer Ausdruck nach FAC 
holt Vorzeichenbyte 
Vorz. und STEP-Wert auf Stack 
Zeiger auf Variablenuert 
(LOW) auf den Stapel 
Zeiger (HIGH) 
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A7AA 

48 

PHA 

auf den Stapel 

A7AB 

A9 81 

LOA «S81 

und FOR'Code 

A7A0 

48 

PHA 

auf den Stapel legen 


Interpreterschleife 


Einsprung von SA7EA, SAS90, SA075 


A7AE 

20 2C A8 

JSR SAa2C 

prüft auf Stop-Taste 

A7B1 

AS 7A 

LOA S7A 

CHRCET Zeiger (LOU und HIGH) 

A7B3 

A4 7B 

LOY S7B 

laden 

A7B5 

CO 02 

CPY #S02 

Direkt-Modus? 

A7B7 

EA 

NOP 

No Operation 

A7B8 

FO 04 

BEQ SA7BE 

ja: SA7BE 

A7BA 

8S 30 

STA S3D 

als Zeiger für CONI 

A7BC 

84 3E 

STY $3€ 

merken 

A7BE 

AO 00 

LOY ASOO 

Zeiger setzen 

A7C0 

Bl 7A 

LOA (S7A),Y 

laufendes Zeichen holen 

A7C2 

DO 43 

BNE SAB07 

nicht Zeilenende? 

A7C4 

AO 02 

LOY «$02 

Zeiger neu setzen 

A7C6 

Bl 7A 

LOA ($7A),Y 

Programende? 

A7C8 

18 

CLC 

Flag für END setzen 

A7C9 

00 03 

BNE SA7CE 

Kein PrograMiiende: SA7CE 

A7CB 

4C 4B A8 

JHP SAa4B 

ja: dann END ausführen 

A7CE 

C8 

INY 

Zeiger erhöhen 

A7CF 

Bl 7A 

LOA ($7A),Y 

laufende Zeilennimer 

A7D1 

85 39 

STA S39 

(lou) nach S39 

A7l)3 

C8 

INY 

Zeiger auf nächstes Byte 

A7D4 

Bl 7A 

LOA ($7A),Y 

laufende Zeilenniemer 

A7D6 

85 3A 

STA S3A 

(HIGH) nach S3A 

A7D8 

98 

TYA 

Zeiger nach Akku 

A7D9 

65 7A 

ADC S7A 

Progratrmzeiger auf 

A7DB 

85 7A 

STA S7A 

Progratrmzeile setzen 

A700 

90 02 

BCC SA7E1 

C«0: Erhöhung umgehen 

A7DF 

E6 7B 

INC S7B 

Prograimzeiger (HIGH) erhöhen 


Einsprung von SA&99 

A7E1 6C 08 03 JMP (S0308) JHP SA7E4 Stetenent ausführen 
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Einsprung von SA7E1 


A7E4 

20 73 00 

JSR 

S0073 

A7E7 

20 EO A7 

JSR 

SA7ED 

A7EA 

4C AE A7 

JHP 

SA7AE 


Einsprung 

von SA7E7, SA948 

A7ED 

FO 

3C 

BES 

SA82B 

Einspring 

von SA9SC 


A7EF 

E9 

80 

SBC 

mo 

A7F1 

90 

11 

8CC 

SA804 

A7F3 

C9 

23 

CMP 

#$23 

A7F5 

BO 

17 

BCS 

SASOE 

A7F7 

OA 


ASL 


A7F8 

A8 


TAY 


A7F9 

B9 

00 AO 

LDA 

SAQOD.Y 

A7FC 

48 


PHA 


A7FD 

B9 

OC AO 

LDA 

SAOQC.Y 

A800 

48 


PHA 


A801 

4C 

73 00 

JMP 

$0073 

A804 

4C 

AS A9 

JMP 

$A9A5 


A807 

C9 3A 

CMP #$3A 

A809 

FO D6 

BES $A7E1 

A60B 

4C 08 AF 

JMP SAF08 

A80E 

C9 4B 

CMP #$4B 

A81D 

DO F9 

BNE $A8QB 

A812 

20 73 00 

JSR $0073 

A815 

A9 A4 

LDA «$A4 

A817 

20 FF AE 

JSR SAEFF 

A81A 

4C AO A8 

JMP $A8aO 


CHRGET nüchstes Zeichen holen 
Statement ausfOhren 
zurück zur Interpreterachlei. 

BASIC-Statement ausführen 


Zeilenende, dann fertig 


Tokeii? 

nein: dann zun LET-Befehl 
NEW? 

Funktiens'Teken oder GO TO 
BASIC-Befehl, Code nial 2 
als Zeiger ins Y*tteg. 
Befehlsadresse (LOW und 
HIGH) aus Tabelle 
holen uid als 

Rücksprungadresse auf Stapel 
Zeichen und Befehl ausführen 
zun LET-Befehl 


ist es Doppelpunkt? 
ja: SA7E1 

sonst ‘SYNTAX ERROR' 

prüft auf 'GO' 'TO' Code 
'GO' (minus $80} 
nein: 'SYNTAX ERROR' 
nächstes Zeichen holen 
'TO' 

prüft auf Code 
zun GOTO-Befehl 
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Einsprung von SA677 


A810 

38 


SEC 


A81E 

A5 

28 

LOA 

S2B 

A820 

E9 

01 

SBC 

MOI 

A822 

A4 

2C 

LOY 

S2C 

A824 

BO 

01 

BCS 

SA827 

A826 

88 


OEY 


Einsprung 

von 

SACE7 


A827 

85 

41 

STA 

S4l 

A829 

84 

42 

STY 

S42 

AB2B 

60 


RTS 



Einsprung von SA601, SA7AE 
A82C 20 El FF JSR SFFE1 


**************************** 


A82F 

BO 01 

BCS SAB32 




A831 

18 

ClC 

A832 

00 3C 

BNE SAB70 

A834 

AS 7A 

LOA S7A 

AB36 

A4 7B 

LOY STB 

A838 

A6 3A 

LDX t3A 

A83A 

E8 

INK 

A83B 

FO OC 

BEQ SA649 

A830 

8S 30 

STA S30 

A83F 

84 3E 

STY S3E 

A841 

AS 39 

LOA S39 

A843 

A4 3A 

LOY S3A 

A84S 

8S 3B 

STA $38 

A847 

84 3C 

STY $3C 


BASIC-Befehl RESTORE 


Carry satzen (Subtraktion) 
Progrannistartzeiger (LOW) 
laden und davon 1 abziehen 
und HIGH-Byte holen 

LOW-Byte -1 


als DATA-Zeiger 

abspeichern 

Rücksprung 

prüft auf Stop-Tsste 


Stop-Tsste abfragen 

BASIC-Befehl STOP 
C>1: Flag für STOP 

BASIC-Befehl ENO 

CsO Flag für ENO 

RUH/STOP nicht gedrückt: RT8 

Prograimzeiger laden 

(LOU und HIGH-Byte) 

Oirekt-Mockis? 

(Zeilennumier -1) 
ja: SA069 

als Zeiger für CONT setzen 
(LOU und HIGH) 

Numer der laufenden Zeile 
holen (LOU i«>d HIGH) 
und als Zei lennuwner für 
CONT merken 
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A849 

68 

PLA 


AS&A 

68 

PLA 


Einsprung wn SA7CB 


A84B 

A9 81 

LOA 

#$81 

A840 

AO A3 

LOY 

lll$A3 

A86F 

90 03 

BCC 

$A854 

AB51 

4C 69 A4 

JHP 

SA469 

A654 

4C 86 E3 

JHP 

SE386 


A8S7 

»•••1 

00 

17 

BNE 

SA870 

A859 

A2 

1A 

IDX 

#S1A 

A85B 

A4 

3E 

LOY 

S3E 

A850 

00 

03 

BNE 

SA862 

A85F 

4C 

37 A4 

JHP 

SA437 

A862 

A5 

30 

LOA 

$30 

A864 

85 

7A 

STA 

$7A 

A866 

84 

7B 

STY 

STB 

A868 

AS 

3B 

LOA 

$3B 

AS6A 

A4 

3C 

LOY 

$3C 

A86C 

85 

39 

STA 

$39 

A86E 

84 

3A 

STY 

$3A 

A870 

60 


RTS 


A871 

r***« 

08 


PHP 


Ae72 

A9 00 

LOA 

#soo 

A874 

20 90 FF 

JSR 

$FF9D 

A877 

28 


PLP 


A878 

00 03 

BNE 

$A87D 

A87A 

4C 

S9 A6 

JHP 

$A659 

A870 

20 

60 A6 

JSR 

SA660 

A880 

4C 97 A8 

JHP SA897 


A883 A9 03 lOA M03 
A885 20 FB A3 JSR SA3FB 


Rücksprungadresse 
VOR Stapel entfernen 


Zeiger auf Startadresse 
BREAK setzen 
EHO Flag? 

nein: 'BREAK IN XXX' ausgeben 
ZUR BASIC-Warmstart 

BASIC-Befehl COHT 

Kein Trennzeichen: SYNTAX ERR 

Fehternr. für 'CAN'T CONTINUE 

CONT gesperrt? 

nein: SA862 

Fehlerneldung ausgeben 

CONT-Zeiger (LOU) laden 

und COMT-Zeiger als Progrann- 

zeiger abspeichern 

md 

Zeilennunner uieder 
setzen 

(LOU- und HIGH-Byte) 
Rücksprung 

BASIC-Befehl RUN 
Statusregister retten 
Wert laden und 
Flag für PrograimioJus setzen 
Statusregister zurückholen 
weitere Zeichen (Zeilennr.)? 
Progrannzeiger setzen, CLR 

CLR-Befehl 

GOTO-Befehl 

BASIC-Befehl G0SU6 

Wert für Prüfung 

prüft auf Platz in Stapel 
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A888 

AS 

7B 

LOA S7B 

A88A 

48 


PHA 

ABBB 

AS 

7A 

LOA t7A 

Asao 

48 


PHA 

A88E 

AS 

SA 

LOA S3A 

A890 

48 


PHA 

A891 

AS 

S9 

LOA S39 

A8» 

48 


PHA 

AB94 

A9 

80 

LOA #$80 

A896 

48 


PHA 

Einsprung 

von SA880 

AB97 

ZO 

79 00 

JSR 10079 

A89A 

20 

AO A8 

JSR SA8A0 

AB9D 

4C 

AE A7 

JHP SA7AE 


**************************** 


Einsprung von SA81A, SA89A. 


A8A0 

20 

6B A9 

JSR 

SA966 

A8A3 

20 

09 A9 

JSR 

SA909 

ABA6 

38 


SEC 


A8A7 

AS 

39 

LOA 

S39 

A8A9 

ES 

14 

SBC 

S14 

A8AB 

AS 

3A 

LOA 

S3A 

A8A0 

ES 

IS 

SBC 

t15 

A8AP 

BO 

OB 

BCS 

SA8BC 

A8B1 

98 


TVA 


AB82 

38 


SEC 


A8B3 

6S 

7A 

ADC 

S7A 

A8BS 

A6 

7B 

LOX 

S7B 

A8B7 

90 

07 

BCC 

SABCO 

A889 

E8 


INX 


A8SA 

BO 

04 

BCS 

SABCO 

A68C 

AS 

2B 

LOA 

S2B 

A88E 

A6 

2C 

LOX 

S2C 

A8C0 

20 

17 A6 

JSR 

tA617 

A6C3 

90 

1E 

BCC 

SABE3 


Prograimzeiger (LOU- 
ijiid H1GH-Byte> laden 
(.nd auf den 
Stapel retten 
Zeilennunner laden (HIGH) 
und auf den Stapel legen 
Zei lennunner LOW laden 
und auf den Stapel legen 
'GOSUB'-Code laden 
und auf den Stapel legen 


CHRGOT: letztes Zeichen holen 
GOTO-Befehl 

zur Interpreterschleife 
BASIC-Befehl GOTO 
SA9&5 

Zei lennunaer nach t1A/S15 
nächsten Zeilenanfang suchen 
Carry löschen (Subtraktion) 
aktuelle Zeilennti>ner (LOW) 
kleiner als laufende Zeile? 
aktuelle Zeilenniiwner (HIGH) 
kleiner als laufende Zeile? 
nein: SA8BC 
Differenz in Akku 
Carry setzen (Addition) 
PrograMHzeiger addieren 
sucht ab laufender Zeile 
unbedingter 
Sprung 
zu SABCO 

sucht ab PrograrmBtart 

sucht Progrannzeile 

nicht gefunden: 'mdef'd st.' 
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A8CS 

A5 5F 

LOA S5F 

A8C7 

E9 01 

SBC noi 

A8C9 

85 7A 

STA STA 

ASCB 

AS 60 

LOA S60 

A8CD 

E9 00 

SBC «SOO 

A8CF 

85 TB 

STA STB 

A801 

60 

RTS 




ASDZ 

DO FO 

BNE SA801 

A8D4 

A9 FF 

LOA «SFF 

A8D6 

85 4A 

STA S4A 

A808 

20 8A A3 

JSR SA3SA 

A80B 

9A 

TXS 

A80C 

C9 60 

CHP #S80 

A80E 

FO OB 

BEQ SA8EB 

A8E0 

A2 OC 

LDX «SOC 

A8E2 

2C 

.BYTE S2C 

A8E3 

A2 11 

LDX )K02 

ASES 

6C 37 A4 

JNP SA437 

A8E8 

4C 08 AF 

JHP SAF06 

A8EB 

68 

PLA 

A8EC 

68 

PLA 

A8ED 

85 39 

STA $39 

ABEF 

68 

PLA 

A6F0 

85 3A 

STA S3A 

A8F2 

68 

PLA 

A8F3 

85 7A 

STA STA 

A8F5 

68 

PLA 

A8F6 

85 7B 

STA STB 


von der Startadresse C2eile) 
eins subtrahieren und als 
Programnzeiger (LOU) 

HtGH-Byte der Zeile laden 
Übertrag berücksichtigen 
und als Programnzeiger 
Rücksprung 

BASIC'Befehl RE1URN 
Kein Trennzeichen: SYNTAX ERR 
Wert laden und 
POR-NEXT-ZEIGER neu setzen 
GOSUB-Datensatz suchen 

■GOSUS'-Code? 
ja: SA8E8 

Nr für 'return uithout gosub' 

Nr für ’undef'd Statement' 
Fehlermeldung ausgeben 
'syntax error' ausgeben 

GOSUB-Code vom Stapel holen 
Zeilemjmer (LOU) wieder¬ 
holen und abspefchern 
2ei lennuiiner (HIGH) holen 
und abspeichern 
Programnzefger (tOU) wieder¬ 
holen und abspeichern 
Programnzeiger (HIGH) holen 
abspeichern 


BASIC'Befehl DATA 


Einsprung von SABE7, SB30B 

A6F8 20 06 A9 JSR SA906 nächstes Statement siKhen 
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Einspri.eig von 

SABF6, SAC01 


A6FB 

98 

TTA 

Offset 

A6FC 

18 

CLC 

Carry löschen (Addition) 

A8FD 

65 7A 

ADC S7A 

Progranmzeiger addieren 

A6FF 

65 7A 

STA STA 

und wieder abspeichern 

A901 

90 02 

BCC SA90S 

Verninderung übergehen 

A903 

E6 TB 

INC STB 

Progrannzeiger vernindern 

A90S 

60 

RTS 

RCicksprung 


Offset ät* nächsten 
Trennzeichens fincien 


Einsprung von SA75A, SA6F6, 

SABF3, SACB6 

A906 

A2 3A 

LOX «S3A 

':' Doppelpunkt 

A908 

2C 

.BTTE S2C 


Einsprung von SA8A3, SA93B 


A909 

A2 00 

IDX «$00 

SO Zeilenende 

A90B 

86 07 

STX S07 

als Suchzeichen 

A900 

AO 00 

IDT «SOO 

Zahler 

A90F 

84 08 

STY S08 

initialisieren 

A911 

AS 08 

LOA S06 

Speicherzelle S7 

A913 

A6 07 

IDX S07 

gesuchtes Zeichen 

A915 

85 07 

STA S07 

nit S8 

A917 

86 08 

STX S08 

vertauschen 

A919 

Bl TA 

IDA (STA), 

Y Zeichen holen 

A91B 

FO E8 

BEO SA90S 

Zeilenende, dann fertig 

A910 

CS 08 

CMP SOB 

= Suchzeichen? 

A91F 

FO E6 

BEO SA90S 

ja: SA90S 

A921 

CB 

INT 

Zei ger erhölien 

A922 

C9 22 

CNP «S22 

"" Hochkooma? 

A926 

00 F3 

BNE SA919 

nein: SA919 

A926 

FO E9 

BEO SA911 

sonst S7 und S8 vertauschen 




' BASIC-Befehl IF 

A928 

20 9E M) 

JSR SA09E 

FRHEVL Ausdruck berechnen 

A92B 

20 79 00 

JSR S0079 

CHRGOT letztes Zeichen 
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A9ZE 

C9 89 

CMP 0S89 

A930 

ro 05 

BEQ SA937 

A932 

A9 A7 

lOA «BA/ 

A934 

20 FF AE 

JSR BAEFF 

A937 

AS 61 

LOA S61 

A939 

DO 05 

BHE BA940 


A93B 

20 09 A9 

JSR BA909 

A95E 

fo 

BB 

BEO BA8FB 

A940 

20 

79 00 

JSR B0079 

A943 

BO 03 

8CS BA948 

A945 

4C AO AS 

JHP BA8A0 

A948 

4C 

EO A7 

JHP SA7E0 

A94B 

20 

9E B7 

JSR BB79E 

A9AE 

48 


PHA 

A94F 

09 

80 

CHP #B80 

A951 

FO 

04 

BEQ SA957 

A953 

C9 

89 

CMP IIS89 

A9SS 

00 

91 

BNE BASES 

A957 

C6 

65 

DEC S6S 

A9S9 

00 

04 

BNE BA9SF 

A958 

68 


PIA 

A9SC 

4C 

EF A7 

JHP SA7EF 

A95f 

20 

73 00 

JSR BOOTS 

A962 

20 

6B A9 

JSR $A96B 

A965 

C9 

2C 

CMP RfBZc 

A967 

FO 

EE 

BEQ BA957 

A969 

68 


PLA 

A96A 

60 


RTS 


■GOTO' -Code? 

ja; »A937 

■THEN'-COde 

prüft auf Code 

Ergebtjs des IF-Ausdrucks 

Ausdruck uahr? 

BASIC-BefehL REN 

nein, Zeilenanfang suchen 

PrograMz. auf nächste Zeile 

CHRGOT: letztes Zeichen holen 
keine Ziffer? 
ztM COTO-Befehl 
Befehl dekodieren, ausführen 

BASIC-Befehl ON 

Byte-Wert (0 bis 25S> holen 

Code laerken 

■GOSUB '-Code? 

ja: BA9S7 

■GOTO' -Code? 

nein; dann 'SYNTAX ERROR' 
Zähler vermindern 
noch nicht null? 

Ja: Code zurückholen 
und Befehl ausführen 

CMRCET nächstes Zeichen holen 

Zeilcaaeiiwr holen 

■, ■ Komas? 

ja: dann ueiter 

kein Sprung: Code zurückholen 

Rücksprung 
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ZeilennuMier nach SK/S15 


Einsprung von SA49C, SA6A4, SA6B6. ABAO, $A962 


A96B 

A2 

00 

LOK 

«SOO 

A960 

86 

14 

STX 

S14 

A96F 

86 

IS 

STX 

SIS 

Einsprung 

von SA9A2 


A971 

BO 

F7 

BCS 

SA96A 

A973 

E9 

2F 

SBC 

#S2f 

A975 

8S 

07 

STA 

S07 

A977 

AS 

IS 

LOA 

SIS 

A979 

8S 

22 

STA 

S22 

A97B 

C9 

19 

CMP 

«119 

A97D 

BO 

04 

BCS 

SA9S3 

A97F 

AS 

14 

LOA 

S14 

A981 

OA 


ASL 


A982 

26 

22 

ROL 

S22 

A9S4 

OA 


ASL 


A985 

26 

22 

ROL 

S22 

A987 

6S 

14 

ADC 

S14 

A989 

8S 

14 

STA 

S14 

A98B 

AS 

22 

LOA 

S22 

A98D 

6S 

IS 

ADC 

SIS 

A98F 

8S 

IS 

STA 

SIS 

A991 

06 

14 

ASL 

S14 

A993 

26 

IS 

ROL 

SIS 

A995 

AS 

14 

LOA 

S14 

A997 

6S 

07 

ADC 

S07 

A999 

8S 

14 

STA 

S14 

A99B 

90 

02 

BCC 

SA99F 

A99D 

E6 

IS 

INC 

SIS 

A99F 

20 

73 00 

JSR 

S0073 

A9A2 

4C 

71 A9 

JMP 

SA971 


Uert laden und 
Vorsetzen 

(für Zei lenni/mer gleich 0) 


keine Ziffer, dann fertig 
'0'-1 abziehen, gibt Hexwert 
mrken 

HIGH-Byte holen 
Zwischenspeichern 
Zahl bereits größer 6400? 
dann 'SYNTAX ERROR' 

Zahl • 10 (• «Z^Z+Zahl»?) 

Uert und Zwischenuert je 

2 mal um 1 Bit nach 

links rollen 

(entspricht 2*2) 

plus ursprünglicher Uert 

und abspeichern 

Zwischenuert zu 

zweitem Uert addieren 

und wieder abspeichern 

Speicherzelle S14 und 

SIS verdoppeln 

Uert wieder laden 

und Einerziffer addieren 

wieder speichern 

Carry gesetzt? (Übertrag) 

Übertrag addieren 

CHRGET nächstes Zeichen holen 

und weiter machen 
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BASIC-Befehl LET 


Efnsprung von M746. SA8(M 


A9A5 

20 

Sb 

BO 

JSR seosB 

A9A8 

SS 

A9 


STA SA9 

A9AA 

84 

AA 


STY $AA 

A9AC 

A9 

82 


L0A #SSZ 

A9AE 

20 

FF 

AE 

JSR SAEFF 

A9B1 

AS 

OE 


LDA SOE 

A9B3 

AS 



PHA 

A9B4 

AS 

00 


LDA SOO 

A966 

AS 



PHA 

A997 

20 

9E 

AD 

JSR $A09E 

A9BA 

68 



PLA 

A9BB 

2A 



ROL A 

A9BC 

20 

90 

AD 

JSR SA090 

A9BF 

DO 

IS 


BHE BA^V 

A9C1 

68 



PLA 

Einsprung 

von SAC8E 

A9C2 

10 

12 


BPL SA9D6 



r**« 



A9C4 

20 

1B 

BC 

JSR SBC1B 

A9C7 

20 BF 

Bl 

JSR SB1BF 

A9CA 

AO 

00 


LDY #t00 

A9CC 

AS 6A 


ISA S6A 

A9CE 

91 

A9 


STA {SA9}.Y 

A9P0 

CS 



INY 

A9D1 

AS 

65 


LOA S65 

A903 

91 

A9 


STA <SA9),Y 

A9D5 

60 



RTS 


sucht Variable hinter LET 

und Variablenadresse 

merken <LOU- und HIGH-Byte) 

■=» • Code 

prlHt auf Code 

Integer-Flag 

■uf Stapel retten 

und Typ-Flag 

<String/n(«iierl8ch) retten 
FRHEVL: Ausdruck holen 
Typ<Flag wiederholen 
und Bit 7 ins Carry schieben 
auf richtigen Typ prüfen 
String? ja: BA9D9 
Integer-Flag zurückholen 


IHTEGER? ja: SA906 

Werttuweisung INTEGER 
PAC runden 

und nach INTEGER wandlen 
Zeiger setzen 
HIGH-Byte hol«i und 
Wert in Variable bringen 
Zeiger erhöhen 
LOU'Byte holen und 
Wert in Variable bringen 
Rücksprung 


•••••*•••••••••••••••••••••• Wertzuyeisung REAL 

A9D6 4C DO BB JMP SBBDO FAC nach Variable bringen 
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»•**< 


»••*1 



A«9 

68 



PLA 


Einsprung 

von SAC83 


A9DA 

A« 

4A 


LOY 

S4A 

A90C 

CO 

BF 


CPY 

WBF 

A9DE 

00 

4C 


BME 

SAAZC 

A9E0 

20 

A6 B6 

JSR 

SB6A6 

A9C3 

C9 

06 


CMP 

«$06 

A9ES 

00 

30 


BHE 

SAA24 

A9E7 

AO 

00 


IDV 

MOO 

A9E9 

84 

61 


STY 

$61 

A9EB 

84 

66 


STY 

S66 

A9E0 

64 

71 


STY 

$71 

A9EF 

20 

10 AA 

JSR 

SAAID 

A9F2 

20 

E2 

BA 

JSR 

$SAE2 

A9F5 

E6 

71 


INC 

$71 

A9F7 

A4 

71 


LOT 

$71 

A9F9 

20 

10 

AA 

JSR 

SAAID 

A9FC 

20 

oc 

BC 

JSR 

SBCOC 

A9FF 

AA 



TAX 


AAOO 

FO 

05 


BEQ 

$AA07 

AA02 

E8 



INX 


AA03 

8A 



TXA 


AAO« 

20 

ED 

BA 

JSR 

SBAEO 

AA07 

A4 

71 


LOY 

$71 

AA09 

C8 



INY 


AAOA 

CO 

06 


CPY 

i$S6 

AAOC 

00 

DF 


BNE 

$A9ED 

AAOE 

20 

E2 

BA 

JSR 

SBAEZ 

AA11 

20 

9B 

BC 

JSR 

$BC9B 

AAU 

A6 

64 


LOX 

$64 

AA16 

A4 

63 


LOY 

$63 

AA18 

AS 

65 


LOA 

$65 

AA1A 

4C 

DB 

FF 

JNP 

SFFOB 


Ucrtzukieisung String 
Akku VOM Stapel holen 


Variabienedresse (HIGH) holen 
Ist Variable TIS? 
nein: SaaZC 
PRESTR 

Stringlünge gleich 6 
nein: 'fUegel quantity' 

Uert holen 
und damit FAC 
initialisieren 

(Akku, Vorzeichen und Zeiger) 
prüft nächstes Z. auf Ziffer 
FAC s FAC * 10 
Stellenzähler erhöhen 
und ins Y-Reg. bringen 
prOft nächstes Z. auf Ziffer 
FAC nach ARG kopieren 
FAC gleich 0? 
ja: SAA07 

Exponent von FAC erhöhen 
(FAC *2) und in den Akku 
FAC s FAC -r ARG 
Stellenzähler 
erhöhen 

schon 6 Stellen? 
nein: nächstes Zeichen 
FAC = FAC * 10 
FAC rechtsbündig mehen 
Werte für 

eingegebene Uhrzeit 
holen 

Time setzen 
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Einsprung von SA9EF, SA9F9 


AAiD 

81 22 

LOA 

(»22).Y 

AA1F 

ZO 00 00 

JSR 

S0080 

AA22 

90 03 

BCC 

MA27 

AA24 

AC «0 B2 

JHP 

$8240 

AA27 

E9 2F 

SBC 

IIIS2F 

AA29 

6C 7E 80 

JHP 

SB07E 


AA2C 

AO 

02 

LDY 

«S02 

AA2E 

81 

&4 

LOA 

($64),Y 

AAlQ 

CS 

34 

CHP 

$34 

AA32 

90 

17 

BCC 

$AA46 

AA34 

00 

07 

BNE 

$AA30 

AA36 

06 


DEY 


AA37 

81 

64 

LOA 

($64).Y 

AA39 

CS 

33 

CHP 

$33 

AA3B 

90 

OE 

BCC 

$AA4B 

AA30 

A4 

6S 

LOY 

$6S 

AA3F 

C4 

2E 

CPY 

$2E 

AA41 

90 

00 

BCC 

$AA4B 

AA43 

00 

00 

BNE 

$AAS2 

AA45 

AS 

64 

LOA 

$64 

AA47 

C5 

20 

CHP 

$20 

AA49 

80 

07 

BCS 

$AAS2 

AA4B 

AS 

64 

LOA 

$64 

AA4D 

A4 

6S 

LOY 

$6S 

AA4F 

4C 

68 AA 

JMP 

$AA68 

AA52 

AO 

00 

LDY 

«$00 

AAS4 

81 

64 

LOA 

C$64),Y 

AA56 

20 

75 84 

JSR 

$8475 

AA59 

AS 

SO 

LOA 

$50 

AA5B 

M 

51 

LOY 

$51 

AASO 

SS 

6F 

STA 

$6F 

AA5F 

04 

70 

STY 

$70 

AA61 

20 

7A 86 

JSR 

$867A 


Zeichen auf Ziffer |K^en 


Zeichen holen (aus String) 
auf Ziffer prüfen 
Ziffer: »AA27 
sonst: 'iUegal quantity' 
von ASCII nach HEX ueiwaniteln 
in FAC und ARG übertragen 

yert 2 uweis«#^g an normalen 
String 

Zeiger setzen 
Stringadresse HIGH mit 
Stringanfangsadr. vergleichen 
kleiner: String im Progranm 
gröBer: SAA3D 
Zeiger vermindern 
Stringadresse (lOU) holen 
und vergleichen 
kleiner: String im Progrann 
Zeiger auf Stringdescriptor 
mit Variablenstart vergl. 
kleiner: SAAAS 
gröBer: $AA52 

Stringdiscriptorzeiger (LOU) 
mit Varieblenstart vergl. 
gröBer: SAA52 
Zeiger in Akku und Y-Reg. 
auf Stringdescriptor setzen 
bis SAA68 überspringen 
Zeiger setzen 
Lange des Strings holen 
prüft Platz, setzt StrinSz. 
Zeiger auf Stringdescriptor 
holen (LOU- und HieH'Byte) 
und 

speichern 

String in Bereich übertragen 
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AA64 

A9 

61 

LDA 

«$61 

Werte leden 

AA66 

AO 

00 

LDY 

«soo 

damit 

Einspririg 

von SAAeF 



JU68 

S 

50 

STA 

$50 

Strlngdiscrfptor 

AA6A 

84 

51 

STT 

$51 

neu setzen 

AA6C 

20 

DB B6 

JSR 

SB6DB 

Descriptor loschen 

AA6F 

AO 

00 

LDY 

#$00 

Zeiger setzen 

AA71 

B1 

50 

LDA 

{$50).Y 

Länge des Descriptors holen 

AA73 

91 

49 

STA 

($49),r 

und abspeichern 

M7S 

C8 


INY 


Zeiger erhöhen 

AA76 

Bl 

50 

LDA 

($50),Y 

Adresse (LOU) holen 

AA78 

91 

49 

STA 

($49),Y und speichern 

AA7A 

C6 


INY 


Zeiger erhöhen 

AA7B 

Bl 

50 

LOA 

($50).r 

und Adresse (KI6H) 

AA7D 

91 

49 

STA 

($49).Y 

in Variable bringen 

AA7F 

60 


ATS 


Rüeksprung 


»***E 


»**«•« 


BASIC-Befehl PRINT# 

AA80 

20 

86 AA 

JSR 

$AA86 

CHO-Befehl 

AA83 

4C 

B5 A8 

JHP 

$A6B5 

und CLRCH 




»****« 

t****** 

BASIC-Befehl CMD 

Einsprung 

von SAA80 



AA86 

20 

9E B7 

JSR 

$879E 

holt Byte-Ausdruck 

AA89 

FO 

05 

BEQ 

$AA90 

Trennzeichen: $AA90 

AABB 

A9 

2C 

LOA 

#$2C 

Wert laden 

AASD 

20 

FF AE 

JSR 

$AEFF 

prüft auf Komw 

AA90 

08 


PHP 


Statusregister merken 

AA91 

86 

13 

STX 

$13 

Nr. des Ausgabegeräts merken 

AA93 

20 

18 El 

JSR 

$E118 

CKOUT, Ausgabegerät setzen 

AA96 

28 


PLP 


Statusregister wiederholen 

AA97 

4C 

AO AA 

JNP 

$AAAO 

zun PRINT-Befehl 

AA9A 

20 

21 AB 

JSR 

$A821 

String drucken 

AA% 

20 

79 00 

JSR 

$0079 

CHR60T letztes Zeichen 
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***** BASIC-B«frtl PRINT 


Einsprung von SAA97 
MRO FO 3S BEQ tMD7 


Einaprung von SAB16 


AAA2 

FO 43 

BEO 

SMS7 

AAA4 

C9 A3 

CHP 

«SA3 

AAA6 

FO 50 

BEQ 

SAAF8 

AAA8 

C9 A6 

CHP 

«SA6 

AAAA 

18 

CLC 


AAAB 

FO 4B 

BEO 

SAAF8 

AAAD 

C9 2C 

CHP 

«S2C 

AMF 

FO 37 

BEQ 

SAAE8 

AABI 

C9 3B 

CHP 

#S3B 

aab3 

FO Ä 

BEQ 

MB13 

AA6S 

20 9E AD 

JSS 

SAD% 

AAB8 

24 OD 

BIT 

SOD 

AABA 

30 DE 

BMI 

SAA9A 

AABC 

20 DD BD 

JSR 

SBDDD 

AABF 

20 87 B4 

JSR 

SB487 

AAC2 

20 21 AB 

JSR 

SAB21 

AACS 

20 3B AB 

JSR 

SAB3B 

AAC8 

DO D3 

BNE 

SAA90 


Efnspri.irig von SAS76 


AACA 

A9 

00 

LDA 

«SOO 

AACC 

90 

00 02 

STA 

sozoo.x 

AACF 

A2 

FF 

LDX 

»SFF 

AADl 

AO 

01 

LDY 

«SOI 

AAD3 

AS 

13 

LDA 

S13 

aads 

DO 

10 

BNE 

SAAE7 


Einsprurig von tA44E, SA604 

MD7 A9 OO LDA lIFSOD 

AAD9 20 47 AB JSR BAB47 


Tremzeiehen: BAAD7 


Trarmz. (TAB, SPOi RTS 
■TABC-Code? 

J«; MAF8 
■SPC(’-Code? 

Fl«9 für SPC setzen 
SPC«Code: MAF3 
'.'•Coda? CtCcmns} 

Ja: MAE8 

';'*Code7 (Semikolon) 

Ja: nächstes Zeichen, weiter 
FRHEVL: Tera holen 
Typflag 
String? 

FAC in ASClI-String wandeln 
Stringparameter holen 
String drucken 

Cursor right bzw. Leerzeichen 
weiter machen 


Eingabepuffer 
mit SO abschlieBen 
Zeiger auf 

Eingabepuffer ab S0200 setzen 
Nuitner des Ausgabegeräts 
Tastatur? nein: RTS 


<CR< carriage return 
ausgeben 
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AAOC 

26 

13 

BIT 

S13 

AAOE 

10 

05 

BPL 

BAAES 

AAEO 

A9 

OA 

LOA 

«SOA 

AAE2 

20 

67 AB 

JSR 

SA867 

Einsprung 

von SAB35 


AAE5 

69 

FF 

EOR 

«SFF 

AAE7 

60 


RTS 


AAE8 

38 


SEC 


AAE9 

20 

FO FF 

JSR 

BFFFO 

AAEC 

98 


TYA 


AAEO 

38 


SEC 


AAEE 

e9 

OA 

SBC 

«SOA 

AAFO 

BO 

FC 

BCS 

SAAEE 

AAF2 

69 

FF 

EOR 

«SFF 

AAF4 

69 

01 

ADC 

M01 

AAF6 

DO 

16 

BNE 

SABOE 


AAF8 

08 


PHP 

AAF9 

38 


SEC 

AAFA 

20 

FO FF 

JSR SFFFO 

AAFO 

86 

09 

STY $09 

AAFF 

20 

9B B7 

JSR SB79B 

AS02 

C9 

29 

tXP «$29 

AS06 

DO 

59 

BNE $AB5F 

A806 

28 


PLP 

AS07 

90 

06 

BCC SABOF 

AB09 

8A 


TXA 

ASOA 

E5 

09 

SBC S09 

ABOC 

90 

05 

BCC SAB13 

ASOE 

AA 


TAX 

ABOF 

E8 


INX 

A810 

CA 


OEX 

ABU 

OO 

06 

BNE SAB19 

AB13 

20 

73 00 

JSR S0073 

AB16 

6C 

A2 AA 

JMP SAAA2 


logische Filenumr 
kleiner 128? 

’LF' Une feed 
susgebcn 


NOT 

Rückspruig 

Zehner-Tabulator mit Koorw 
C ursorposition holen 
Spalte ins Y-Reg. 

Cerry setten (SiR>tr.) 

10 ebziehen 
nicht negetiv? 
invertieren 
«1 (ZMeierkoeplement) 
unbedirigter Sprung 

TA8( (C»1} und SPC( (C^O) 
Flags merken 
Carry setzen 
Cursorposition holen 
und Spalte merken 
Byte-Wert holen 
■)' Klafli<«r zu? 
nein: 'SYNTAX ERROR' 

Flags wfederherstellen 
zu SPC( 

TAB-Uert in Akku 
mit Cursorspelte vergleichen 
kleiner Cursor-Position: RTS 
Schritte bis zirn Tebuletor 
aus Zahler initialisieren 
un 1 vermindern 
*0? nein: Cursor right 
niehstes Zeichen holen 
und weiternachen 
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AB19 20 3b AB JSK $AB3B Cursor rfght bzu. Leerzeichen 

ABIC DO F2 BNE SAB10 zus Schleifenenfsng 

•••••••••«•*•••*•••••••••••• String eusgeben 

Etnspring von SA469, SA478, SAB6F. SACF8, SBOOA, SE191 
SE420, SE441, SFB86 

AB1E 20 87 B4 JSR SB487 StringparfMtter holen 

Einsprung von SAA9A, AAC2. SABCB 


A821 

20 

A6 Bö 

JSR 

S66A6 

AS24 

AA 


TAX 


AB25 

AO 

00 

LOY 

#S00 

AB27 

E8 


im 


Einsprung 

von tABJfi 


AB2B 

CA 


DEX 


AB29 

FO 

BC 

BEO 

SAAE7 

AB2B 

B1 

22 

LOA 

{t22).Y 

AB2D 

20 

47 AB 

JSR 

SAB47 

A830 

CS 


IKY 


AB31 

C9 

00 

CNP 

»00 

AB33 

DO 

F5 

BNE 

SAB28 

AB35 

20 

ES AA 

JSR 

SAAE5 

AB38 

4C 

28 AB 

JHP 

SAB28 


Einsprir« von SAACS, SAB19, 


AB3B 

A5 13 

LDA $13 

AB3D 

FO 03 

BEO SAB42 

AB3F 

A9 20 

LDA »20 

AB41 

2C 

.BYTE S2C 

AB42 

A9 ID 

LDA »» 

AB44 

2C 

.BYTE S2C 


FRESTR 

StringlAnge 

Zeiger für Stringausgabe 
erhöhen 


vermindern 
String zu Ende? 

Zeichen des Strings 
eusgeben 
Zeiger erhöhen 
'CR' carriage return? 
nein; weiter 

Fehler I Test auf LF-Ausgabe 
und weiternnehen 
Ausgabe eines Leerzeichens 
bzw. Cursor right 

SACOO 

Ausgabe in File? 

Bildschirme dann Cursor right 
■ ' Leerzeichencode laden 

Ctirsor right Code ladm 
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Einsprung von SA451, SABFD, SAC47 

ABAS A9 3F LDA 4B3F '7* FroBezefchencode laden 
Einsprung von tAASB. 1A6F3, SA730, tAA09, 1AAE2. SABZD 


ABA7 

20 OC E1 

JSR 1E10C 

ABAA 

29 FF 

AND «SFF 

ABAC 

60 

RTS 


Einsprung von SAC9A 


A6AD 

AS 11 

LOA $11 

ABAF 

FD 11 

BEO $AB62 

AB51 

30 OA 

BHl $ABS7 

AB53 

AD FF 

LDY MFF 

AB55 

DO OA 

BNE SABSB 




ABS7 

AS 3F 

LDA $3F 

ABS9 

AA AO 

LDT $40 


ABSB 

BS 39 

STA $39 

ABSO 

8A 3A 

STY $3A 

ABSF 

AC 06 AF 

JNP SAFDB 



AB62 

AS 13 

LDA $13 

AB6A 

FO 05 

BEQ $A66B 

AB66 

A2 18 

LDX «$18 

AB68 

AC 37 AA 

JHP SAA37 

AB6B 

A9 DC 

LOA «$00 

AB60 

AD AD 

LDT «SAD 

AB6F 

20 IE AB 

JSR $AB1E 

AB72 

A5 3D 

LDA S3D 

AB7A 

AA 3E 

LDT $3E 

AB76 

85 7A 

STA $7A 


Code ausgeben 
Flags setzen 
Rücksprung 

Fehlerbehandlung bei Eingabe 


Flag für INPUT / GET / READ 
INPUT: «AB62 
READ: $Ae57 
GET: 

unbedingter Sprung 

Fehler bei READ 

DATA-Zeilennunner 

holen (LOW- und HIGH-Byte> 

Fehler bei GET 
gleiche Zeilennumer 
des Fehlers 
■SYNTAX ERROR' 

Fehler bei INPUT 
Ni/mer des Eingabegeräts 
Tastatur: 'REDO FROH START' 
Nummer für 'FILE DATA' 
Fehlermeldung ausgeben 
Zeiger in Akku und V-Reg. 
auf 'TREDO FRON START' 
String ausgeben 
Werte holen und 
Prograniiizeiger 
zurOcksetzen 
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AB78 

64 

TB 


STY STB 

AB7A 

60 



RTS 


AB7B 

20 

A6 

B3 

JSR 

SB3A6 

ABTE 

C9 

23 


CNP 

«S23 

AB80 

00 

10 


BNE 

SAB92 

AB82 

20 

73 

00 

JSR 

S0073 

ABffi 

20 

9E 

B7 

JSR 

SB79E 

AB88 

A9 

2C 


LOA 

«S2C 

AB8A 

20 

FF 

AE 

JSR 

SAEFF 

AB80 

86 

13 


STX 

S13 

AB8f 

20 

IE 

El 

JSR 

SEHE 

AB92 

A2 

01 


LOK 

«SOI 

AB94 

AO 

02 


LDY 

«S02 

AB96 

A9 

00 


LOA 

«SOO 

AB98 

6D 

01 

02 

STA 

*0201 

AB9B 

A9 

40 


LOA 

«S40 

AB90 

20 

OF 

AC 

JSR 

SACOF 

ABAO 

A6 

13 


LDX 

S13 

ABA2 

00 

13 


BNE 

SABB7 

ABA4 

60 



RTS 


*«***»»»»»»»»««*«•********** 

ABAS 

20 

9£ 

B7 

JSR 

Sa79E 

ABAS 

A9 

20 


LOA 

«S2C 

ABAA 

20 

FF AE 

JSR 

SAEFF 

ABAO 

86 

13 


STX 

S13 

ABAF 

20 

IE 

El 

JSR SEHE 

ABB2 

20 

CE AB 

JSR SABCE 

Einsprung von SAA83. SABE6 

ABB5 

AS 

13 


LOA 

S13 

ABB7 

20 

CC 

FF 

JSR 

SFFCC 

ABBA 

A2 

00 


LDX 

«SOO 

ABBC 

86 

13 


STX S13 

ABBE 

60 



RTS 



auf IMPUT-Befehl 

Rücksprwig 

BASIC-Befehl SET 
Testet auf Direkt-Nodus 
folgt •«'? 
nein: BA692 

CHRGET nächstes Zeichen holen 
Byte-Uert holen 
Konm» 

prüft auf Code 
Filenunair 

CHKIN. Eingabe vorbereiten 
Zeiger auf 

Pufferende • SZ01 ein Zeichen 
Wert laden und 
Raffer mit SO abechlfeSen 
GET-Flsg 

Wertzuweisung an Variable 
Eingabegerät 

nicht Tastatur, dann CLRCH 
Rückspriaig 

BAStC-Befehl IHPUT# 
holt Byte-Wert 
',' Code für Kenne 
prüft auf Komna 
Eingabegerät 

CHKIN, Eingebe vorbereiten 
INPUT ohne Dialogstring 


Eingabegerät im Akku 
setzt Eingabegerät zurück 
Wert laden und 
Eingabegerät wieder Tastatur 
Rückspring 
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ABBF 

C9 

22 


CHP 

*$22 

ABC1 

DO 

06 


BNE 

$ABCE 

ABC3 

20 

BD 

AE 

JSR 

$AE6D 

ABC6 

A9 

3B 


LOA 

*$36 

ABC8 

20 

FF 

AE 

JSR 

$AEFF 

ABCB 

20 

21 

AB 

JSR 

$AB21 

Einaprung 

von $AB62 


A6CE 

20 

A6 

B3 

JSR 

$B3A6 

AB01 

A9 

2C 


LDA 

*$2C 

ABD3 

60 

FF 

01 

STA 

$01FF 

AB06 

20 

F9 

AB 

JSR 

$ABF9 

ABD9 

AS 

15 


LOA 

$13 

A60B 

FO 

00 


BEQ 

UBEA 

ABOD 

20 

B7 

FF 

JSR 

$FFB7 

ABEO 

29 

02 


AND 

*$02 

ABE2 

FO 

06 


BEQ 

UBEA 

A6E4 

20 

BS 

AB 

JSR 

$ABB5 

ABE7 

4C 

F8 

AS 

JMP 

$A8F8 

ABEA 

AD 

00 

02 

LOA 

$0200 

ABEO 

DO 

IE 


BNE 

$AC0D 

ABEF 

AS 

13 


LOA 

$13 

ABF1 

DO 

E3 


BNE 

$A6D6 

ABF3 

20 

06 

A9 

JSR 

$A906 

ABF6 

4C 

F6 

AS 

JMP 

$A8FB 

Einsprung 

von SAB 06 , 

MC4A 

ABF9 

AS 

15 


LOA 

$13 

ABFB 

DO 

06 


BNE 

UC03 

ABFO 

20 

45 AB 

JSR 

UB45 

ACOO 

20 

3b 

AB 

JSR 

$AB36 

AC03 

4C 

60 

AS 

JMP $A560 


BASIC-Befehl INPUT 
Hochkomna? 
nain: SABOE 
Dtalogstring holen 
Semikolon 
prüft auf Code 
String ausgeben 


prüft auf Direkt-Nodus 

* f * ICof^Ra 

an Pufferstert 
Fragezeichen ausgeben 
Nijnner des Eingabegeräts 
Tastatur? ja: SABEA 
Status holen 

Bit 1 isolieren (Tirwout R.) 
Time-out? 

ja: CLRCH.Tastatur aktivieren 
nächstes Statement ausführen 

erstes 2eichen holen 
Ende? 

ja: Eingabegerät 
nicht Tastatur: SA606 
Offset (Statement) suchen 
Progranmzeiger auf Statement 


Eingabegerät holen 
nicht Tastatur: SAC03 
'?' ausgeben 

' ■ leerzeichen ausgeben 
Eingabezeile holen 


••***••••*•••*...*.*..•»*•** BASIC-Befehl REAO 
AC06 A6 41 LDX $41 DATA-Zeiger nach 

AC08 A4 42 LOY $42 $41/42 holen 
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ACOA 

A9 

98 

LOA «S9e 

ACOC 

2C 


.BYTE t2C 

ACOD 

A9 

00 

LOA 

#toa 

Einspriitig 

von tAB9D 


ACOF 

BS 

11 

STA 

tii 

AC11 

86 

43 

STX 

S43 

AC13 

84 

44 

STT 

S44 

Einsprung 

von BACBS 


AC15 

ZO 

88 BO 

JSR 

S808B 

ACIB 

85 

49 

STA 

S49 

AC1A 

84 

4A 

STT 

S4A 

ACIC 

AS 

7A 

LOA 

STA 

AC1E 

A4 

7B 

LOY 

STB 

AC2D 

BS 

4B 

STA 

S4B 

AC22 

84 

4C 

STY 

S4C 

ACZ4 

A6 

43 

LDX 

S43 

ACZ6 

A4 

44 

LOY 

S44 

ACZ8 

86 

7A 

STX 

STA 

ACZA 

84 

TB 

STY 

STB 

AC2C 

20 

79 00 

JSR 

S0079 

AC2F 

00 

20 

8ME 

SAC51 

AC31 

24 

11 

BIT 

S11 

AC33 

50 

OC 

BVC 

SAC41 

AC35 

20 

24 El 

JSR 

SE124 

AC38 

8D 

00 02 

STA 

S0200 

AC3fi 

A2 

FF 

LOX 

«SFF 

AC30 

AD 

01 

LOY 

tsoi 

AC3F 

00 

OC 

BHE 

SAC4D 

AC41 

30 

75 

BMI 

SACB8 

AC43 

A5 

13 

LDA 

S13 

AC45 

00 

03 

BNE 

SAC4A 

AC47 

20 

45 AB 

JSR 

SAB45 

AC4A 

ZO 

F9 AB 

JSR 

SABF9 

AC4D 

86 

TA 

STX 

STA 

AC4F 

84 

TB 

STY 

%n 


READ-Flag 
Flagwert laden 


und INPUT-Zelger setzen 
INPUT-Zeiger auf 
Eingabequei le setzen 


sucht variable 

Varfablenadresse 

speichern 

LOU- und HtGH-Byte des 

Prograneeeigers 

in «4B/S4C 

Zwischenspeichern 

INPUT-Zeiger 

(LOU und HIGH) 

als Programzeiger 

abspeicliern 

OdlGQT letztes Zeictian holen 

Endzetchen? nein: SAC51 

Eingabeflag 

kein GET: UC41 

GETIN 

Zeichen in Puffer schreiben 

Zeiger auf 

Puffer setzen 

is4)edingter Sprung 

READ: SAC88 

Eingabegerüt holen 

nicht Tastatur: SAC4A 

Fragezeichen eusgeben 

zweites Fragezeichen ausgeben 

Programnzeiger setzen 

(LOU und HIGH) 
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Einspria)g 

von SACDC 


ACS1 

20 

73 00 

JSR 

$D073 

AC5A 

26 

oo 

BIT 

SOO 

AC56 

10 

31 

BPI 

SAC89 

AC5S 

26 

11 

BIT 

S11 

AC5A 

SO 

09 

BVC 

SAC6S 

AC5C 

EB 


IHX 


AC5D 

86 

7A 

STX 

S7A 

ACSF 

A9 

00 

LDA 

«SOO 

AC61 

8S 

07 

STA 

S07 

AC63 

fO 

OC 

BEQ 

SAC71 

AC6S 

8S 

07 

STA 

$07 

AC67 

C9 

22 

CMP 

«$22 

AC69 

FO 

07 

BEQ 

SAC72 

AC6B 

A9 

3A 

LDA 

«S3A 

AC60 

8S 

07 

STA 

107 

AC6F 

A9 

2C 

LDA 

«S2C 

AC71 

18 


CLC 


AC72 

8S 

08 

STA 

SD8 

AC76 

AS 

7A 

LDA 

S7A 

AC76 

A6 

7B 

IDY 

STB 

AC78 

69 

00 

ADC 

«SOO 

AC7A 

90 

01 

BCC 

SAC7D 

AC7C 

CO 


INT 


AC7T> 

20 

8D B6 

JSR 

SB660 

AC80 

20 

E2 B7 

JSR 

SB7E2 

AC83 

20 

DA A9 

JSR 

SA9DA 

AC86 

6C 

91 AC 

JHP 

SAC91 

AC89 

20 

F3 BC 

JSR 

SBCF3 

AC8C 

AS 

OE 

LDA 

SOE 

AC8E 

20 

C2 A9 

JSR 

SA9C2 

Einspnf>g 

von SAC86 


AC91 

20 

79 00 

JSR 

S0079 

AC94 

FO 

07 

BEO 

SAC9D 

AC96 

C9 

2C 

CMP 

«S2C 

AC98 

FO 

03 

BEO 

SAC9D 

AC9A 

6C 

6D AB 

JHP 

SAB6D 


CHRGET nächstes Zeichen holen 
Typ-Flag 

kein String: SAC89 
Eingabeflag 
kein GET: SAC65 
Prograesnzeiger erhöhen 
und neu setzen (S0200) 

Wert laden und 
Trennzeichen setzen 
unbedingter Sprung 
nächstes Zeichen 
"" HochkoxMia? 
ja: SAC72 

Ooppelpunktcode laden 
und abspeichern 

Konnacocie (Endzeichen 
für Stringübertragung) 
abspeichern 
Progratnszeiger laden 
(LOU und HIGK) 
und Übertrag addieren 
C > 0: SAC7D 
bei "" um 1 erhöhen 
String überneheen 
Progratnszeiger hinter String 
String an Variable zuweisen 
weiter machen 
Ziffernstring in FAC holen 
IHTEGER/REAL-Flag 
FAC an rwnerische Variable 


CHRGOT: letztes Zeichen holen 
Ende? 

Code? 

Ja: $AC9D 

zur Fehlerbehandlung 
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AC9D 

AS 

7A 

LDA STA 

AC9F 

A4 

TB 

LDT STB 

ACA1 

es 

43 

STA t43 

ACA3 

64 

44 

STY S44 

ACA5 

AS 

4B 

LDA S4B 

ACA7 

A4 4C 

LDY S4C 

ACA9 

es 

7A 

STA STA 

ACAB 

64 

7B 

STY STB 

ACAD 

20 79 00 

JSR S0079 

ACBD 

FO 

2D 

BEQ SACDF 

ACB2 

20 

FD AE 

JSR SAEFD 

ACB5 

4C 

IS AC 

JHP SACIS 

ACB8 

20 

06 A9 

JSR SA906 

ACBB 

ce 


IHY 

ACBC 

AA 


TAX 

ACBD 

00 

12 

BHE SACD1 

ACBF 

A2 

OD 

LDX «SOO 

ACC1 

ce 


IHY 

ACCZ 

ei 

7A 

LDA (S7A>,Y 

ACC4 

FO 

6C 

BEO SAD32 

ACC6 

ce 


IHY 

ACC7 

Bl 

7A 

LDA {S7A>,Y 

ACC9 

es 

3F 

STA S3F 

ACCB 

ce 


IHY 

ACCC 

ei 

7A 

LDA {S7A).Y 

ACCE 

ce 


IHY 

ACCF 

es 

40 

STA S40 

AC01 

20 

FB A8 

JSR SA8FB 

ACD4 

20 

79 00 

JSR S0079 

AC07 

AA 


TAX 

ACD8 

EO 

83 

CPX «S83 

ACDA 

00 

DC 

BNE SACB8 

ACDC 

4C 

S1 AC 

JHP SAC51 

ACDF 

AS 

43 

LDA S43 

ACE1 

A4 

44 

LDY S44 

ACE3 

A6 

11 

LDX S11 

ACE5 

10 

03 

BPL SACEA 

ACE7 

4C 

27 A8 

JHP SAeZT 

ACEA 

AO 

00 

LDY ASOO 

ACEC 

Bl 

43 

LDA {S43>,Y 


Prograimzeiger 
holen und 
in DATA-Zeiger 
abspeichern 
urspriätg liehe 
Prograimzeiger 
wieder zurOckholen 
und speichern 

CHRGOT: letztes Zeichen holen 
Trennzeichen: tACDF 
CKCOM: prüft auf Konna 
weiter 

nächstes Statement suchen 

Offset erhöhen 

Zei lenende? 

nein: SAC01 

'OUT OF DATA' Code 

Zeiger erhöhen 

Programtende? 

ja: 'OUT OF DATA', X > 0 

Zeiger erhöhen 

Zeflennumer (LOU) holen 

und abspeichern 

Zeiger erhöhen 

Zeileninner (HIGH) 

Zeiger erhöhen 
Zeilenni/mer speichern 
Prograimz. auf Statetaent 
CHRGOT letztes Zeichen holen 
und ins X-Reg. 

■DATA' Code? 

nein: weitersuchen 

Osten Lesen 

tow- und HIGH-Byte des 

Input-Zeigers 

Eingabe*Plag 

kein DATA: $ACEA 

DATA-Zeiger setzen 

Zeiger setzen 

nächstes Zeichen holen 
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ACEE 

FO 

OB 


BEO 

SACFB 

Endzeichen: SACFB 

ACFO 

AS 

13 


LOA 

S13 

Eingabe über Tastatur? 

ACF2 

DO 

07 


BNE 

SACFB 

nein: SACFB 

ACF4 

A9 

FC 


LOA 

•SFC 

Zeiger auf 

ACF6 

AO 

AC 


LOV 

»SAC 

■?extra ignored' setzen 

ACF8 

4C 

1E 

AB 

JNP 

SAB1E 

String ausgeben 

ACFB 

60 



RTS 


RUcksprung 

ACFC 

3F 

4S 

58 

54 52 

41 20 49 'Textra ignorad* 

AD04 

47 

4E 

4P 

52 45 

44 00 

00 

AODC 

3F 

52 

45 

44 4F 

20 46 

52 'Tredo froa Start' 

AD14 

4F 

20 

53 

54 41 

52 54 

oo 

A01C 

00 









r**« 

r****** 


' BAStC-Befehl HEXT 

AD1D 

DO 

04 


BNE 

SA024 

folgt Variablennaaw? ja:SAD24 

AD20 

AO 

00 


LOY 

«soo 

Variablenzeiger ■ 0 

AD22 

FO 

03 


BEO 

SA027 

urbedingier Sprung 

Einsprwtg 

von BA087 



AD24 

20 

88 

BD 

JSR 

SB08B 

sucht Variable 

AD27 

es 

49 


STA 

S49 

Adresse der 

AD 29 

84 

4A 


STY 

S4A 

Variablen speichern 

AD2B 

20 

SA 

A3 

JSR 

SA38A 

sucht POR-NEXT-Schleife 

AD2E 

FO 

05 


BEQ 

SAD3S 

gefunden: SAD35 

AD30 

A2 

OA 


LDX 

«SOA 

Numer für 'next without for' 

AD32 

4C 

37 

A4 

JHP 

SA437 

Fehlermeldung ausgeben 

AD35 

9A 



TXS 


X'Reg. retten 

A036 

6A 



TXA 


X-Register nach Akku 

A037 

18 



CLC 


Carry löschen (Addition) 

A038 

69 

04 


ADC 

«$04 

Zeiger auf Exponenten des 

AD3A 

48 



PHA 


STEP-Wert * 4 latd retten 

AD38 

69 

06 


ADC 

«$06 

Zeiger auf Exponent des TO- 

A03D 

es 

24 


STA 

S24 

Wert und retten 

AD3F 

68 



PLA 


Akku wieder vom Stapel holen 

AD40 

AO 

01 


LDY 

«S01 

Zeiger für konstante setzen 

A042 

20 

A2 

BB 

JSR 

S8BA2 

Variable ven Stapel nach FAC 

AD45 

BA 



TSX 


Stapel Zeiger als Zeiger h. 

A046 

BO 

09 

01 

LOA 

S0109, 

,X Vorzeichenbyte holen und 
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A049 

85 

66 


STA S66 

für FAC speichern 

AD4B 

AS 

49 


LDA S49 

Variablenadresse für 

AD40 

A4 

4A 


LOV S4A 

FOR-NEXT holen 

A04F 

20 

67 

B8 

JSR SB867 

addiert STEP-Wert zu FAC 

AD52 

20 

DO 

BB 

JSR seeoo 

FAC nach Variable bringen 

AD55 

AO 

01 


LOr «SOI 

Zeiger auf Konstante setzen 

A057 

20 

5D 

BC 

JSR SBC50 

FAC mit Schleifenenduert vergleichen 

A05A 

BA 



TSX 

Stapelzeiger als Zeiger h. 

A05B 

38 



SEC 

Carry setzen (Si^traktion) 

AOSC 

FD 

09 

01 

SBC S0109.X 

Stapelwert großer? 

AD5F 

FD 

17 


BEO SA078 

ja: Schleife verlassen 

A061 

BO 

OF 

01 

LOA S010F.X 

Zeilennutner des Schleifen¬ 

A064 

85 

39 


STA S39 

anfangs holen (LOU- und 

A066 

BD 

10 

01 

LDA $0110,X 

KtGK-Byte> und als aktuelle 

AD69 

85 

3A 


STA t3A 

BASlC-Zeilenni/mer speichern 

AD6B 

BD 

12 

01 

LDA S0112.X 

Schleifenanfang holen (LOU- 

AD6E 

85 

7A 


STA S7A 

und HIGH-Byte) und 

A070 

BD 

11 

01 

LDA $0111,X 

als neuen Progrannzeiger 

A073 

85 

TB 


STA $7B 

abspeichern 

A075 

4C 

AE 

A7 

JNP SA7AE 

zur Interpreterschleife 

AD78 

8A 



TXA 

Zeiger in Akku holen 

A079 

69 

11 


ADC «$11 

(Werte der Schleife aus 

A07B 

AA 



TAX 

Stapel entfernen) 

AD7C 

9A 



TXS 

neuen Stapelzeiger setzen 

AD7D 

20 

79 

00 

JSR $0079 

CHRGOT letztes Zeichen holen 

A080 

C9 

2C 


CHP «$2C 

',' Kooma? 

AD82 

OO 

Fl 


BNE $AD75 

nein: dann fertig 

AD84 

20 

73 

00 

JSR $0073 

CHRGET nächstes Zeichen holen 

AD87 

20 

24 

AD 

JSR $AD24 

nächste NEXT-Variable 


•••••••*•••••••••••••••••••• FRHNUN Ausdruck holen und 

auf numerisch prüfen 

Einsprung von $A77S, SA79C, SBA3S, »B79E, 67EB. SE12A 


A08A 20 9E AD JSR M09E FRHEVL Term holen 
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prüft auf niMrisch 

Efnsprung von SA772, SA0F6, SAE61, SAFE3, BiBS, SB3C3 
SB3F1, SBAOO, SBA65 

AD80 18 CLC Flag für Test auf nuaen'sch 

AD8E 24 .BYTE S24 


•••••••••••••••••••••••••••• prüft auf String 


Einspriaig von SAFBA. tS646. $86A3 


AD8F 38 SEC 


Einspruiig von tA9BC. SB016 

AD90 

24 00 

BIT SOO 

A092 

30 03 

BHI SAD97 

A094 

BO 03 

BCS SAD99 

A096 

60 

RTS 

A097 

BO FD 

BCS SAD96 

A099 

A2 16 

LOX M16 

A09B 

4C 37 A4 

JHP SA437 


Flag für Test auf String 


Typflag testen 
gesetzt: MD97 
C=1: 'TYPE MISMATCH' 
Rücksprung 
C=l: RTS 

Nunwr für 'TYPE HtSHATCH' 
Fehlernield(X>B ausgeben 

FRHEVL auswerten eines 
beliebigen Ausdrucks 


Einsprung von SA92B, SA9B7, SAAB5, SA08A, SAEF4, SAFB4 


$81B3. 

SE257 


A09E 

A6 7A 

LOX STA 

AOAO 

DO 02 

BNE SA0A4 

AOA2 

C6 TB 

OEC STB 

AOA4 

C6 7A 

OEC STA 

A0A6 

A2 00 

LOX #S00 

AOAB 

24 

.BYTE S24 


Programueiger (LOU) s 07 
ja: HICH-B. nicht vermindern 
HIGH-Byte veraindern 
LOU-Byte vemindern 
Prioritätswert laden 
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Einsprung 

von SAE20 


ADA9 

48 


PHA 


AOAA 

6A 


TXA 


AOAB 

48 


PMA 


ADAC 

A9 

01 

LOA «101 

AOAE 

20 

FB A3 

JSR 1A3FB 

ADB1 

20 

83 AE 

JSR 

SAE83 

ADB4 

A9 

00 

LOA «100 

A0B6 

85 

40 

STA 140 

Einsprung 

von 18677 


AOBS 

20 

79 00 

JSR 

10079 

Einsprung 

von 1AD04 


ADBB 

38 


SEC 


AOBC 

E9 

Bl 

SBC «IBI 

AOBE 

90 

17 

BCC SA0D7 

AOCO 

C9 

03 

CMP «103 

A0C2 

BO 

13 

BCS 1A0D7 

ADC4 

C9 

01 

CMP «101 

ADC6 

2A 


ROL 


A0C7 

49 

01 

EOR 

«101 

A0C9 

45 

40 

EOR 

140 

AOCS 

C5 

40 

CMP 

140 

AOCO 

90 

61 

BCC 

1AE30 

ADCF 

85 

40 

STA 

140 

AO01 

20 

73 00 

JSR 

10073 

ADD4 

4C 

BB AO 

» 

lAOBB 

AOD7 

A6 

40 

LOX 

140 

AD09 

00 

2C 

BNE 

1AE07 

AOOB 

BO 

TB 

BCS 

1AE58 

AODO 

69 

07 

ADC 

«107 

ADDF 

90 

77 

BCC 

1AE58 

A0E1 

65 

00 

AOC 

lOO 

A0E3 

00 

03 

BNE 

1A0E8 

ADES 

4C 

30 B6 

JMP 

1B630 

A0E8 

69 

FF 

ADC 

«IFF 


Operatomsske retten 
PrioritktsMert in Akku 
schieben und retten 
2 Bytes 

prüft auf Platz im Stapel 
Nächstes Eletaent holen 
Wert laden und 
Maske für Vergleichsoperator 


CHRGOT letztes Zeichen holen 


Carry setzen (Subtraktion) 

161 von Operatorcode subtr. 
C«0: 1A007 
mit 13 vergleichen 
»3: 1ADD7 

Maske für kleiner 
gleich und grüBer 
für Bits 0,1 wid 2 
in lAD erstellen 
(Wenn Codes von 177 
bis 179 folgen) 

CHRGET nächstes Zeichen holen 

nächstes Zeichen ausuerten 

Operatoraisske holen 

gleich 0? nein: 1AE07 

Code grö6er oder gleich 1807 

Code kleiner 170? 

ja: 1AE58 

Stringaddition? 

nein: Verkettung URgehen 

Stringverkettung 

Code-IAA (Miederherstellen) 




Das ROM-Listing 


353 


ADEA 

85 22 


STA $22 

und speichern 

ADEC 

OA 


ASL 

verdoppeln 

ADEO 

65 22 


AOC $22 

* Uert (alao nel 3) 

AOEF 

A8 


TAY 

als Zeiger ins Y-Register 

ADFO 

68 


PLA 

bisheriger Prioritatswert 

AOF1 

09 80 AO 

CMP SA080.Y Mit PrioritStsH. vergleichen 

ADF« 

BO 67 


BCS $AE50 

gröBer: SAE5D 

ADF6 

20 80 AO 

JSR $AD8D 

prüft auf nifaerisch 

ADF9 

48 


PHA 

Prioritatswert retten 

Einsprung von SAF11 


AGFA 

20 20 

AE 

JSR $AE20 

Opcratoradr. und Operanden r. 

ADFO 

68 


PLA 


AOFE 

A4 48 


LOY $4B 

Operator? 

AEOO 

10 17 


BPL $AE19 

ja: SAE19 

AE02 

AA 


TAX 

weitere Operation? 

AE03 

FO 56 


BEQ SAE5B 

nein: RTS 

AE05 

DO 5F 


BNE $AE66 

ARG vom Stapel holen 

AE07 

46 00 


LSR $00 

Stringflag löschen 

AE09 

6A 


TXA 

Operatormaske nach 

AEOA 

2A 


ROL 

links schieben 

AEOB 

A6 7A 


LOX $7A 

Progrennzeiger holen CLOU) 

AEOO 

DO 02 


BNE $AE11 

sO: HIGH-Byte vermindern 

AEOF 

C6 TB 


OEC STB 

HIGH'Byte vermindern 

AEtI 

C6 7A 


DEC STA 

LOU'Byte vermindern 

AEiS 

AO 1B 


LOY «$1B 

Offset des Hiererchieflags 

AE15 

85 40 


STA $40 

Flag setzen 

AE17 

DO 07 


BNE SADFO 

unbedingter Sprung 

AE19 

09 80 AO 

CMP SA080, 

,Y mit Hierarchieflag vergl. 

AE1C 

BO 48 


BCS $AE66 

gröSer; $AE66 

AE1E 

90 09 


BCC $A0F9 

sonst weiter 

Einsprung von tAOFA 


AE20 

B9 82 

AO 

LOA SA082,Y Operationsadresse (HIGH) 

AE23 

48 


PHA 

auf Stapel retten 

AE26 

B9 81 

AO 

LOA U081, 

Y Operationsadresse (LOU) 

AE27 

48 


PHA 

auf Stapel retten 

AE28 

20 33 

AE 

JSR $AE33 

Operanden auf Stapel retten 
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AE2e 

AS AD 

LDA $4D 

AE2D 

4C A9 AD 

JHP SADA9 

A£30 

4C 08 AF 

JHP SAFOS 

Einsprung von SAE26 

AE33 

AS 66 

LOA S66 

AE3S 

BE SO AO 

LDX SA080.Y 


Einsprung von $A7A2 


AE38 

A8 

TAY 

AE39 

68 

PIA 

AE3A 

85 22 

STA $22 

AE3C 

E6 22 

INC S22 

AE3E 

68 

PLA 

AE3F 

85 23 

STA $23 

AE41 

98 

TYA 

AE42 

48 

PHA 

Einsprung von $A788 

AE43 

20 18 BC 

JSR SSC1B 

AE46 

AS 65 

LOA S65 

AE48 

48 

PHA 

AE49 

AS 64 

LDA 164 

AE4B 

48 

PHA 

AE4C 

AS 63 

LDA S63 

AE4E 

48 

PHA 

AE4F 

AS 62 

LDA 162 

AES1 

48 

PHA 

AES2 

AS 61 

LDA S61 

AE54 

48 

PHA 

AE55 

6C 22 00 

JHP <$0022) 

AESe 

AO FF 

LDY «SFF 

AE5A 

68 

PLA 

AE5B 

FO 23 

BEQ $AE60 

AE50 

C9 64 

CHP #S64 

AE5F 

FD 03 

BEO SAE64 

AE61 

20 80 AD 

JSR SAD8D 


Operatormaske laden 
zum Schleifenanfang 
gibt 'SYNTAX ERROR' 


Vorzeichen von FAC 
Nierarchieflag 


Vorzeichen ins Y-Reg. 
Rücksprungadresse holen 
ird lerken 

Rücksprungadresse erhöhen 
nächstes Adressbyte holen 
w)d speichern 
Vorzeichen ufeder in Akku 
uid auf Stapel legen 


FAC runden 

FAC auf Stapel legen 

1. Byte retten 

2. Byte holen 
und retten 

3. Byte holen 
uid retten 

6.Byte holen 

und retten 

5.Byte holen 

wd retten 

Sprung auf Operation 

Flagwert für Operator 

Prioritätsflog retten 

>0? ja: SAE60 

n64? 

ja: SAE64 

prüft auf nuwrisch 
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AE64 

84 4B 

STY S4B 

AE66 

68 

PLA 

AE67 

4A 

LSR 

AE68 

85 12 

STA S12 

AE6A 

68 

PLA 

AE6B 

85 69 

STA S69 

AE60 

68 

PU 

AE6E 

85 6A 

STA WA 

AE70 

68 

PLA 

AE71 

85 6B 

STA S6S 

AE73 

68 

PLA 

Ar4 

85 6C 

STA S6C 

AE7« 

68 

PLA 

AE77 

85 60 

STA S60 

AE79 

68 

PLA 

AE7A 

85 6E 

STA S6E 

AE7C 

45 66 

EOR S66 

AE7E 

8S 6f 

STA $6F 

AE80 

A5 61 

LOA S61 

AE82 

60 

RTS 


Einsprung von M0B1, SB643 

AESS 6C OA 03 JHP (S030A) 

Einsprung von SAE83 

AE66 A9 00 LOA #S00 

AESS SS 00 STA UO 

AE8A 20 73 00 JSR S0073 

AE8D BO 03 BCS SAE92 

AESF 4C F3 BC JHP SBCF3 

AE92 20 13 B1 JSR SB113 

AE95 90 03 BCC ME9A 

AE97 4C 28 AF JHP SAF28 

AE9A C9 FF CMP «FF 

AE9C 00 OF BNE SAEAO 


Flag für Operator 
Akku von Stapel holen 
halbieren 
und absptichern 
ARG von Stapel holen 

1. Byte speichern 

2. Byte holen 
und speichern 

3. Byte holen 
und speichern 

4. Byte holen 
und speichern 

5. Byte holen 
und speichern 

6. Byte (Vorzeichen holen 
und speichern 
Vorzeichen von ARG und FAC 
verknüpfen und speichern 
Exponentbyte von FAC laden 
Rücksprung 

Nächstes Elenent eines 
Ausdrucks holen 


JHP SAEB6 


Wert laden und danit 
Typflag auf nusierisch setzen 
CHRGET nächstes Zeichen holen 
Ziffer? nein: SAE92 
Variable nach FAC holen 
Buchstabe? 
nein: JMP umgehen 
Variable holen 
BASIC-Code für Pi? 
nein: SAEAD 
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AE9E 

A9 A8 

LDA ma 

AEAO 

AO AE 

LDY «SAE 

AEA2 

20 A2 BB 

JSR $BBA2 

AEA5 

4C 73 00 

JHP S0073 



»•••1 




AEA8 

82 69 OF DA AI 


AEAD 

C9 

2E 

»••••« 

CMP 

«S2E 

AEAF 

FO 

DE 

BEQ 

SAE8F 

AEB1 

C9 

AB 

CHP 

«SAB 

AEB3 

FO 

58 

BEQ 

SAFOD 

AEB5 

C9 

AA 

CHP 

«SAA 

AEB7 

FO 

Dl 

BEQ 

SAE8A 

AEB9 

C9 

22 

Clf> 

«S22 

AEBB 

DO 

OF 

BNE 

SAECC 

AEBD 

A5 

7A 

LDA 

$7A 

AEBF 

A6 

TB 

LDY 

$78 

AEC1 

69 

00 

ADC 

«soo 

AEC3 

90 

01 

BCC 

$AEC6 

AEC5 

C8 


IHY 


AEC6 

20 

87 B6 

JSR 

$8687 

AEC9 

6C 

E2 B7 

JHP 

SB7E2 

AECC 

C9 

A8 

CHP 

«$A8 

AECE 

DO 

13 

BNE 

$AEE3 

AEDO 

AO 

18 

LDY 

«$18 

AED2 

00 

3B 

BNE 

SAFOF 

AED6 

20 

BF Bl 

JSR 

SBlBF 

AED7 

AS 

65 

LDA 

$65 

AED9 

69 

FF 

EOR #SFF 

AEDB 

A8 


TAT 


AEDC 

AS 

66 

LDA S66 

AEDE 

69 FF 

EOR 

«$FF 

AEEO 

6C 

91 B3 

JHP 

$B391 


Zeiger auf Konstante Pi 
(LOU und HIGH-Byte) 

Konstante in FAC holen 
CHSGET nächstes Zeichen holen 


Konstante Pi 3.16159265 


■.■ Dezimalpunkt? 
ja: $AE8F 

tutn Vorzeiehenueehsel 

ja: $Ae8A 

nein: SAECC 

LOU- und HIGH-Byte des 

Programazeigers holen 

und Übertrag addieren 

C=0: $AEC6 

HIGH-Byte erhöhen 

String übertragen 

PrograffSR. auf Stringende *1 

'HOT'-Code? 

nein: SAEES 

Offset des H.Flags in Tabelle 
unbedingter Sprung 

BASIC-Befehl NOT 
FAC nach INTEGER wandeln 
HIGH-Byte holen 
alle Bits undrehen 
und ins Y-Reg. 

LOU-Byte holen 

alle Bits invertieren 

nach FlieBkoana wandeln 
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AEE3 

C9 AS 

CHP MAS 

■FN'-Code? 

AEES 

DO 03 

BNE SAEEA 

nein: SAEEA 

AEE7 

4C F4 B3 

JHP SB3F4 

FN ausfOhren 

AEEA 

C9 B4 

CHP MB4 

■SCN'<Cocit 

AEEC 

90 03 

BCC SAEF1 

kleiner (keine StringFunkt.)? 

AEEE 

4C A7 AF 

JHP SAFA7 

holt String «ersten Parameter 

Einsprung von $B3F0 

holt Term in Ktannern 

AEF1 

20 FA AE 

JSR SAEFA 

prüft auf Klanner auf 

AEF4 

20 9E AO 

JSR SA09E 

FRHEVL holt Tern 




prüft auf Zeichen im B.-Text 


Einsprtng von 

$B20B, SB3C6« 

$B761 


AEF7 A9 29 

LOA «$29 


Klanner zu 

AEF9 2C 

.BYTE $2C 



Einsprung von 

$AEF1, $AFBt, 

$B3B9 


AEFA A9 28 

LOA «$28 


Klanner auf 

AEFC 2C 

.BYTE $2C 



Einsprung von 

$ACB2, $AFB7, 

$B07E, 

$B742, B7F1, $E20E 

AEFO A9 2C 

LOA «$2C 

1 

Konna 

Einsprung von 

$A76F, $A817, 

$A934. 

$A9AE. $AA80, AB8A 

SABAA, SABC8, 

$83CB, $B3E3 



AEFF AO 00 

LOY MOO 

Zei ger setzen 

AFOI Dl 7A 

CHP ($7A).r mit 

laufenden Zeichen vergl. 

AF03 DO 03 

8NE $AF08 

keine übereinstiiwjiig? 

AF05 4C 73 00 JHP $0073 

CHRGET nächstes Zeichen holen 
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Einsprung von SASOB, SASEB, SAB5F, BAE30, SB09C, SB136 
SB446, $E216 


AF06 

A2 OB 

LDX ifSOB 

AFOA 

4C 37 A4 

JHP SA437 

AFOO 

AO 1S 

LOY IBIS 

AFOF 

68 

PLA 

AF10 

68 

PLA 

AF11 

4C FA AD 

JHP SAOFA 


r»«i 


Einspnsig von SAF3B, SAFEE 


AF14 

38 


SEC 


AF15 

A5 

64 

LDA 

164 

AF17 

E9 

00 

SBC 

«SOO 

AF19 

AS 

65 

LDA 

S65 

AF1B 

E9 

AO 

SBC 

MAO 

AF1D 

90 

08 

BCC 

SAF27 

AF1F 

A9 

A2 

LDA 

MA2 

AF21 

ES 

64 

SBC 

164 

AF23 

A9 

E3 

LDA 

ME3 

Af2S 

ES 

65 

SBC 

165 

AF27 

60 


RTS 



Einsprung von SAE97 


AF26 

20 6B BO 

JSR SB08B 

AF2B 

6S 64 

STA 164 

AF2D 

84 6S 

STY S6S 

AF2F 

A6 45 

LDX 145 

AF31 

A4 46 

LDY 146 

AF33 

AS OO 

LDA %00 

AF35 

FD 26 

BEQ SAF5D 


Humr für 'SYNTAX ERROR' 
Fehlermeldung susgeben 

Offset Hierschfe-Code für V2W 
nächsten 2 Bytes vom 
Stapel entfernen 
zur Auswertung 

prüft auf Variable 
innerbatb des BASICs 


Carry setzen (Subtr.) 
Descrfptor holen 
liegt Descrfptor (S64/S65) 
zwischen SAOOO und SE32A? 

ja: dann Ca1, sonst RTS 
1. Wert laden 

1. Descriptorbyte abziehen 

2. Wert laden 

ixid Descriptorwert abziehen 
Rücksprung 

Variable holen 


Variable suchen 
Zeiger auf Variable 
bZH. Stringdescriptor 
als 

Variablememe speichern 
Typflag holen 
nuaerisch? 
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AF37 

A9 

00 

LOA 

«SOO 

AF39 

85 

70 

STA 

STO 

AF3B 

20 

14 AF 

JSR 

tAF14 

AF3E 

90 

IC 

BCC 

tAF5C 

AF40 

EO 

54 

CPX 

«S54 

AF42 

00 

16 

BNE 

tAF5C 

AF44 

CO 

C9 

cpy 

«tC9 

AF46 

DO 

14 

BNE 

tAF5C 

AF46 

20 

84 AF 

JSR 

tAF64 

AF4B 

64 

SE 

STY 

S5E 

AF4D 

88 


DEY 


AF4E 

84 

71 

STY 

S71 

AF50 

AO 

06 

LOY 

»t06 

AF52 

84 

5D 

STY 

t50 

AF54 

AO 

24 

LOY 

«t24 

AF56 

20 

68 BE 

JSR 

SBE68 

AF59 

4C 

6F B4 

JHP 

SB46F 

AF5C 

60 


RTS 


AFSO 

24 

OE 

BIT 

SOE 

AFSF 

10 

00 

BPL 

tAF6E 


•••••••••••••••••••••••••••• 


AF61 

AO 00 

LOY «tOO 

AF63 

Bl 64 

LOA (t64), 

AF65 

AA 

TAX 

AF66 

C8 

IHY 

AF67 

Bl 64 

LOA (t64), 

AF69 

A8 

TAY 

AF6A 

8A 

TXA 

AF6B 

4C 91 B3 

JHP SB391 


•••••••••••••••••••••••••••• 


AF6E 

20 14 AF 

JSR SAF14 

AF71 

90 20 

BCC tAFAO 

AF73 

EO 54 

CPX »t54 

AF75 

DO 1B 

BNE tAF92 

AF77 

CO 49 

CPY «t49 

AF79 

00 25 

BNE tAFAO 

AF7B 

20 64 AF 

JSR SAF84 


Uert laden und 
in Rundungsbyte für FAC 
Descn'ptor im Interpreter? 
nein 

■T'? (von TIt) 

nein: SAF5C 

■1$'? (von Tlt) 

nein: SAF5C 

Zeit nach FAC holen 

Flag für Exponentialdarst. *0 

verhindern (-SFF) 

Zeiger für Stringstartadresse 

Länge 6 für TIt 

speichern 

Zeiger auf Stellenwert 
erzeugt String Tlt 
bringt String in Str.bereich 
Rücksprieig 

INTEGER/' REAL Flag 
REAL? ja: tAF6E 

Integervariable holen 
Zeiger setzen 
Intgerzahl holen (1. Byte) 
ins X-Reg. 

Zeiger erhöhen 

2. Byte holen 

ins V-Register 

1. Byte in Akku holen 

und nach Fließkonna wandeln 

REAL-Variable holen 
Descriptor im Interpreter? 
nein 

■T'? (von TI) 
nein: tAF92 
■I'? (von TI) 
nein: tAFAO 
TIME in FAC holen 
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AF7E 

9S 

TYA 


AF7F 

A2 AO 

LDX 

«SAG 

AF61 

4C 4F BC 

JHP 

SBC4F 


Einsprung 

von SAF48, SAF7B 

AFBA 

2G 

DE 

FF 

JSR SFFDE 

AF87 

86 

64 


STX S64 

AF89 

84 

63 


STY S63 

AF8B 

85 

65 


STA S65 

AFSO 

AO 

00 


LOY «SOO 

AF8F 

84 

62 


STY $62 

AF91 

60 



RTS 

AF92 

EO 

53 


CPX #$53 

AF94 

DO 

OA 


BNE SAFAO 

AF96 

CO 

54 


CPY «S54 

AF98 

DO 

06 


BNE SAFAO 

AF9A 

20 

B7 

FF 

JSR SFFB7 

AF90 

4C 

3C 

BC 

JHP $eC3C 

AFAO 

A5 

»•»« 

64 


LOA S64 

AFA2 

A4 65 


LOY $65 

AFA4 

4C 

r***« 

A2 

r**« 

BB 

JHP SBBA2 


Einsprung von $AEEE 


AFA7 

OA 

ASL 

AFA8 

48 

PHA 

AFA9 

AA 

TAX 

AFAA 

20 73 00 

JSR S0073 

AFAD 

EO 8F 

CPX IfSSF 

AFAF 

90 20 

BCC SAFDI 


Akku >0 setzen 
Exponentbyte für FAC 
FAC linksbündig «wehen 

Zeit holen 


TIME holen 

1. Byte nach FAC 

2. Byte nach FAC 

3. Byte nach FAC 
Wert Laden (G) und 
als 4. Byte nach FAC 
Rücksprung 

'S'? 

nein: SAFAO 
'T'? 

nein: SAFAO 

Status holen 

Byte in FlieBkcnswforrot 

REAL-Variable holen 
LOU- und HIGN-Byte der 
Variablenadresse 
Variable in FAC holen 

Funktionsberechnung 


Funktionseode mal 2 
auf den Stapel retten 
und ins X-Register 
CHRGET nächstes Zeichen 
numerische Funktion? 
ja: SAFD1 
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APB1 

20 FA AE 

JSR MEFA 

APK 

20 9E AD 

JSR SAD9E 

AFB7 

20 FD AE 

JSR SAEFD 

AFBA 

20 BF AD 

JSR SAD8F 

AFBO 

68 

PIA 

AFBE 

AA 

TAX 

AFBF 

A5 65 

LDA S65 

AFC1 

AS 

fHA 

AFC2 

A5 64 

LDA $64 

AFC6 

48 

PHA 

AFC5 

SA 

TXA 

AFC6 

48 

PHA 

APC7 

20 9E B7 

JSR $879E 

APCA 

68 

PLA 

AFCB 

AS 

TAY 

AFCC 

SA 

TXA 

AFCO 

48 

PHA 

AFCE 

4C D6 AF 

JHP SAFD6 

*••«*« 



AFP1 

20 Fl AE 

JSR MEFl 

Af06 

68 

PIA 

AF05 

A8 

TAY 

Einsprung von SAFCE 

AFD6 

B9 EA 9F 

LOA S9FEA.Y 

AFD9 

85 55 

STA $55 

AFOB 

89 EB 9F 

LOA $9FEB.¥ 

AFDE 

85 56 

STA $56 

AFEO 

20 54 00 

JSR $0054 

AFE3 

4C 80 AD 

JHP $AD8D 

•••*•••*•***#*••»«••*«••**** 

AFE6 

AO FF 

LOY «$FF 

AFE8 

zc 

.BYTE $2C 


Stringfunktion, String und 
ersten Psraneter 
prüft auf Klanmer auf 
FRMEVL holen beliebigen Term 
prüft auf Könne 
prüft auf String 
Fw>ktion«tol(en leftS, r$, mS 
Akku nach X holen 
Adresse des 
Stringdescr i p tors 
holen und auf den Stapel 
retten (LOU uid MICH) 

Akku wiederholen 

Token auf den Stapel retten 

holt Byte-Wert (2. Parameter) 

Token Surückholen 

und ins T-Reg. 

2. Bytewert in den Akku laden 
ixid auf den Stapel retten 
Routine ausführen 

ninerisehe Funktion ausuerten 
holt Term in Klammern 
BASrc-Code für Fmktien holen 
und als Zeiger ins Y-Reg. 


Vektor für Funktionsbe* 
rachfwig holen und speichern 
2.Byte holen 
und speichern 
Funktion ausführen 
prüft auf nuaerisch 

BASIC-Befehl OR 
Flag für OR 
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AFE9 

>*••1 

AD 

00 

LOY 

«soo 

AFEB 

84 

OB 

STY 

SOB 

AFEO 

20 

BF Bl 

JSR 

SB1BF 

AFFO 

AS 

64 

LDA 

S64 

AFF2 

45 

OB 

EOR 

SOB 

AFF4 

8S 

07 

STA 

S07 

AFF6 

AS 

65 

IDA 

S65 

AFF8 

4S 

OB 

Eoe 

SOB 

AFFA 

6S 

08 

STA 

$08 

AFFC 

20 

FC SB 

JSR 

SBBFC 

AFFF 

20 

BF 61 

JSR 

SB1BF 

BOOZ 

AS 

65 

LDA 

S65 

BO(K 

45 

OB 

EOR 

SOB 

B006 

2S 

08 

AND 

SOS 

BOOS 

45 

OB 

EOR 

SOB 

booa 

A8 


TAY 


BOOS 

A3 

64 

LDA 

S64 

SOOO 

45 

08 

EOR 

SOS 

BOOF 

25 

07 

AND 

S07 

Bon 

45 

OB 

EOR 

SOB 

B013 

40 

91 B3 

JHP 

SB391 

B016 

»***« 

20 

»***•»*1 

90 AO 

JSR 

r****** 

SAD90 

B019 

BO 

13 

BCS 

SB02E 

boib 

AS 

6E 

IDA 

S6E 

B01D 

09 

7F 

ORA 

M7F 

B01F 

25 

6A 

ANß 

S6A 

BQ21 

85 

6A 

STA 

S6A 

B023 

A9 

69 

LDA 

«S69 

B025 

AO 

00 

LOY 

MOO 

B027 

20 

SB SC 

JSR 

SBC5B 

B02A 

AA 


TAX 


B02B 

4C 

61 BO 


SB061 


B02E 

A9 00 

LDA #S00 

B030 

85 OD 

STA *00 

6032 

C6 4D 

DEC $4D 


BASIC-Befehl AND 
Flag für AMD 
Flag setzen 

FAC nach INIEGER wandeln 

ersten Wert holen 

mit Flag verknüpfen 

und speichern 

zweiten Wert holen 

mit Flag verknüpfen 

und speichern 

ARG nach FAC 

FAC nach Integer 

zweites Byte holen 

mit Flag verknüpfen 

logische AHO-Verknüpfung 

mit Flag verknüpfen 

ins Y'Reg. retten 

erstes Byte holen 

ait Flag verknüpfen 

logische AND-Verknüpfung 

mit Flag verknüpfen 

wieder in FlieSkonna wandeln 

Vergleich 

prüft auf identischen Typ 
String: dann weiter 
Wert holen 

ARG in Speicherfornat 
wandeln und 
wieder abapeichem 
Adresse von ARG 
(LOU> und HIGH-Byte} 
Vergleich ARG mit FAC 

Ergebnis in FAC holen 

Stringvergleich 
Wert laden und damit 
Stringflag loschen 
Dperatormaske - 1 








Das ROSf-Lisiing 


363 


B034 

20 

A6 B6 

JSR SB6A6 

FRESTR 

B037 

SS 

61 

STA 161 

StringUnge holen 

B039 

86 

62 

STK 162 

LOU- und HIGH-Byte der 

B03B 

84 

63 

STY 163 

Stringadresse speichern 

B030 

A5 

60 

LOA 160 

LOU* und HlGH'Byte des 

B03F 

A4 

60 

LOY 160 

Zeigers auf zweiten String 

B041 

20 

AA B6 

JSR SB6AA 

FRESTR 

B044 

86 

6C 

STK 16C 

Adresse des 

B046 

84 

60 

STY 160 

2. Strings 

B04B 

AA 


TAX 

Länge des 2.Strings merken 

B049 

3B 


SEC 

Carry setzen (Subtraktion) 

B04A 

ES 

61 

SBC 161 

Längen vergleichen 

B04C 

FO 

OB 

BEQ 1B056 

gleich: 1B0S6 

B04E 

A9 

01 

LOA «101 

Wert für: 1.String länger 

BOSO 

90 

04 

BCC 1B056 

2.String kürzer 

B052 

A6 

61 

LOX 161 

Länge des 1.Strings 

B054 

A9 

FF 

LOA «SFF 

Uert für: 1.String kürzer 

B056 

B5 

66 

STA 166 

Flag für gleichen String, 

BOSB 

AO 

FF 

LOY «SFF 

wenn beide Strings identisch aber 

BOSA 

EB 


!NX 

ungleich lang sind 

B05B 

08 


INY 

Zeiger erhöhen 

B05C 

CA 


OEX 

Stringeride? 

B050 

DO 

07 

BNE SB066 

nein: weiter 

B05F 

A6 

66 

LOX 166 

Vorzeichenbyte holen 

Einsprung 

von SB02B 


B061 

30 

OF 

BMI 16072 

negativ: SB072 

B063 

1B 


CLO 

Carry löschen 

B064 

90 

00 

BCC 16072 

ifäxdingter Sprung 

B066 

Bl 

60 

LOA (160,Y 

Vergleich der Strings 

B068 

Dl 

62 

CMP (162),Y 

zeichenweise 

B06A 

FO 

EF 

BEQ SB05B 

gleiche Zeichen: weiter 

B06C 

A2 

FF 

LOX «IFF 

Uert laden 

B06E 

BO 

02 

BCS 16072 

ud Vergleich beenden 

B070 

A2 

01 

LOX «101 

Uert laden 

B072 

E8 


INX 

uxl UM 1 erhöhen 

B073 

8A 


TXA 

Uert in den Akku 

B074 

2A 


ROL 

linksverschieben, Bit 1, 2«11 

BO 75 

25 

12 

ANO 112 

mit Vorzeichen verknüpfen 
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8077 

FO 02 

BEO SB07B 

sO: SB078 

B079 

A9 FF 

LDA »FF 


S07B 

AC 3C BC 

JMP S8C3C 

Ergebnis nach FAC holen 

BOTE 

20 FD AE 

JSR SAEFD 

CHKCOM prüft auf Kom« 

**************************** 

BASIC-Befehl D1M 

B0S1 

AA 

TAX 

nächstes Zeichen 

B0fi2 

20 90 BO 

JSR SB090 

Variable dimensionieren 

BOSS 

20 79 00 

JSR $0079 

CHRGOT letztes Zeichen holen 

BOSS 

00 F4 

BNE SB07E 

nicht Ende: zur nächsten Var 

B08A 

60 

RTS 

Rücitsprung 


••••••••••••••••*•*••••••••• Variable holen 


Einsprung von SA9A5, SAC15, SAD24, SAF2fi, SB3C0 


BOSB 

A2 

00 


LDX 

»00 

Flag für nicht dimensionieren 

B08D 

20 

79 00 

JSR 

S0079 

CHRGOT letztes Zeichen holen 

Einsprung 

von $B062 



B090 

86 

OC 


STX 

soc 

OIH-Flag setzen 

Einsprung 

von SB3EA 



B092 

SS 

4S 


STA 

$4S 

Variablermstne 

B094 

20 

79 

00 

JSR 

S0079 

CHRGOT letztes Zeichen holen 

B097 

20 

13 

Bl 

JSR 

SB113 

prüft auf Buchstabe 

B09A 

BO 

03 


BCS 

S609F 

ja: SB09F 

B09C 

4C 

08 

AF 

JMP 

SAFOS 

■SYNTAX ERROR' 

B09F 

A2 

00 


LOX 

«soo 

Wert laden und damit 

BOA1 

86 

OD 


STX 

soo 

Stringflag loschen 

B0A3 

86 

OE 


STX 

SOE 

Integerflag ISschen 

BOAS 

20 

73 

00 

JSR 

S0073 

CHRGET nächstes Zeichen holen 

BOAS 

90 

OS 


BCC 

SBOAF 

Ziffer? 

BOAA 

20 

13 

B1 

JSR 

SB113 

prüft auf Buchstabe 

BOAD 

90 

OB 


BCC 

SBOBA 

nein: SBOBA 

BOAF 

AA 



TAX 


zweiter Buchstabe des Names 

BOBO 

20 

73 

00 

JSR 

S0073 

CHRGET nächstes Zeichen holen 
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B0B3 

90 

PB 

BCC 

SBOBO 

BOBS 

20 

13 B1 

JSR 

$B113 

BOBS 

BO 

F6 

BCS 

SBOBO 

BOBA 

C9 

24 

CMP 

in2t 

BOBC 

DO 

06 

BNE 

SB0C4 

BOBE 

A9 

PF 

LOA 

#SPF 

BOCO 

8S 

GO 

STA 

SOD 

B0C2 

DO 

10 

BNE 

SB0D4 

B0C4 

C9 

2S 

CHP 

M2S 

B0C6 

DO 

13 

BNE 

SBOOB 

BOCS 

AS 

10 

LOA 

S1D 

BOCA 

DO 

DO 

BNE 

SB09C 

BOCC 

A9 

SO 

LOA 

#S80 

BOCE 

SS 

OE 

STA 

SOE 

BOOO 

OS 

4S 

ORA 

S4S 

B002 

SS 

4S 

STA 

S4S 

BDD4 

SA 


TXA 


BOOS 

09 

80 

ORA 

nso 

B0O7 

AA 


TAX 


BODB 

20 

73 00 

JSR 

S0O73 

BOOB 

86 

46 

STX 

S46 

BODD 

38 


SEC 


BODE 

OS 

10 

ORA 

S10 

BOEO 

E9 

2S 

SBC 

#S2S 

B0E2 

DO 

03 

BNE 

SB0E7 

B0E4 

4C 

01 Bl 

JHP 

SB1D1 

B0E7 

AO 

00 

LDY 

«SOO 

BOEO 

84 

ID 

STY 

S10 

BOEB 

AS 

20 

LDA 

S2D 

BOED 

A6 

2E 

LDX 

S2E 

BOEF 

86 

60 

STX 

S60 

B0F1 

8S 

SP 

STA 

SSP 

B0P3 

E4 

30 

CPX 

$30 

B0P5 

DO 

04 

BNE 

SBOFB 

B0F7 

C5 

2F 

CHP 

S2F 

B0F9 

PO 

22 

BEO 

SBIID 

BOFB 

AS 

4S 

LDA 

S4S 

BOPD 

D1 

SF 

CCP 

(SSFJ.Y 

BOPF 

DO 

OS 

BNE 

$B1D9 


Ziffer? 

prüft auf Buchstabe 

ja: weitere Zeichen überlesen 

■$■ Code? 

nein: BB0C4 

Wert laden und 

Stringflag setzen 

Sprung 

■X' Code? 

nein: BBODB 

Integer ertai<3t? 

nein: 'SYNTAX ERROR' 

Wert für Integer laden 
und Integerflag setzen 
Bit 7 im 1.Zeichen setzen und 
speichern (Bit7«1: Integer) 

X nach Akku speichern 

Bit 7 im 2.Buchstaben setzen 

X-Reg. zurückholen 

CHRGET nächstes Zeichen holen 

zweiten Buchstaben speichern 

Peldvariablen erlaubt? 

wenn nicht, Bit7 setzen 

'(■-Wert abziehen 

nicht Xlaniier auf? 

dimensionierte Variable holen 

Wert laden und 

FN-Plag * 0 setzen 

Zeiger auf Variablenanfang 

holen CLOU und HIGH) 

und zum 

Suchen merken 

Suchzeiger ■ Variablenanfang 
nein: SBOPB 

Ende der Variablen erreicht? 
ja: nicht gefunden, anlegen 
ersten Buchstaben des Namens 

mit Tabelle vergleichen 
nein: weitersuchen 
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B101 

AS 46 

LDA 

$46 

B103 

CS 

INY 


B106 

01 5F 

CMf> 

{$SF) 

B106 

fO 70 

BEQ 

$B165 

BIOS 

88 

DEY 


B109 

18 

CLC 


B10A 

AS 5F 

LDA 

$5F 

B10C 

69 07 

ADC 

«$07 

B10E 

90 El 

BCC 

$B0F1 

B110 

ES 

IHX 


B111 

00 DC 

BHE 

$B0EF 


Einsprung von SAE92, $8097, 


B113 

C9 41 

CHP #$41 

BUS 

90 05 

BCC SB11C 

B117 

E9 SB 

SBC «SSB 

B119 

30 

SEC 

B11A 

E9 AS 

SBC #$A5 

B11C 

60 

RTS 


*••••*••••••••••************ 


B110 

68 

PLA 

BtlE 

46 

PHA 

B11F 

C9 2A 

CNP #$2A 

B121 

DO 05 

BNE $B12B 

B123 

A9 13 

LDA #$13 

6125 

AO BF 

LOY «$BF 

B127 

60 

RTS 

B126 

AS 45 

LDA $45 

B12A 

A4 46 

LDY $46 

B12C 

C9 54 

CHP #$54 

B12E 

00 OB 

BNE $B13B 

B130 

CO C9 

CPY «$C9 

B132 

FO EF 

BEQ $B123 

B134 

CO 49 

CPY #$49 

B136 

DO 03 

BNE $B13B 

B13S 

4C 08 AF 

JHP $AF06 


ztwitan Buchstaben 
Zeiger erhöhen 
Y vergleichen 
gleich: gefunden 
Zeiger vermindern 
Carry setzen (Addition) 

Zeiger um 7 

erhöhen (2»5 Byte REAL Var.) 
(Lange eines V.-Eintrags) 
Übertrag addieren 
weiter suchen 

prüft auf Buchstabe 

SBOAA, SeOBS 

■A'-Code? (Buchstabeneode) 
nein: SBIIC sonst C « 0 
■Z'+1 

ja: dann C « 1 
nein: dann C * 0 
Rücksprung 

Variable anlegen 

Aufrufadresse prüfen 
Aufruf von FRHEVL7 
nein: dann neu anlegen 
Zeiger auf Konstante 0 
(LOW md HIGH) 

Rilcksprung 

LOW- utd HIGH-Byte 

des Variablennaines 

■T'-Code? 

nein: $B13B 

■I$'-Code? 

ja: TI$ 

■I'-Code? 
nein: $B13B 
■SYNTAX ERROR' 
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B13B 

C9 

53 

CHP 

«SS3 

B130 

00 

04 

BNE 

SBU3 

B13F 

CO 

54 

CPY 

«$54 

B141 

FO 

FS 

BEO 

SB138 

»143 

AS 

2f 

LOA 

S2F 

BUS 

A4 

30 

LOY 

UO 

B147 

8S 

5F 

STA 

S5F 

B149 

84 

60 

STY 

S60 

BUB 

AS 

31 

LOA 

$31 

B14D 

A4 

32 

LOY 

$32 

»UF 

B5 

SA 

STA 

S5A 

B151 

84 

SB 

STY 

S5B 

B1S3 

18 


CLC 


B1S4 

69 

07 

ADC 

«S07 

B1S6 

90 

01 

BCC 

$8159 

B158 

C8 


INY 


B1S9 

8S 

58 

STA 

$58 

S1SB 

B4 

59 

STY 

$S9 

BISO 

20 

B8 A3 

JSR 

$A3B8 

B160 

AS 

58 

LOA 

$58 

B163 

A4 

59 

LOY 

$59 

B164 

C8 


INY 


B16S 

85 

2F 

STA 

$2F 

8167 

B4 

30 

STY 

$30 

B169 

AO 

00 

LOY 

«soo 

B16B 

AS 

4S 

LOA 

$45 

8160 

91 

5F 

STA 

C$5F), 

B16F 

C8 


INY 


B170 

AS 

46 

LOA 

$46 

B172 

91 

SF 

STA 

C$5F). 

8174 

A9 

00 

LOA 

Il>$00 

B176 

C8 


INT 


8177 

91 

SF 

STA 

<$5F), 

»179 

C8 


INY 


B17A 

91 

SF 

STA 

($5F). 

ei7c 

CS 


INT 


8170 

91 

SF 

STA 

C$5F>, 

B17F 

C8 


INY 


B180 

91 

SF 

STA 

(SSF), 

B182 

C8 


INY 



•S'-Code? 
nein: SB143 
'T'-C«te? 

ST, denn 'SYNTAX ENRON' 

LOW- levl HIGK-Byte des 
Zeigers auf Arreytaf>el(e 
Laden und 
merken 

LOH- und MIGH-Byte des 
Zeigers auf Ende der 
Arraytabette 
merken 

Carry fOr Addition setzen 
um 7 verschieben fOr Anlage 
einer neuen Variablen 
Übertrag addieren 
LOU- und MIGH-Byte des 
neuen Blockendes speichern 
Block verschieben 
Werte 

wiederholen 
und damit 

Zeiger auf Arraytabelle 
neu setzen 
Zeiger setzen 

erster Buchstabe des Hamens 

und speichern 

Zeiger erhöhen, 

zweiten Buchstaben holen 

und abspeichern 

Nullwert laden 

Zeiger erhöhen 

nächsten 5 Werte 

der Variable auf 0 setzen 

3. Byte speichern 

Zeiger erhöhen 

3. Byte speichern 
Zeiger erhöhen 

4. Byte speichern 
Zeiger erhöhen 
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B183 

91 5F 

STA (S5F},r 

S. Byte speichern 

B18S 

AS SF 

LOA S5F 

Zeiger auf Variablenwert 

B187 

18 

OLG 

Carry löschen (Addition) 

B188 

69 02 

ADC ««02 

zwei für Namen addieren 

B18A 

A6 60 

LOY S60 

in Zeiger auf Variable 

B18C 

90 01 

BCC SB18F 


B18E 

C8 

INY 

Zeiger auf erstes Byte 

B18F 

85 67 

STA S67 

als Variablenzeiger 

B191 

86 68 

STY S68 

nach $67/68 speichern 

B193 

60 

RTS 

Rucksprung 




berechnet Zeiger auf erstes 
Arrayelenent 

Efnsprung von SB2S3, SB261 


B194 

AS OB 

IDA SOB 

Anzahl der Dimensionen 

Bt96 

OA 

ASL 

mal 2 

B197 

69 OS 

ADC #SOS 

plus 5 

B199 

6S SF 

ADC SSF 

Zu SSF und 

B19B 

A6 60 

LOY S60 

S60 addieren 

B190 

90 01 

BCC SB1A0 

Erhöhung ungehen 

B19F 

C8 

INY 

Übertrag addieren 

B1A0 

8S S8 

STA SS8 

Ergebnis-Zeiger nach 

B1A2 

86 59 

STY S59 

SS8/S9 speichern 

B1A4 

60 

RTS 

Rücksprung 

*****•*•«••••*«««*««««*«**** 


B1A5 

90 80 00 

00 00 

konstante -32768 




Ufwandlung FAC nach Integer 

B1AA 

20 BF Bl 

JSR SB1BF 

FAC nach Integer wandeln 

B1AD 

AS 64 

LDA S66 

LOU-Byte 

B1AF 

A6 6S 

LDY S65 

HtGH-Byte 

B1B1 

60 

RTS 

Rücksprung 


Ausdruck holen und 

nach Integer 
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Einsprtng von SB1E3 


B1B2 

20 

73 00 

JSR S0073 

CHRGET nächstes Zeichen holen 

B1B5 

20 

9E AO 

JSR SA09E 

FRMEVL, Ausdruck eusuerten 

Efnsprung 

von SB7A1 


BIBB 

20 

60 AD 

JSR SA080 

prüft auf nuwrisch 

B1BB 

AS 

66 

LOA S66 

Vorzeichen? 

B1B0 

30 

OD 

BMI SB1CC 

negativ: dann ‘ILLEGAL QUANT' 

Einsprung 

von SA9C7, SAED4, 

SAFEO. SAFFF, SBIAA 

B1BF 

AS 

61 

LOA S61 

Exponent 

eici 

C9 

90 

CHP «690 

Betrag größer 3276B? 

B1C3 

90 

09 

BCC SB1CE 

nein: SB1CE 

eic5 

A9 

AS 

LOA «SA5 

Zeiger auf 

B1C7 

AO 

Bl 

LOY «SB1 

Konstante '3276B setzen 

B1C9 

20 

SB ac 

JSR SBC5B 

Vergleich FAC mit Konstante 

B1CC 

DO 

7A 

BNE SB24B 

ungleich: ‘ILLEGAL OUANT‘ 

B1CE 

4C 

9B ec 

JHP SBC9B 

wandelt Fließkonna in Integer 





dicnensionierte Variable holen 

Einsprung 

von SBQE4 


B1D1 

AS 

OC 

LDA SOC 

DIH Flag 

B1D3 

05 

OE 

ORA SOE 

Integer Flag 

B1D5 

4B 


PHA 

auf Stapel retten 

B1D6 

AS 

00 

LOA SOD 

String Flag 

B1DB 

4B 


PHA 

auf Stapel retten 

B109 

AO 

00 

LOY #600 

Anzahl der Indizes 

B1DB 

96 


TYA 

in Akku und 

B1DC 

4B 


PHA 

auf Stapel retten 

BiOD 

AS 

46 

LOA S46 

2. Buchstabe des Variablenn. 

B1DF 

4B 


PHA 

und retten 

B1E0 

AS 

45 

LOA S45 

1. Buchstabe der Variablenn. 

B1E2 

4B 


PHA 

retten 

B1E3 

20 

B2 Bl 

JSR SBtB2 

Index holen und nach Integer 

B1E6 

60 


PLA 

die zwei 
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64 Inlern 


B1E7 

85 45 

STA 

S45 

B1E9 

68 

PLA 


B1EA 

85 46 

STA 

S46 

81EC 

68 

PLA 


81ED 

A8 

TAT 


81EE 

BA 

TSX 


BIEf 

BO 02 01 

LOA 

S0102,X 

81F2 

48 

PHA 


B1F3 

BO 01 01 

LOA 

SOIOl.X 

B1F6 

48 

PHA 


B1F7 

A5 64 

LOA 

S64 

B1F9 

90 02 01 

STA 

S0102.X 

B1FC 

A5 65 

LOA 

S65 

BIFE 

90 01 01 

STA 

$0101,X 

8201 

C8 

INT 


8202 

20 79 00 

JSR 

$0079 

B205 

C9 2C 

CHP 

#S2C 

B207 

FO 02 

BEO 

$B1DB 

8209 

84 08 

STY 

SOB 

B208 

20 F7 AE 

JSR 

$AEF7 

B20E 

68 

PLA 


B20F 

85 00 

STA 

$00 

8211 

68 

PLA 


8212 

85 OE 

STA 

SOE 

8216 

29 7F 

AHO 

M7F 

8216 

85 OC 

STA 

$0C 

8218 

A6 2F 

LOX 

S2F 

821A 

A5 30 

LOA 

$30 

821C 

86 5F 

STX 

S5F 

821E 

85 60 

STA 

$60 

8220 

C5 32 

CMP 

$32 

8222 

00 04 

8HE 

$8228 

8224 

E4 31 

CPX 

$31 

8226 

FO 39 

8EQ 

$8261 

8228 

AO 00 

LOT 

8$00 

822A 

81 5F 

LOA 

($5F),T 

822C 

C8 

INT 


8220 

CS 45 

CHP 

$45 

822F 

OO 06 

8HE 

$8237 

8231 

A5 46 

LOA 

$46 


Bytes des 

Varfablennamens zurückholen 

und wieder sbspeichern 

Anzahl der Indizes 

holen und ins Y-Reg. 

Stapelzeiger als Zeiger setzen 

Variablenflags 

aus de« Stapel kopieren 

und oben auf den 

Stapel legen 

anstelle der 

Variablenflags 

Index LOW und HIGH in 

den Stapel kopieren 

Anzahl der Indizes erhöhen 

CHRGOT letztes Zeichen holen 

',' Kowns? 

Ja: dann nächsten Index 

Anzahl der Indizes speichern 

prüft auf Klanrner zu 

Flags von 

Stapel 

zurückholen 

und abspeicliern 

Integerflag herstellen 

und abspeicliern 

LOW- und KIGH-8yte des 

Zeigers auf Arraytabelle 

holen und 

Zeiger merken 

Ende erreicht? 

nein: weiter 

mit Tabellenende vergleichen 

ja: nicht gefunden, anlegen 

Zeiger setzen 

Namen aus Tabelle holen 

Zeiger erhöhen 

mit ges. Kamen vergleichen 

ia>gleich: S8237 

Vergleich mit 
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B233 

01 

5f 

CMP ($5F),Y 

ZMeiten Buchstaben 

B235 

FO 

16 

BEQ $B240 

gefunden: $B240 

B237 

C8 


INT 

Zeiger erhöhen 

B238 

B1 

5F 

LOA ($5F),T 

Suchzeiger zur 

B23A 

18 


CLC 

FeldUnge 

B23B 

65 

5F 

ADC S5F 

Addieren 

B230 

AA 


TAX 

ergibt Zeiger auf 

B23E 

C8 


INT 

nichstes Array 

B23F 

Bl 

5F 

LOA ($5F),T 

gleiches System 

B241 

65 

60 

ADC $60 

mit zweiten Byte 

B243 

90 

07 

BCC $B21C 

und weiter suchen 

Einsprung 

von SB308 


B245 

A2 

12 

LDX «$12 

Nuraner für 'bed subscript' 

B247 

2C 


.BYTE $2C 


EiMsprUiig 

von $AA24, $8798, $B9F1 

B248 

A2 

OE 

LDX #$0E 

Nwnrer für 'illegal quanti.' 

B24A 

4C 

37 A4 

JHP $A437 

Fehlermeldung ausgeben 

B240 

A2 

13 

LDX «$13 

Hcjiner für 'redim'd array' 

B24F 

A5 

OC 

LDA $0C 

DIM-Flag null? 

B251 

00 

F7 

BNE $B24A 

nein: dann Fehlermeldung 

B253 

20 

94 Bl 

JSR $B194 

Zeiger auf 1.Arrayelement 

B256 

A5 

OB 

LDA $0B 

Zahl der gefundenen Dinensio. 

B258 

AO 

04 

LDY #S04 

Zeiger setzen 

B25A 

01 

5F 

CHP {$5F),T 

nit Dimensionen des Arrays 





vergleichen 

B25C 

00 

E7 

BNE $B245 

ungleich: ’bad subscript* 

B25E 

4C 

EA B2 

JHP $B2EA 

sucht gewünschtes Element 


»***1 



Arrayvariable anlegen 

B261 

20 94 Bl 

JSR $B194 

Länge des Arraykopfs 

B264 

20 

08 A4 

JSR $A408 

prüft auf genügend Platz 

B267 

AO 

00 

LDY «$0O 

Zeiger für Polynom- 

B269 

84 

72 

STY $72 

auswertung neu setzen 

B26B 

A2 05 

LDX «$05 

Uert für VariablenlängeCREAL) 

B260 

A5 

45 

LDA $45 

erster Buchstabe des Namens 
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64 Intern 


B26F 

91 5F 

STA 

($5F).Y 

B271 

10 01 

BPL 

$6274 

B273 

CA 

DEX 


B274 

CB 

IHY 


B27S 

AS 46 

LDA 

$46 

B27r 

91 5F 

STA 

($5F),Y 

B279 

10 02 

BPL 

$B27D 

B27B 

CA 

OEX 


B27C 

CA 

OEX 


B27D 

66 71 

STX 

$71 

B27F 

AS OB 

LDA 

$0B 

B2S1 

C6 

INV 


6262 

C6 

INV 


6263 

C8 

INY 


6264 

91 5F 

STA 

($5F),Y 

B286 

A2 OB 

LDX 

«$0B 

6268 

A9 00 

LDA 

«$00 

S28A 

24 OC 

BIT 

$0C 

B28C 

50 06 

BVC 

$6296 

B26E 

68 

PLA 


B26F 

16 

CLC 


6290 

69 01 

AOC 

M01 

6292 

AA 

TAX 


6293 

68 

PLA 


B294 

69 00 

AOC 

«SOO 

6296 

C8 

INY 


6297 

91 5F 

STA 

($5F>.Y 

6299 

CB 

IMY 


629A 

6A 

TXA 


6296 

91 5F 

STA 

($5F),Y 

62W 

20 4C 63 

JSR 

$634C 

62A0 

66 71 

STX 

$71 

B2A2 

65 72 

STA 

$72 

62A4 

A4 22 

LOY 

$22 

62A6 

C6 OB 

DEC 

$06 

62A6 

DO OC 

BNE 

$6286 

B2AA 

65 59 

ADC 

$59 

B2AC 

BO 50 

BCS 

$B30B 

B2AE 

85 59 

STA 

$59 

B2B0 

AB 

TAT 



in Arraytsbelle 
kein Integer? 
bei Integerzaht 
Bytes vermindern 
zweiter Buchstabe 
in Tabelle schreiben 
kein String oder Integer? 
entgültige 

Variablenlänge hersteilen 

und speichern (2, 3 oder 5) 

Anzahl der Dimensionen holen 

Zeiger 

un 3 

erhöhen 

im Arrayhesder speichern 
11, Defaultuert für 
Dimensionierung 
Aufruf durch DlM*Befehl? 
nein: $8296 

Dimension vom Stapel holen 
Carry löschen (Addition) 
eins addieren 
uid ins X*Reg. 

2.Wert holen 

Übertrag addieren 

Zeiger erhöhen 

und speichern 

Zeiger erhöhen 

I.Wert wieder in den Akku 

und ebenfalls speichern 

Platz für Dimensionen berech. 

LOW- und HIGH-Byte des 

Variablenende*Zeigers merken 

Zeiger auf Arrayheader 

weitere Dimensionen? 

ja: SB286 (Schleifenbeginn) 

Feldlänge plus Startadresse 

Überlauf: '(XJT OF MEMORY' 

Wert wieder speichern 
und ins Y-Reg. bringen 
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B2B1 

SA 


TXA 


B2B2 

65 

58 

ADC 

«58 

B2B4 

90 

03 

BCC 

SB2B9 

B2B6 

C8 


INT 


B2B7 

FO 

52 

BEQ 

SB30B 

B2B9 

20 

08 A4 

JSR 

CO 

i 

B2BC 

85 

31 

STA 

«31 

B2BE 

84 

32 

STY 

«32 

B2C0 

A9 

00 

LOA 

MOO 

B2C2 

E6 

72 

INC 

«72 

B2C4 

A4 

71 

LOT 

«71 

B2C6 

FO 

05 

BEQ 

«B2CO 

B2C8 

88 


DEY 


B2C9 

91 

58 

STA 

(«58),T 

B2CB 

00 

FB 

BNE 

SB2C8 

B2C0 

C6 

59 

DEC 

«59 

B2CF 

C6 

72 

DEC 

«72 

B201 

00 

F5 

BNE 

SB2C8 

B203 

E6 

59 

INC 

«59 

B20S 

38 


SEC 


B206 

A5 

31 

LDA 

«31 

B208 

E5 

5F 

SBC 

S5F 

B2DA 

AD 

02 

LDY 

««02 

B20C 

91 

SF 

STA 

(«5F).Y 

B20E 

A5 

32 

LDA 

«32 

B2ED 

C8 


INY 


B2E1 

E5 

60 

sec 

«60 

B2E3 

91 

5F 

STA 

(«5F),Y 

B2E5 

A5 

OC 

LOA 

«OC 

B2E7 

00 

62 

BNE 

«B34B 






B2E9 

C8 


INY 


Einsprung von SB2SE 


B2EA 

Bl 

5F 

LOA 

(«5F>.T 

B2EC 

85 

OB 

STA SOB 

B2EE 

A9 00 

LDA 

«SOO 

B2F0 

85 

71 

STA 

«71 


Variablenendzeiger in Akku 
2.Zeichen addieren 
Überlauf: Platz prüfen 
Endadresse erhöhen 
Überlauf: 'OUT OF MEMORY' 
prüft auf Speicherplatz 
Zeiger auf Ende 
der Arraytabelle setzen 
Array mit Nullen füllen 

1 .Schleifenende? 
ja: SB2CD 
Zeiger vermindern 
Nullwert setzen 
fertig: $B2C8 


Carry setzen (Subtr.) 
Zeiger auf Feldende 

- Zeiger auf Arrayheader 
Zeiger setzen 
Arraylänge LOW 

Zeiger auf Feldende 
Zeiger erhöhen 

- Zeiger auf Arrayheader 
Arraylänge MICH 

Aufruf vom DIM-Befehl7 
ja: RTS 

Arrayelcment suchen 
Zeiger erhöhen 


Zahl der Dimensionen 
speichern 

Nullwert laden und 
Zeiger auf Polynom* 
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64 Intern 


B2F2 

85 

72 

STA $72 

auswertung loschen 

B2F4 

C8 


INT 

Zeiger erhöhen 

B2F5 

68 


PIA 

1. Indexwert von Stapel 

B2F6 

AA 


TAX 

holen und irts X*Reg. bringen 

B2F7 

85 

64 

STA S64 

Wert speichern 

B2F9 

68 


PLA 

2. IndexMert holen 

B2FA 

85 

65 

STA $65 

und speichern 

B2FC 

01 

5F 

CMP {$5F),T 

mit Wert im Array vergleichen 

B2FE 

90 

DE 

BCC SB30E 

kleiner? 

B300 

00 

06 

BNE SB308 

grOBer: ’bad subscript' 

B302 

C8 


INT 

Zeiger erhöhen 

B303 

8A 


TXA 

I.Uert zurückholen 

B304 

01 

5F 

CMP (S5f),T 

LOU-Byte vergleichen 

B306 

90 

07 

BCC SB30F 

kleiner: dann weiter 

B308 

4C 

45 B2 

JHP SB245 

’bad subscript' 

B30B 

4C 

35 A4 

JHP SA435 

‘out of nenory' 

ft*************************** 

Berechnung der Adresse 





eines Arrayelenents 

B30E 

C8 


INY 

Zeiger erhöhen 

B30F 

A5 

72 

LOA S72 

Zeiger auf Polynonausw.CHIGH) 

B311 

05 

71 

ORA S71 

Zeiger auf PolynoaiausH.(LOW) 

B313 

18 


CLC 

Carry löschen 

B314 

FO 

OA 

BEQ SB320 

Multiplikation urigehen 

B316 

20 

4C B3 

JSR SB34C 

Multiplikation 

B319 

SA 


TXA 

{X/Y)=($71/72)*(($5F/60>,Y) 

B31A 

65 

64 

ADC S64 


B31C 

AA 


TAX 

Akku zurück ins X-Reg. 

B310 

98 


TVA 


B31E 

A4 

22 

LOY S22 

Zeiger in Arrayheader 

B320 

65 

65 

AOC S65 


B322 

86 

71 

STX $71 


B324 

C6 

OB 

DEC SOB 

Anzahl der Dimensionen 

B326 

00 

CA 

BNE $B2F2 

mit nächsten Index weiter 

B328 

85 

72 

STA $72 


B32A 

A2 

05 

IDX #$05 

Variablenlänge (5. REAL) 

B32C 

A5 

45 

LOA $45 

erster Buchstabe des Naamns 

B32E 

10 

01 

BPL $B331 

Integer? r>ein: $B331 

B330 

CA 


DEX 

Länge vermindern 

B331 

AS 

46 

LDA $46 

zweiter Buchstabe des Namens 
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B333 

10 02 

BPi $B337 

fLP? jaj $b337 


CA 

DEX 

Lünge 2 mal 

B336 

CA 

DEX 

verhindern 

B337 

86 28 

STX $28 

Lange der Variablen 2,3 oderS 

B339 

A9 00 

LDA «$00 

Wert laden und damit 

B35S 

20 55 B3 

SB355 

Offset in Array bereehnan 

B33E 

8A 

TXA 

zur Adresse das ersten 

B33F 

65 58 

ADC $58 

Eleaents addieren 

B341 

85 67 

STA $67 

ergibt Variablenadresse 

B3«3 

98 

TYA 

2.Byte in Akku holen 

B344 

65 59 

ADC $59 

addieren, ergibt 

B3&6 

85 68 

STA $68 

HIGH-Byte der Adresse 

B348 

A8 

TAT 

ins Y-Reg. bringen und 

B349 

AS 67 

LDA $67 

I.Byte wieder in Akku holen 

B34B 

60 

RTS 

Rücksprung 


*********** HUfsroutine für 
Arrayberechnung 


Einsprisig von 

$B290, SB316 


B36C 

86 22 

STY $22 

Register merken 

B36E 

B1 5F 

LDA ($5F),Y 

I.Wert holen 

8350 

85 28 

STA $28 

und abspeichern 

B352 

88 

DEY 

Zeiger vernindern 

B353 

Bl 5F 

LDA C$5F).Y 

Z.Uert holen 

Einsprung von 

$B33B 


B355 

85 29 

STA $29 

und abspeichern 

8357 

A9 10 

LOA ü$10 

Wert laden und damit 

B359 

85 5D 

STA $5D 

Verschiebezähler setzen 

B35B 

A2 00 

LDX «SOO 

LOW- und HtGH-Byte des Er- 

6350 

AO 00 

LDY «$00 

gebnfsregisters auf 0 setzen 

B35F 

8A 

TXA 

LOU-Byte in Akku holen und 

8360 

OA 

ASL 

um 1 Bit nach links schieben 

B361 

AA 

TAX 

Byte zurück ins X-Reg. 

B362 

98 

TYA 

HIGH-Byte in den Akku holen, 

B363 

2A 

ROL A 

m 1 Bit nach links schieben 

8366 

A8 

TAY 

und zurGckbringen 
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64 Inlern 


0365 

BO 

A4 

BCS tB30B 

Überlauf: 'out of nmory' 

B367 

06 

71 

ASL »71 

nächstes Bit aus 

B369 

26 

72 

ROL »72 

»71/72 herausholen 

B366 

90 

OB 

BCC »B378 

sO? ja: Addition uagehan 

B360 

18 


CLC 

Carry setzen (Addition) 

B36E 

8A 


TXA 

LOU-Byte holen 

S36F 

65 

28 

AOC »28 

I.Uert addieren 

B371 

AA 


TAX 

LOU'Byte zurückbringen 

B372 

98 


TTA 

HIGH-Byte holen 

B373 

65 

29 

AOC »29 

2.Wert addieren 

B37S 

AB 


TAY 

HlGH'Byte zurOckholen 

B376 

BO 

93 

BCS »6308 

liberlauf: 'out of tneenry* 

B378 

C6 

SO 

OEC »50 

nächstes Bit holen 

B37A 

00 

E3 

BHE »B3SF 

alle 16 Bits? nein: weiter 

B37C 

60 


RTS 

Rücksprung 


V«««9 



' BASlC'Funktion FRE 

B37D 

AS 

00 

LOA »00 

Typflag 

B37F 

FO 

03 

BEO »8384 

kein String 

B381 

20 

A6 B6 

JSR »B6A6 

FRESTR 

B384 

20 

26 B5 

JSR tB526 

Garbage Collection 

B387 

38 


SEC 

Carry setzen (Subtr.) 

B388 

A5 

33 

LOA »33 

Stringanfang (LOW) 

B38A 

e 

31 

SBC »31 

- Variablenende (LOU) 

B38C 

A8 


TAY 

ergibt freien Speicher 

838) 

A5 

34 

LOA »34 

Stringanfang (HIGH) 

B38r 

ES 

32 

SBC »32 

- Variablenende (HIGH) 

E i nsprung 

von SAEEO, $AF6B, 

SB013 

B391 

A2 

00 

LOK «»00 

Wert laden irid 

B393 

66 

00 

STX »00 

Flag auf nunerisch setzen 

B395 

B5 

62 

STA »62 

LOU- und HIGH-Byte des 

B397 

84 

63 

STY »63 

Ergebnisses merken 

B399 

A2 

90 

LOX «S90 

ut)d nach 

B39B 

4C 

44 BC 

JHP $BC44 

FlieBkonM uat)dlen 
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•••••••••••«•••«••••••MM.* BASIC-Furktfon POS 

B39E 38 SEC 0=1 Cursorposition holen 

B39F 20 FO FF JSR SFFFO Cursorposition holen 

Einsprung von SB77F, SB795, $B821 

B3A2 A9 00 LDA BSOO 2=1 

B3A6 FO E6 BEQ SB391 unbedingter Sprung 

••••••••••••••••••••••••••••• Test auf Direkt'Modus 

Einsprung von SAB7B, SABCE, S63S6 


B3A6 

A6 3A 

LDX S3A 

B3A8 

ES 

INX 

B3A9 

DO AO 

BNE SB34B 

B3AB 

A2 15 

LDX «SIS 

S3AD 

2C 

.BYTE S2C 

B3AE 

A2 1B 

LDX *S1B 

B3B0 

4C 37 A4 

JW SA437 




B363 

20 

El B3 

JSR 

$B3E1 

B3B6 

20 

A6 B3 

JSR 

SB3A6 

63B9 

20 

FA AE 

JSR 

SAEFA 

B36C 

A9 

80 

LDA 

«SSO 

B3BE 

85 

10 

STA 

S10 

B3C0 

20 

OB BO 

JSR 

SB08B 

B3C3 

20 

80 AD 

JSR 

SAD8D 

B3C6 

20 

F7 AE 

JSR 

SAEF7 

B3C9 

A9 

B2 

LDA 

«$B2 

B3CB 

20 

FF AE 

JSR 

SAEFF 

B3CE 

4B 


PHA 


B3CF 

AS 

48 

LOA 

S48 

B301 

48 


PHA 


B302 

AS 

47 

LDA 

S47 

B304 

48 


PHA 


B3D5 

AS 

7B 

LDA 

S7B 

B3D7 

48 


PHA 


B308 

AS 

7A 

LDA 

S7A 


Flag laden (Direkt*. = SFF) 
testen 

nein: dam RTS 

Numer für 'illegal direct' 

Niarmer für 'undef'd function' 
Fehlermeldung ausgeben 

BASIC-Befehl DEF FN 
prüft FN-Syntax 
testet auf Direkt-Hodus 
prüft auf 'Klanaer auf 
Wert laden 

sperrt INTEGER-Variable 
sucht Variable 
prüft auf nunerisch 
prüft auf 'Klanner zu' 

'=• BASIC-Code 

prüft auf ’=' 

erstes Zeichen auf Stapel 

LOW- und HIGH-Byte der 

FN-Variablen-Adresse 

auf den Stapel 

legen 

LOU- und HiGH-Byte 
des Programzeigers 
auf den Stapel 
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B3DA 

B308 

48 

2D 

F8 A8 

PHA 

JSR SA8F8 

legen 

Prograenzelger auf Statewnt 

B3DE 

4C 4F B4 

JHP SB44F 

FH'VariabLe von Stapel holen 


t»««4 



' prüft FH-Syntax 

Efnsprung 

B3E1 A9 

von SB3B3. SB3F4 

AS LDA ms 

FN-Code 

B3E3 

20 

FF AE 

JSR SAEFF 

prüft auf FN'Code 

B3E6 

09 

80 

ORA IFSBO 

Wert Laden 

B3E8 

85 

10 

STA $10 

sperrt INIEGER-Variable 

B3EA 

20 

92 80 

JSR $8092 

sucht Variable 

B3ED 

85 

4E 

STA $4E 

LOW- und HIGH-Byte 

B3EF 

84 

4F 

STY $4F 

FN-Variablenzeiger setzen 

B3F1 

4C 

80 AD 

JHP SA080 

prüft auf numerisch 


'** BASIC-Funktfon FH 


Einsprung 

von $AEE7 


B3F4 

20 

El B3 

JSR $B3E1 

prüft FM'Syntax 

B3F7 

A5 

4F 

LDA S4F 

LOW- (jnd HIGH-Byte des 

B3F9 

48 


PHA 

FN-Variablenzeigers 

B3FA 

A5 

4E 

LOA $4E 

auf den Stapel 

B3FC 

48 


PHA 

legen 

B3FD 

20 

Fl AE 

JSR SAEFI 

holt Term in KlaiMiern 

B400 

20 

80 AD 

JSR SA08D 

prüft auf nunerisch 

B403 

68 


PLA 

LOU- und HIGH-Byte 

B404 

85 

4E 

STA S4E 

des 

B406 

68 


PLA 

FN-Variablenzeigers wieder¬ 

B407 

85 

4F 

STA S4F 

holen und speichern 

B409 

AO 

02 

LOY «$D2 

Zeiger setzen 

B40B 

Bl 

4E 

LOA ($4E).Y Zeiger (LOU) auf FN-Variable 

B400 

Bi 

47 

STA $47 

in Variablenadresszeiger 

B40F 

AA 


TAX 

und ins X-Reg. 

B410 

C8 


INY 

Zeiger erhüben 

B411 

Bl 

4E 

LDA ($4E).Y 

Zeiger (HIGH) laden 

B413 

FO 

99 

BEQ Sa3AE 

gibt ’undef'd function' 
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B41S 

85 48 

STA 

S48 

BAU 

C8 

IHT 


BA18 

Bl 47 

LOA 

<S67>,Y 

B41A 

48 

PHA 


BA1B 

88 

DEY 


B41C 

10 FA 

BPL 

SB418 

B41E 

A4 48 

LOY 

848 

B420 

20 04 88 

JSR 

gS6D4 

B423 

A5 7B 

LOA 

878 

B42S 

48 

PHA 


B426 

A5 7A 

lOA 

STA 

B428 

48 

PHA 


B429 

B1 4E 

lOA 

(*4E),Y 

B42B 

85 7A 

STA 

STA 

B42D 

C8 

IHV 


B42E 

B1 4E 

lOA 

(S4E),Y 

B430 

85 78 

STA 

STB 

8432 

AS 48 

LOA 

S48 

8434 

48 

PHA 


B43S 

AS 47 

LOA 

S47 

B437 

48 

PHA 


B438 

20 SA AD 

JSR 

SADSA 

B43B 

68 

PLA 


B43C 

85 4E 

STA 

S4E 

B43E 

68 

PLA 


B43F 

85 4F 

STA 

S4F 

B441 

20 79 00 

JSR 

S0079 

B444 

FO 03 

8EQ 

SB449 

8446 

4C 06 AF 

JNP 

SAF08 

8449 

68 

PLA 


B44A 

85 7A 

STA 

STA 

B44C 

68 

PLA 


B440 

85 TB 

STA 

STB 

Einsprung von SB30E 


B44F 

AO 00 

LOY 

noo 

B451 

68 

PLA 


B452 

91 4E 

SYA 

(S4E},Y 


in Variablenadresse 
Zeiger erhöben 
FN-Variablenwert holen 
und auf Stapel retten 
Zeiger veraindern 
fertig? nein: nächster Wert 

FAC in FM-Variable übertragen 
Progrannzeiger (LOU> 
auf Stapel 

PrograMBZeiger (NIGN) 
auf Stapel 
LOW und HIGH-Byte 
des 

Progrannzeigers auf 

FN-Ausdruck 

speichern 

Zeiger auf FN-Variable 
holen uid 
auf den Stepei 
retten 

nurnerisChen Ausdruck holen 
LOW* und HIGH-Byte 
des Zeigers auf FH- 
Variable voa Stapel holen 
und in FN-Zeiger speichern 
CHROOT letztes Zeichen holen 
keine weiteren Zeichen? 
gibt «syNTAX EBIIX' 

LOW- und NIGH'Byte 
des 

Programnzeigers 

zurückhelen 


Zeiger setzen 
FH-Variab(e voa Stapel 
zurUckholen 
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BASA 

68 

PLA 

und abspeichern 

BASS 

CS 

!HY 

Zeiger erhöhen 

BAS6 

91 AE 

STA 

(SAE),T Z.Uert abepeichern 

BASS 

68 

PLA 

3.Wert von Stapel holen 

BAS9 

es 

INY 

Zeiger erhöhen 

BASA 

91 AE 

STA 

(SAE),Y und abepeichern 

BASC 

68 

PLA 

A.Uert von Stapel holen 

BASO 

es 

CNY 

Zeiger erhöhen 

BASE 

91 AE 

STA 

(SAE).Y und abepeichern 

8460 

68 

PLA 

S.Uert von Stapel holen 

BA61 

CS 

INY 

Zeiger erhöhen 

BA62 

91 AE 

STA 

(SAE},Y und abspeichern 

S46A 

60 

RTS 

Rücksprui^g 



»••••« 


BA6S 

20 80 AD 

JSR 

SA080 prüft auf numerisch 

BA68 

AO 00 

LOY 

«SOO Wert laden und 

B46A 

20 DF BO 

JSR 

SBDDF FAC nach ASCII umuandeln 

BA60 

68 

PLA 

Rücksprungadresse von 

BA6E 

68 

PLA 

Stapel entfernen 


Einsprvog von SAFS9 


BA6F 

A9 FF 

LOA nFF 

LOU-Byte 

BA71 

AO 00 

LOY «SOO 

Startadresse des Strings»SFF 

8473 

FO 12 

BEQ SBA87 



•••••••••••••••••••••••••••• stri ngzeiger berechnen 


Einsprung von SAAS6, SBACO, SB65D 

Zeiger in 


BA7S 

A6 

6A 

LDX S6A 

B677 

AA 

6S 

LOY S6S 

BA79 

86 

SO 

STX SSO 

B47B 

8A 

S1 

STY SSI 

Einsprung 

vor 

1 SB6F3, SB70F 

BATO 

20 

FA 

BA JSR SBAFA 

S480 

86 

62 

STX S62 


S6A/6S in 

Zeiger auf Stringdescriptor 
speichern 


Platz für String, Lange in A 
Adresse LOU 
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B6B2 84 63 STY S63 Adresse HIGH 

B484 85 61 STA $61 LärtGe 

B486 60 RTS 

*••••***•••••••«««****•••••• String holen, Zeiger In A/Y 

Einsprung von SAABF, SAB1E, SAEC6 


B487 

A2 

22 

LDX 

i»22 

B489 

86 

07 

STX 

$07 

B48B 

86 

08 

STX 

$08 

Einsprung 

von SAC7D 


B480 

85 

6f 

STA 

$6F 

B48F 

84 

70 

STY 

$70 

B491 

85 

62 

STA 

$62 

B493 

B4 

63 

STY 

$63 

B495 

AO 

FF 

LOY 

«$FF 

B497 

C8 


INY 


B498 

Bl 

6F 

LOA 

($6F) 

B49A 

FO 

OC 

BEO 

$B4A8 

B49C 

C5 

07 

CHP 

$07 

B49E 

FO 

04 

BEQ 

$B4A4 

B4A0 

C5 

08 

CHP 

$08 

B4A2 

00 

F3 

BNE 

$8497 

B4A4 

C9 

22 

CHP 

«$22 

B4A6 

fO 

01 

BEQ 

$B4A9 

B4A8 

18 


CLC 


B4A9 

84 

61 

STY 

$61 

B4AB 

98 


TYA 


B4AC 

65 

6F 

ADC 

$6F 

B4AE 

85 

71 

STA 

$71 

B4B0 

A6 

70 

LDX 

$70 

B4B2 

90 

01 

BCC 

$B4B5 

B4B4 

E8 


INX 


B4B5 

86 

72 

STX 

$72 

B4B7 

A5 

70 

LOA 

$70 

B4B9 

FO 

04 

BEQ 

$B4BF 

B4BB 

C9 

02 

CHP 

«$02 


.Code 

nach Suchzeichen 
und Hochkonmaflag 


Startadresse des Strings 

nach $6F/70 

und S62/63 

speichern 

Zeiger setzen 

Zeiger erhöhen 

Y nächstes Zeichen des Strings 
Endekerinzeichen? 

Suchzeichen? 
ja: SB4A4 

3 Zeichen in Hochkoemaflag 
nein: SB497 
.Code? 

ja: SB4A9 

Carry löschen (Addition) 

Länge des Str. speichern und 
in Akku holen 

und zur Startadresse addieren 
ergibt Endadresse LOU * 1 
llbertrag 

Addition un:gehen 
llbertrag addieren 
Endadresse HIGH * 1 
Startadresse HIGH 
null? 
zwei? 
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B460 

ÜO OB 

BNE 

SBACA 

BASF 

98 

TTA 


BACO 

20 7S BA 

JSR 

tBA75 

BAC3 

A6 6F 

LDX S6F 

BAC5 

AA 70 

LDY 

S70 

BAC7 

20 88 B6 

JSR 

SB688 


nein: SS4CA 
Länge fn Akku 
Strfngzeiger berechnen 
LOW- und HIGH>Byte der 
Startsdresse holen 
String in Bereich kopieren 

Stringzeiger in 
Descriptorstapel bringen 


Einsprung 

von SB67A, SB6FD. 

BACA 

A6 

16 

LDX 

S16 

BACC 

EO 

22 

CPX 

•S22 

BACE 

DO 

05 

BNE 

SBAD5 

BADO 

A2 

19 

LDX 

#$19 

BAD2 

AC 

37 AA 

JHP 

SAA37 

BA05 

AS 

61 

LDA 

$61 

BA07 

95 

00 

STA 

$00,X 

BA09 

AS 

62 

LDA 

$62 

BAOB 

95 

01 

STA 

$01,X 

BAOO 

AS 

63 

LDA 

$63 

BADF 

95 

02 

STA 

$02,X 

BAE1 

AO 

00 

LDV 

«$D0 

BAE3 

86 

64 

STX 

$64 

BAE5 

8A 

65 

STY 

$65 

BAE7 

8A 

70 

STY 

$70 

BAE9 

88 


DEY 


BAEA 

SA 

OD 

STY 

$W 

BAEC 

86 

17 

STX 

$17 

BAEE 

E8 


INX 


BAEF 

ES 


INX 


BAFO 

E8 


INX 


BAF1 

86 

16 

STX 

$16 

BAF3 

60 


RTS 



SB729 

Stringdescriptor'Zeiger 
Stringstapel voll? 
nein: SB4D5 

Nr für 'foreula too eonplex' 
Fehlermeldung ausgeben 
Stringlsnge holen und 
Stringstapel speichern 
LOU- und HIGH-Byte der 
Adresse holen 
und in 

Stringstepei bringen 
Nul Iwert laden 
und Zeiger 

jetzt auf Deseriptor setzen 
Zeiger für Polynoraauswertung 
Register vermindern 
Stringflag setzen SFF 
Index des letzten 
Stringdescriptors 
Uff drei erhöhen 
und als 

neuen Index laerken 
Rücksprung 
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»•••«•••Ml 


Platz für String reservieren, 
Linge In A 


Einsprung von SBA7D 


BAF4 

46 

OF 

LSR 

SOF 

B4F6 

48 


PHA 


B4F7 

49 

FF 

EOR 

«SFF 

B4F9 

38 


SEC 


B4FA 

6S 

33 

ADC 

S33 

B4FC 

A4 

34 

LOY 

S34 

B4FE 

BO 

01 

BCS 

SBS01 

B500 

88 


DEY 


BS01 

C4 

32 

CPY 

S32 

B503 

90 

11 

BCC 

SBS16 

B505 

DO 

04 

BHE 

SBSOB 

B507 

CS 

31 

CMP 

S31 

S5D9 

90 

OB 

BCC 

SBS16 

BSOB 

8S 

33 

STA 

S33 

B50D 

84 

34 

STY 

$34 

BSOF 

8S 

3S 

STA 

S3S 

B511 

84 

36 

STY 

$36 

B513 

AA 


TAX 


B514 

68 


PLA 


B515 

60 


RTS 


B516 

A2 

10 

LOX 

»10 

B518 

AS 

OF 

LDA 

$DF 

B51A 

30 

B6 

BMI 

$B402 

B51C 

20 

26 B5 

JSR 

$BS26 

BS1F 

A9 

80 

LOA 

«$80 

BS21 

8S 

OF 

STA 

SOF 

B523 

68 


PLA 


B524 

DO 

00 

BNE 

$B4F6 


Flag für Garbege Collection 

zurücksetzen 

Stringlange 

Alle Bits iwdrehen 

Riit KIGH-Byte des 

Stringanfangs-Zeigers addieren 

LOU-Byte ins Y*Reg. 

Carry gesetzt 7 dann weiter 
ansonsten lOU-Byte erniedrigen 
Zu wenig Platz, dann 
Garbage Collection durchführen 
alles ok ? 

Ende der Arrays, dann 

Garbage Collect durchführen 

ansonsten 

al le 

Zeiger 

neu 

setzen 

Stringlange zurückholen 
Rücksprung 

Nunner für 'OUT OF MEMORY' 

Flag für Garbage Collection 

durchgeführt? 'OUT OF MEMORY' 

Garbage Collection 

Flag setzen 

und speichern 

Stringlänge 

String nochmals einbauen 
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•••••••••••••••••••••••••••• Garbage Collection 


Einspnaig von SA41C, SB3B4, SB51C 


B526 

A6 

37 

LOX 

»37 

B528 

AS 

38 

LOA 

»36 

Einsprung 

von SB63A 


B52A 

86 

33 

STX 

»33 

B52C 

8S 

34 

STA 

»34 

B52E 

AO 

00 

LOY 

#S00 

B530 

84 

4F 

STY 

»4F 

B532 

84 

4E 

STY 

»4E 

B534 

AS 

31 

LOA 

»31 

B536 

A6 

32 

LDX 

»32 

BS3B 

8S 

SF 

STA 

»SF 

853A 

86 

60 

STX 

»60 

B53C 

A9 

19 

LOA 

#»19 

B53E 

A2 

00 

LDX 

«»00 

BS40 

8S 

22 

STA 

»22 

B542 

86 

23 

STX 

»23 

B544 

CS 

16 

CHP 

»16 

B546 

FO 

05 

BEO 

»S54D 

B548 

20 

C7 BS 

JSR 

SB5C7 

B54B 

FO 

F7 

BEG 

»B544 

BS4D 

A9 

07 

LDA 

«»07 

B54F 

8S 

S3 

STA 

»S3 

B551 

AS 

20 

LOA 

»20 

B553 

A6 

2E 

LOX 

»2E 

B555 

8S 

22 

STA 

»22 

B557 

86 

23 

STX 

»23 

B559 

E4 

30 

CPX 

»30 

B55B 

00 

04 

BNE 

»BS61 

B5S0 

CS 

2F 

CHP 

»2F 

B55F 

FO 

OS 

6EQ 

»B566 

B561 

20 

BD B5 

JSR 

»B5B0 

B564 

FO 

F3 

BEO 

»B559 

BS66 

8S 

S8 

STA 

»58 

BS68 

86 

S9 

STX 

»59 


LOy-Byte Basic-RAH-Zeiger 
NIGH-Byte Basic-RAH-Zeiger 


in Stringzeiger 

speichern 

LOW- und NIGH-Byte 

der FN Zeiger 

auf Null setzen 

LOW* und HIGH*Byte der 

Array-Zeiger laden 

und in die Arithnetikregister 

speichern 

Startadresse 

der OescriptorentabeLle 

als Suchzeiger nach 

S22 und S23 bringen 

identisch mit String-Zeiger? 

wenn ja, dann weiter 

Stringposition feststellen 

unbedingter Sprung 

Schrittweite für die Suche 

in Variablentabelle 

T^eltenzeiger 

laden 

und als Suchzeiger nach 
S22 und S23 bringen 
An Ende der Tabelle angelangt 
wem nicht, dann zu SSS61 
ansonsten Sprung zur 
Array-Behandlung 
Stringposition feststellen 
unbedingter Sprung 
Zeiger in die 
Array-Tabelle speichern 
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BS6A 

A9 

03 

lOA 

MOS 

BS6C 

8S 

53 

STA 

$53 

BS6E 

AS 

58 

lOA 

$58 

BS70 

A6 

59 

lOX 

$59 

B57Z 

E4 

32 

CPX 

$32 

BS74 

00 

07 

BNE 

$6570 

BS76 

CS 

31 

CNP 

$31 

BS78 

DO 

03 

BNE 

$B57D 

B57A 

4C 

06 B6 

JHP 

$B606 

B57D 

85 

22 

STA 

$22 

B57F 

86 

23 

STX 

$23 

B581 

AO 

00 

LDV 

»DO 

B583 

B1 

22 

LOA 

($22>,Y 

B58S 

AA 


TAX 


B586 

C8 


IHV 


B587 

Bl 

22 

LDA 

($22>.Y 

B589 

08 


PKP 


B5BA 

C8 


IHT 


B58B 

B1 

22 

LDA 

($22>.Y 

Bseo 

65 

58 

ADC 

$58 

B58F 

85 

58 

STA 

$58 

B591 

C8 


INY 


B592 

Bl 

22 

LDA 

<$22>,Y 

B596 

65 

59 

AOC 

$59 

B596 

85 

59 

STA 

$59 

BS98 

28 


PLP 


BS99 

10 

D3 

BPL 

$BS6£ 

B59B 

8a 


TXA 


BS9C 

30 

00 

BMI 

$BS6E 

BS9E 

C8 


INY 


B59F 

B1 

22 

LOA 

{$22>,Y 

B5A1 

AO 

00 

LOV 

»00 

B5A3 

OA 


ASL 

A 

B5A4 

69 

05 

ADC 

»05 

B5A6 

65 

22 

AOC 

$22 

B5A8 

85 

2? 

STA 

$22 

B5AA 

90 

02 

BCC 

$B5AE 

B5AC 

E6 

23 

INC 

$23 

B5AE 

A6 

23 

LDX 

$23 

B5B0 

E4 

59 

CPX 

$59 


SchrittMeite für Suche 
innerhalb des Arrays festlegen 
An Ende 
der 

Arraytabelle angelangt, dann 
Sprung zu $B57t> 

Vergleich nit NIGH-Byte 
Sprung zu SB57D 
ansonsten Transfer 
Zeiger auf Array-Header 
stellen 

Zahler auf Null setzen 
Variablemame erstes Zeichen 
ins X-Reg übertragen 
Zahler erhöhen 

Variablennaine zweites Zeichen 

Statusregister retten 

Zahler erhöhen 

Die Länge 

des Arrays 

zu 

Zeiger 

auf 

Arraytabelle 

addieren 

Statusregister wiederholen 
keine Stringvariable 7 
dann weitersuchen 
Stringvariable, nein, weiter 
Zähler erhöhen 
Dimensionenanzahl holen 
Zähler wieder Null 
mal 2 
plus S 

zun Zeiger addieren 
und speichern 

wenn ungleich, dann zu SB5AE 

Zeiger erhöhen 

und in Array schieben 

auf nächstes Feld vergleichen 
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BSB2 

DO 

04 

BNE 

SB5B8 

B5B4 

CS 

S8 

CNP $58 

BSB6 

FO BA 

BEQ SBSTZ 

BSB8 

20 C7 B5 

JSR SB5C7 

BSBB 

FO F3 

BEQ 

SB5B0 

•••**••••••••*******•****•••• 

Einsprung 

von $6561 


85BD 

B1 

22 

LDA 

t$22>.Y 

eSBF 

30 

35 

BHl 

SB5F6 

B5C1 

C8 


IHY 


B5C2 

B1 

22 

LOA {S22},Y 

B5C4 

iO 

30 

BPL 

SB5F6 

B5C6 

C8 


INY 


Einsprung 

von $B548, SB5B8 

B5C7 

B1 

22 

LDA 

C$22).Y 

B5C9 

FD 

2B 

BEQ 

SB5F6 

65CB 

C8 


INY 


BSCC 

B1 

22 

LDA 

<S22).Y 

B5CE 

AA 


TAX 


B5CF 

C8 


INY 


bsdo 

Bl 

22 

LDA 

C$22),Y 

BSD2 

CS 

34 

CMf 

$34 

B504 

90 

06 

8CC 

SB50C 

B506 

DO 

IE 

BNE 

$B5F6 

B50S 

E4 

33 

CPX 

$33 

8SDA 

BO 

1A 

BCS 

$BSF6 

BSDC 

CS 

60 

CMP 

S6D 

B5DE 

90 

16 

BCC 

SB5F6 

BSEO 

DO 

04 

BNE 

$BSE6 

Bsez 

E4 

5F 

CPX 

$5F 

B5E4 

90 

10 

BCC 

$B5F6 

B5E6 

86 

5F 

STX 

$5F 

B5E8 

8S 

60 

STA 

$60 

BSEA 

AS 

22 

LDA 

$22 

B5EC 

A6 

23 

LDX 

$23 


wenn ungleich, dann zu $B5B8 
wenn gleich, denn 
zu SB$72 

Strifigpositien festetellen 
(«■bedingter Sprung 

prüft Bessitigungsnioglichkeit 


Variablenneme erstes Zeichen 
Integer e. Funktion ? 

ZBhler erhöhen 

Vsriablenname ZMeites Zeichen 
wenn Real, dann SB5F6 
Zähler erhöhen 


heit Stringlange 

wenn Stringlange^O.dann SB5F6 

Zähler erhöhen 

heit Startadresse des Strings 

schiebt ins X-Reg 

Zähler erhöhen 

holt Srfngzeiger 

Vergleich mit S34 

wenn gleich, dann SbSDC 

Kenn gröBer, dann SB5F6 

nit $33 vergleichen 

wenn gleich, dam SB5F6 

Vergleich mit $60 

wenn gleich, dann SB5F6 

wenn großer, dann SB5E6 

Vergleich mit S5F 

wenn gleich, dann SB5F6 

Startadresse des 

Strings speichern 

Stringdescriptor 

laden 
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B5EE 

8S 4E 

STA $4E 

und 

BSFO 

86 4F 

STX $4F 

speichern 

BSF2 

AS 53 

LOA S53 

Tabellen Schrittweite leden 

BSF4 

8S SS 

STA S5S 

und speichern 

B5F6 

AS S3 

LOA S53 

und zun 

B5F8 

18 

CLC 

Suchzeiger 

B5F9 

65 22 

AOC S22 

addieren 

B5FB 

8S 22 

STA S22 

und wieder 

BSFD 

90 02 

BCC SB601 

speichern 

B5FF 

E6 23 

INC S23 

Zei ger erhöhen 

B601 

A6 23 

LOX S23 

und laden 

B603 

AO 00 

LOT BSOO 

Zähler löschen 

B60S 

60 

RTS 

Rücksprung 




' Strings zusamnenfügen 

Einsprung von SB57A 


B606 

AS 4F 

LOA S4F 

String zwischen Tabellenende 

B60B 

05 4E 

ORA S4E 

und dem oberen RAH-Bereich 

B60A 

FO F5 

BEQ S8601 

gefunden ? nein, dam RTS 

B60C 

AS SS 

IDA S5S 

Arraysuehlauf, dann $5S°03 

B60E 

29 04 

ANO #$04 

ansonsten $55=07 

B610 

4A 

LSR A 

wenn Einzelvariable, dann 

B611 

A8 

TAY 

Y-Reg «2 und 0 bei Array 

B612 

8S SS 

STA $55 

Wert sichern 

B614 

Bl 4E 

LOA ($4E), 

Y Stringlänge holen 

B616 

65 5F 

ADC $5F 

zun LOU'Byte der Stringanfangs- 

B618 

8S 5A 

STA $SA 

adresse Add., =Eridadresse +1 

B61A 

AS 60 

LOA $60 

auf gleiche 

B61C 

69 00 

AOC «$00 

Ueise das 

B61E 

85 SB 

STA $5B 

KIGH-Byte berechnen 

B620 

AS 33 

LOA $33 

Zielbereich 

B622 

A6 34 

LOX $34 

für den 

B624 

85 58 

STA $58 

Transfer 

B626 

86 59 

STX $S9 

holen 

B628 

20 BF A3 

JSR $A3BF 

Strings verschieben 

B62B 

A4 SS 

LOY $55 

LOU-Byte 

B620 

C8 

INY 

der 

B62E 

AS 58 

LOA $S8 

Anfangsadresse in 
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B630 

91 4E 

STA 

C*6E),Y 

B632 

AA 

TAX 


B633 

E6 59 

INC 

S59 

B635 

A5 59 

LDA 

S59 

B637 

CS 

INY 


B63S 

91 4E 

STA 

(S6E).Y 

B63A 

4C 2A B5 

JHP 

SB52A 


Einsprung 

von SA0E5 


B630 

A5 

65 


LOA 

165 

S63F 

48 



PHA 


B640 

A5 

64 


LDA 

S64 

8642 

48 



PHA 


B643 

20 

83 

AE 

JSR 

SAE83 

B646 

20 

8F 

AO 

JSR 

SA08F 

B649 

68 



PLA 


B64A 

85 

6F 


STA 

S6F 

B64C 

68 



PLA 


B64D 

85 

70 


STA 

$70 

B64F 

AO 

00 


LOY 

«SOO 

B651 

B1 

6F 


LDA 

(t6F).Y 

B653 

18 



ac 


B654 

71 

64 


AOC 

($64),Y 

B656 

90 

05 


BCC 

$6650 

B658 

A2 

17 


LDX 

#$17 

B65A 

4C 

37 

A4 

JHP 

SA437 

8650 

20 

75 

B4 

JSR 

$8475 

B660 

20 

7A 

B6 

JSR 

$B67A 

6663 

A5 

50 


LOA 

$50 

B665 

A4 

51 


LOY 

$51 

B667 

20 

AA 

B6 

JSR 

$86 AA 

666A 

20 

ec 

B6 

JSR 

$668C 

6660 

A5 

6F 


LOA 

S6F 

B66F 

A4 

70 


LOY 

$70 

B671 

20 

AA 

B6 

JSR 

$B6AA 


Descriptor speichern 
HIGH'Byte 

der Anfangsadresse 
fn 

Descriptor 

bringen 

nicht alles ?, dam weiter 
Stringverknüpfung 


HIGH-Byte des Descriptors von 
ersten String auf Stack 
LOU-Byte 
in Stack 

zweiten String holen 
prüft auf Stringvariable 
Descriptorzeiger des ersten 
Strings wiederholen 
und 

speichern 

Zähler auf Null 

Länge des ersten Strings 

plus Länge 

des zweiten Strings 

kleiner als 256 

Nuiieer für 'STRING TOO L0MG> 

Fehleriiiel<A#>9 ausgeben 

Platz für verknüpften String 

ersten String übertragen 

Zeiger auf 

zweiten Stringdescriptor 
fRESTR 

2. String an 1. anhängen 
Descriptorzeiger des 
zweiten Strings 
FRESTR 
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8674 

20 » 84 

JSR 

SB4CA 

8677 

4C 88 AD 

JHP 

SA088 


Einsprung von 

SAA61. SB660 

867A 

AO 00 

LOY 

noo 

B67C 

81 6F 

LOA 

(S6F>,Y 

B67E 

48 

PKA 


B67F 

C8 

INY 


8680 

B1 6F 

LOA 

(»6F>,Y 

8682 

AA 

TAX 


B683 

C8 

INY 


B684 

B1 6F 

LOA 

U6F),Y 

B686 

A8 

TAY 


B687 

68 

PLA 


Einsprung von 

SB4C7 


8688 

86 22 

STX 

S22 

B68A 

84 23 

STY 

S23 

Einspririg von 

S866A. S8726 

B68C 

A8 

TAY 


B680 

FO OA 

BEQ 

SB699 

B68F 

48 

PHA 


8690 

SB 

DEY 


B691 

B1 22 

LOA 

<S22).Y 

B693 

91 35 

STA 

(535), Y 

8695 

98 

TYA 


8696 

DO F8 

BNE 

SB690 

8698 

68 

PU 


8699 

18 

CLC 


869A 

65 35 

AOC 

S35 

869C 

85 35 

STA 

$35 

869E 

90 02 

BCC 

SB6A2 

B6A0 

E6 36 

INC 

S36 

B6A2 

60 

RTS 



Oescriptor in Stringstack 
zurück zur FornielausHertirg 

String in reserv. Bereich 


Zahler auf Null 

Stringlänge holen 

und merken 

Zähler erhöhen 

LOU'Byte der Stringadresse 

ins X-Reg 

Zähler erhöhen 

H!GH-Byte der Stringadresse 

ins Y-Reg und 

Stack 


Zeiger auf 
String speichern 


Länge nU L 7 
dann fertig 
wieder in Stack 
Zähler erniedrigen 
String 
in den 

Stringbereich 

übertragen 

Den 

Zeiger 

un 

die 

Stringlänge 

erhöhen 

ROcksprirg 
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Stringverualtung FRESTR 


Einsprung von SB782, SE25A 

B6A3 20 6F AO JSR SA08F pröft auf Stringvariable 

Einspria« von SA9E0, SAB21, SB034, SB381 

B6A6 AS 64 LDA S64 Zeiger auf 

86A8 A4 65 LOT S6S Stringdescriptor 

Einsprung von SB041, SB667, SB671. SB716 


B6AA 

8S 22 

STA 122 

B6AC 

84 23 

STY 123 

B6AE 

20 08 86 

JSR SB60B 

B6B1 

08 

PHP 

B6B2 

AO 00 

LOY noo 

B6B4 

Bl 22 

LOA (122). 

B6B6 

48 

PHA 

86B7 

C8 

IMY 

B6B8 

81 22 

LOA <122). 

B6SA 

AA 

TAX 

B6BB 

C8 

!NT 

B6BC 

81 22 

LDA (122), 

B6BE 

A8 

TAY 

B6BF 

68 

PLA 

86C0 

28 

PLP 

B6C1 

00 13 

BNE 18606 

B6C3 

C4 34 

CPY 134 

B6C5 

00 OF 

BNE ia6D6 

B6C7 

E4 33 

CPX 133 

B6C9 

00 OB 

BNE 1A6D6 

66CB 

48 

PHA 

B6CC 

18 

CLC 

B6C0 

65 33 

ADC 133 

66CF 

85 33 

STA 133 

B601 

90 02 

BCC SB605 

B6D3 

E6 34 

INC 134 


nach 

S22 und S23 bringen 
Deseriptor vom Stringstack 
Statusregister retten 
Zähler auf Null 

Y Stringlänge holen 
und in Stack schieben 
Zähler erhöhen 

Y LOU'Syte der Anfangsadresse 
ins X-Reg schieben 

Zähler erhöhen 

Y NIGH-Byte der Anfangsadresse 
ins Y-Reg schieben 
Stringlange wieder aus Stack 
Statusreg. wieder aus Stack 
NeustringsAltstring nein? RTS 
Stringadresse identisch mit 
Zeiger auf Stringende? 

nein, dann 
zu SB606 

String-Anfangszeiger 

auf Länge 

des 

Strings 

hinaufsetzen 

Stringlänge 
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B605 

68 

PLA 


B606 

&6 22 

STX 

$22 

e6D8 

SA 23 

STY 

$23 

B60A 

60 

R1S 





Einsprwg von $AA6C, $S6AE 


B6DB 

CA IS 

CPT $18 

B6DD 

DO OC 

BNE $S6EB 

B60f 

C5 17 

CMP $17 

B6E1 

DO 08 

BNE $S6EB 

B6E3 

85 16 

STA $16 

B6E5 

E9 03 

SBC K03 

B6E7 

85 17 

STA $17 

B6E9 

AO 00 

LDV ä$00 

B6EB 

60 

RTS 




B6EC 

20 AI B7 

JSR $B7A1 

86EF 

8A 

TXA 

B6F0 

AS 

PHA 

B6F1 

A9 01 

LDA #$01 

B6F3 

20 7D BA 

JSR $BA7d 

B6F6 

68 

PLA 

B6F7 

AO 00 

LDT #$00 

B6F9 

91 62 

STA ($62).V 

B6FB 

68 

PLA 

B6FC 

68 

PLA 

B6FD 

AC CA BA 

JHP SBACA 


B700 

20 61 B7 

JSR $B761 

B703 

Dl 50 

CMP ($50),T 

B705 

98 

TYA 


holen 

LOU-Byte der Startadresse 
HtGH'Byte der Startadresse 
Rücksprung 

Stringzeiger aus 
Descriptorstack entfernen 


Zeiger auf Strinpdescriptor 
Identisch mit SIS, nicht? R1S 
identisch mit 17 
wenn nicht, denn RTS 
Zeiger nach S16 speichern 
Von Adresse $17 
3 abziehen 
Zähler auf Null 
Rücksprung 

BASIC'Funktion CHRS 
holt Byte-Uert (0 bis 255) 
Kode in Akku 
Akkuirihalt in Stack 
Länge des Strings gleich 1 
Platz für String freimachen 
ASCIl-Kode zurückholen 
Zähler auf Null 
als Stringzeichen speichern 
Rücksprungadresse aus 
Stack entfernen 
Descriptor in Stringstack 

BASIC-Funktion LEFTS 

Stringadresse S Länge 

aus Stack holen 

Länge mit LEFTS-Paraneter 

vergleichen 

LEFTS'Parameter 
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Einsprurtg von SB734 


B706 

90 

04 

BCC $B70C 

kleiner als Stringlänge ? 

B70S 

Bl 

SO 

LDA (S50),Y 

Stringlänge holen 

B70A 

AA 


TAX 

und ins X-Reg schieben 

B70e 

96 


TYA 

Stringlänge und 

B70C 

46 


PHA 

Paraineter für LEFTS 

B70D 

8A 


TXA 

In Stack 

B70E 

46 


PHA 

schieben 

B70F 

20 

7D B4 

J8R SB47D 

Platz für neuen String 

reservieren 

B712 

AS 

so 

LDA SSO 

Zeiger auf Stringdescriptor 

B716 

A4 

51 

LOT SSI 

laden 

B716 

20 

AA B6 

JSR S66AA 

FRESTR 

B719 

68 


PLA 

Länge des neuen Strings aus 

B71A 

A8 


TAY 

Stack holen und ins X*Reg 

B71B 

68 


PLA 

alte 

B7TC 

18 


CLO 

Stringadresse 

B71D 

65 

22 

ADC S22 

entsprechend 

B71F 

85 

22 

STA S22 

erhöhen 

B721 

90 

02 

BCC SS72S 

und speichern 

B723 

E6 

23 

INC S23 

HIGH-Byte erhöhen 

B725 

98 


TYA 

neue Stringlänge holen 

B726 

20 

80 B6 

JSR SB6BC 

neuen String in 
Stringbereich übertragen 

B729 

4C 

CA B4 

JMP SB4CA 

Descriptor in Stringstack 


bringen 

BASIC-Funktion RIGHTS 


B72C 

20 61 B7 

JSR SB761 

Stringparameter und Länge 
vom Stack holen 

B72F 

16 

CLC 

von Stringlänge 

B730 

Fl SO 

SBC ($50),Y 

abziehen 

B732 

49 FF 

EOR «SFF 

Ntimer des ersten Elements 
im alten String 

B734 

4C 06 B7 

JMP BB706 

weiter wie LEFTS 




BASIC-Ft^ktion HIDS 

B737 

A9 FF 

LDA MFF 

Ersatzwert für den zweiten 

B739 

85 65 

STA S6S 

Zahlenparameter 
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B73B 

20 

79 00 

J8R S0079 

CHRGOT letztes Zeichen holen 

B73E 

C9 

29 

CMP »»29 

■)■ Klanner zu 

B740 

fO 

06 

BEO SB748 

wenn ja, dann kein zweiter 





Parameter, weiter bei SS748 

B742 

20 

FD AE 

J8R SAEFD 

prüft auf Komns 

B745 

20 

9E B7 

JSR SB79E 

holt Byte-Wert des zweiten 





Parameters 

B748 

20 

61 B7 

J8R SB761 

Stringperameter und 





Startposition holen 

B74B 

FO 

4B 

BEO $B798 

1. Parameter null. ' ILLEGAL 





OUANTITY' 

B74D 

CA 


DEX 

erste Elementposition 

B74E 

8A 


TXA 

innerhalb 

a74F 

48 


PHA 

des alten Strings 

3750 

18 


CLC 

im Stack ablegen 

B751 

A2 

00 

LDX «$00 

Zähler setzen 

1753 

Fl 

50 

SBC (SSOl.V 

alte Stringlänge kleiner als 





erster Parameter ? 

1755 

BO 

B6 

BCS $S70D 

wenn ja, dann zu LEFTS 

B757 

49 

FF 

EOR MFF 

Berechnen der neuen Länge 

1759 

CS 

65 

CMP B65 

wenn kleiner als zweiter 

B75B 

90 

Bl 

BCC SB70E 

Parameter, dann zu LEFT S 

B750 

AS 

65 

LDA B65 

Zweitparaneter als 'rechte' 





Stringbegrenzung 

B75F 

BO 

AD 

BCS $S70E 

unbedingter Sprung 


Strlngparameter nunerischer Wert 
von Stack holen 


Einsprung von SB700, B972C, SB746 


B761 

20 F7 AE 

JSR iAEF7 

prüft auf Klammer zu 

B764 

68 

PIA 

LOU-Byte der 

B765 

A8 

TAY 

Aufrufadresse amrken 

B766 

68 

PLA 

HIGH-Byte der 

B767 

85 55 

STA S5S 

Aufrufadresse merken 

3769 

68 

PLA 

LOW-und HlCH-Byte der 

B76A 

68 

PLA 

Aufrufadresse merken 

B76B 

68 

PLA 

1. Paraneter holen 
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B76C 

AA 


TAX 

B76D 

68 


PLA 

B76E 

85 

50 

STA S50 

BTTO 

68 


PLA 

8771 

85 

51 

STA S51 

B773 

A5 

55 

LDA 155 

B775 

48 


PHA 

B776 

98 


TYA 

B777 

48 


PHA 

B77B 

AO 

00 

LDY «SOO 

B77A 

8A 


TXA 

B77B 

60 


RTS 

B77C 

20 82 B7 

JSR $B782 

B77F 

4C A2 B3 

JHP SB3A2 


und ins X-Reg 
LOW- und HIGH-Byte 
des 

Strinadescriptors 

nach 

S51 und SS2 speichern 
AufrufAdresse 
wieder auf 
Stack 

ZBhler auf Null 

Länge, zweiter Paramter 

RUeksprung 

BASIC-Funktion LEN 
FRESTR, Stringlänge holen 
Byte-Uert nach 
FlieBkonufoniut wandeln 


***********»•»»«•»•■••»•••••• stringparaneter holen 

Einsprung von SB77C, SB7SB, SB7AD 


B782 

20 

A3 B6 

JSR SB6A3 

FRESTR, String holen, Länge 





in A 

B785 

A2 

00 

LDX «00 

Typeflag 

B787 

B6 

00 

STX SOD 

auf niaeeriseh setzen 

B789 

A8 


TAY 

Länge in Y 

B78A 

60 


RTS 

Rüeksprung 


9999t 



BASIC-Funktion ASC 

B78S 

20 

82 B7 

JSR $B782 

String holen, Zeiger in 





S22/S23, Länge in Y 

B78E 

FO 

08 

BEQ SS798 

Länge gleich null. 





■ILLEGAL QUAHTITY' 

8790 

AO 

00 

LDY «SOO 

Zähler auf Null 

B792 

Bl 

22 

LDA <S22),Y 

erstes Zeichen holen 

8794 

A8 


TAY 

ASCII-Kode 

B795 

4C 

A2 B3 

JHP $63A2 

nach FlieBkonna wandeln 

B798 

4C 

48 B2 

JHP S6248 

■ILLEGAL QUAHTITY^ 
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holt Byte-Wert nach X 


rinsprung von SAAFF 

II79B 20 73 00 JSR S0073 CHRGET nichstes Zeichen holen 

binsprung von SA94V, SAA86, SAB85, SABAS, SAFC7, SB745, 
SB7F4, SE203, SE221 


(i79E 20 8A AD JSR SA08A 


Einsprung von SB6EC 


B7A1 

20 

B8 Bl 

JSR 

SB1B8 

I7A4 

A6 

64 

LOX 

S64 

B7A6 

DO 

FO 

BNE 

SB798 

B7A8 

A6 

65 

LDX 

S65 

I7AA 

4C 

79 00 

JHP 

S0079 


17 AD 

20 

82 B7 

JSR 

SB782 

I7B0 

00 

03 

BNE 

$B7B5 

I7B2 

4C 

F7 68 

JHP 

SB8F7 

B7B5 

A6 

7A 

LDX 

STA 

B7B7 

A4 

TB 

LOY 

STB 

I7B9 

86 

71 

STX 

$71 

B7B6 

84 

72 

STY 

S72 

I7BO 

A6 

22 

LDX 

$22 

B7BF 

86 

7A 

STX 

STA 

I7C1 

18 


CLC 


B7C2 

65 

22 

ADC 

$22 

B7C4 

85 

24 

STA 

$24 

B7C6 

A6 

23 

LDX 

$23 

B7C8 

86 

7B 

STX 

$^ 

B7CA 

90 

01 

BCC 

$37C0 

B7CC 

E8 


INX 



FRHNUK nmerischen Wert 
nach FAC holen 


prüft auf Bereich und 
wandelt nach Integer 
HIGH-Byte 

ungleich rxiU, dann 
■ILLEGAL QUANTITV 
LQU-Byte des geholten 
Ausdrucks ins X-Reg 
CHRGOT letztes Zeichen holen 

BASIC-Funktion VAL 

Stringadresse und Länge holen 

Stringlänge ungleich Null ? 

Null in FAC 

Prograntnzeiger 

holen 

und 

speichern 

Stringanfangsadresse 

in Stringzeiger bringen 

LDW-Byte des 

ersten Zeichens 

nach den String speichern 

HIGH-Byte 

des ersten 

Zeichens 

nach den String 
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B7CD 

86 

25 

STX 

125 

B7CF 

AO 

00 

LOY 

noo 

B701 

B1 

24 

LOA 

tl24),Y 

B703 

48 


PHA 


B7D4 

98 


TYA 


B705 

91 

24 

STA 

(124),Y 

B707 

20 

79 00 

JSR 

10079 

B70A 

20 

F3 BC 

JSR 

1BCF3 

B7DO 

68 


PLA 


B7DE 

AO 

00 

LOY 

«lOO 

B7EO 

91 

24 

STA 

(124),Y 

Einspring 

von $AC80. SAEC9 

B7E2 

A6 

71 

LDX 171 

B7E6 

A4 

72 

LOT 

$72 

87E6 

86 

7A 

STX 

t7A 

B7E6 

84 

7B 

STY 

17B 

B7EA 

60 


RTS 



Einsprung von SB82A, tB820 

B7EB 20 8A AD JSR SA08A 
B7EE 20 F7 B7 JSR M7f7 


Einsprung von (8639 

B7F1 20 FD AE JSR SAEFD 
B7F6 6C 9E B7 JHP SB79E 


speichern 

Zühler auf Null 

erstes Byte nach String 

auf Stack 

speichern 

ixid durch null ersetzen 
CHRCOT letztes Zeichen holen 
String in FlieBkomwzahl 
usuandeln 

Zeichen nach String 
Zühler auf Null 
wieder zurücksetzen 


Die 

Prograrmizeiger 

wieder 

zurückholen 

Rücksprung 

GETAOR und GETBYT holt 
16-Bit und 6-Bit-Wert 


FRHNUH holt nunerischen Wert 
FAC in Adressformt wandien 


CHKCOM prüft auf Koflwa 
holt Byte*Uert nach X 
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GETADR PAC in positive 
16'Bit*Zahl Handeln 


Einaprung von SB7EE, SB815, S£120 


B7F7 

AS 66 

LDA «66 

Vorzeichen 

B7f9 

30 9D 

BHI $B798 

negativ, dann 




■ILLEGAL OUAHTITY' 

B7FB 

AS 61 

LDA B61 

Exponent 

i7F0 

C9 91 

CMP «S91 

Zahl Ott 65536 vergleichen 

B7FF 

BO 97 

BCS SB798 

gröBer. dartn 




■ILLEGAL dUANTITV' 

B801 

20 9B ec 

J8R <BC9B 

FAC in Adressformat Handeln 

B804 

AS 64 

LDA S64 

Wert 

HB06 

A4 65 

LDY »65 

holen 

HGOB 

84 14 

STY »14 

und nach »14/»1S 

H60A 

SS 15 

STA »15 

speichern 

BSOC 

60 

RTS 

Riickspriing 





BASIC'Funktion PEEK 

B80O 

AS 15 

LOA »15 

$15 utd »16 

B80F 

48 

PKA 

in 

B810 

A5 14 

LDA »14 

stack 

6812 

48 

PHA 

sichern 

6813 

20 F7 B7 

JSR SB7F7 

FAC nach Adressformat 




Handeln 

1816 

AO 00 

LDY MOO 

Zähler auf Null 

1818 

Bl 14 

LDA (»14),Y 

Peek-Wert holen 

B81A 

A6 

TAY 

nach Y-Reg 

»eiB 

68 

PLA 

»15 und »16 

B81C 

» 14 

STA »14 

Nieder 

B81E 

68 

PLA 

vorn Stack 

B81F 

85 15 

STA »15 

zurückholen 

B821 

4C A2 B3 

JhP SB3A2 

Y nach FtieSkonnafornat 


BASIC-BefaKl POKE 


6824 

20 EB b7 

JSR »B7EB 

Poke-Adresse und Wert holen 

6827 

8A 

TKA 

Poke-Uert In Akku 

B628 

AD 00 

LOY MOO 

Zähler auf Null 
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64 hüern 


B82A 

91 14 

STA (S14),Y 

und in Speicher schreiben 

e82C 

60 

RT8 

Rüclrsprung 




BASIC-Befehl VAIT 

8820 

20 EB 87 

JSR SB7EB 

Adresse und wert holen 

8830 

66 49 

STX S49 

zweiter Paraneter nach $49 

8832 

A2 00 

LDX #800 

Default für dritten Paraneter 

8834 

20 7 9 0 0 

JSR $0079 

CtatOOT letztes Zeichen 

8837 

FO 03 

BEO $8630 

kein dritter Parameter 7 

8839 

20 Fl 87 

JSR $B7Fl 

prüft auf Konw und holt 

ParaRieter 

B85C 

86 4A 

STX S4A 

dritter Parameter nach 84A 

B63E 

AO OO 

LOY «800 

Zähler auf Null 

8840 

81 14 

LDA (814),r 

Weit'Adresse 

8842 

45 4A 

ECK S4A 

logisch 

8844 

25 49 

AND 849 

verknüpfen 

S848 

FO F6 

BEO 8B840 

weiter warten 

8848 

60 

RTS 

Rücksprung 




Arithmetik-Routinen 



F#«**••*•«*«• 

FAC B FAC * 0.5 

Einsprung von SBE2F, $E290 


8849 

A9 11 

LDA «811 

Zeiger auf 

S84B 

AO BF 

LOY «8BF 

Konstante 0.5 

8840 

4C 67 B8 

JHP SB667 

FAC • FAC + Kortttante (A/Y) 


HiiniB FAC B Konstante 

(A/Y) ' FAC 

88S0 

20 6C BA 

JSR SBA8C 

Konstante (A/Y) nach ARG 


r*••••*•••«« 


Minus FAC » ARG - FAC 

B8$3 

A5 66 

LDA 866 

Die 

8855 

49 FF 

EOR «SFF 

Vorzeichen 

8857 

85 66 

STA 866 

umdrehen 

8859 

45 6E 

EOR 86E 

mit Vorzeichen von FAC 

8858 

85 6F 

STA S6F 

verknüpfen 
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(i85D 


61 


LDA $61 

Exponent von FAC 

B85F 

6C 

6A 

B8 

JHP $BB6A 

FAC > FAC * ARG 

M62 

20 

»••6 

99 

r***< 

B9 

JSR SB999 

t* 

Exponenten von FAC und ARG 

■B65 

90 

3C 


BCC SB8A3 

angleichen 


»•••1 




'* Plus FAC > Konstante (A/Y) + 

FAC 

3 

i 

von SADSF. SB84D, 
SE268, SE2A4 

SBA01. SBA10 ,SE0B1 , SEOOO, 

8667 

20 

8C 

BA 

JSR SBA8C 

Konstante (A/Y) nach ARG 

••***« 


»*•6 

»•••( 


'• Plus FAC > FAC * ARG 


Einsprung von SB85F, $G08E 


M6A 

00 03 

BNE SB86F 

FAC ungleich null 7 

8860 

4C FC 

BB JHP SBBFC 

nein, dann FAC > ARG 

B66F 

A6 70 

LDX $70 

Ruridungsbyte für FAC 

B871 

86 S6 

STK $S6 

in $S6 speichern 

B673 

A2 69 

LDX #$69 

Offset-Zeiger für ARG laden 

B875 

AS 69 

LDA $69 

Exponent von ARG laden 

Eirtsprung von 

1 $DAF1 


B877 

A8 

TAY 

in Y-Reg schieben 

B878 

FO CE 

BEO SB848 

Wem ARG=0, dann RTS 

B87A 

38 

SEC 

Exponent von 

B87B 

ES 61 

SBC $61 

FAC subtrahieren 

B87D 

FO 24 

BEO SB8A3 

wenn Exponent gleich, dann zu 




$B8A3 

B87F 

90 12 

BCC SB893 

wenn Exponent von FAC größer. 




dann zu SB893 

B881 

84 61 

STY $61 

FAC-Exponent durch 




ARG-Vorzeichen ersetzen 

B&83 

A4 6E 

LDY $6E 

FAC-Vorzeichen durch 

B88S 

84 66 

STY $66 

ARG-Vorzeichen ersetzen 
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64 Intern 


B887 

49 

FF 

EOR 

«SFF 

B669 

69 

00 

ADC 

#S00 

6866 

AO 

00 

LOY 

«SOO 

B860 

84 

56 

STY 

SS6 

sesF 

AZ 

61 

LDX 

«S61 

8891 

DO 

04 

BKE 

S8897 

8693 

AO 

00 

LDY 

«SOO 

8895 

84 

70 

STY 

S70 

8697 

C9 

F9 

CHP 

IIISF9 

B899 

30 

C7 

BMI 

SB66Z 

B89e 

AB 


TAY 


B89C 

AS 

70 

LOA 

S70 

B89E 

56 

01 

LSR 

SOl.X 

B6A0 

ZO 

BO B9 

JSR 

SB9B0 

BSAS 

Z4 

6F 

BIT 

S6F 

B6A5 

10 

57 

BPL 

$B8FE 

B8A7 

AO 

61 

LDY 

«S61 

B8A9 

EO 

69 

CPX 

«S69 

e6AB 

FO 

OZ 

BEQ 

S68AF 

B8AD 

AO 

69 

LDY 

»%69 

BBAF 

38 


SEC 


86B0 

49 

FF 

EOR 

«$FF 

B8BZ 

65 

56 

ADC 

SS6 

B8B4 

85 

70 

STA 

S70 

B6b6 

b9 

04 00 

LDA 

S0004, 

B8B9 

F5 

04 

SBC 

S04,X 

B8BB 

85 

65 

STA 

S6S 

BBBO 

b9 

03 00 

LDA 

S0003, 

BBCO 

F5 

03 

SBC 

S03,X 

BBC2 

85 

64 

STA 

S64 

BBC4 

b9 

OZ 00 

LDA 

soooz. 

BBC7 

F5 

OZ 

SBC 

soz.x 

B6C9 

85 

63 

STA 

S63 

B8CB 

B9 

01 00 

LDA 

S0001, 

BBCE 

F5 

01 

SBC 

SOl.X 

B800 

65 

6Z 

STA 

S62 


Vorzeichen wechseln 
Carry ist schon 1 
Rijridungssteüe 
loschen 

Offset-Zeiger für FAC laden 
unbedingter Sprung 
FAC'Rurdungsstelle 
löschen 

wenn Exponentdifferenz 
gröeer als 7, dann zu SB862 
Akku löschen 
FAC-Runck#igsstelle 
laden 

Mantisse verschieben 
wenn FAC- und ARG-Vorzeichen 
identisch, dann zu SB8FE 
Offset-Zeiger für FAC laden 
wenn Offset-Zeiger für ARG 
initialisiert, dann zu SB8AF 
Offset-Zeiger laden 
Carryflag für Subtraktion 
setzen 

Alle Bits URidrehen 
Risidungsstelle addieren 
und speichern 
viertes Byte 
subtrahieren und in 
FAC speichern 
drittes Byte 
subtrahieren und in 
FAC Speichern 
zweites Byte 
subtrahieren und in 
FAC speichern 
erstes Byte 
subtrahieren und in 
FAC speichern 
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1 insprung 

von 

SBCSS, SBCE6 

8802 

BO 

03 

BCS BB807 

180« 

20 

67 B9 JSR 

SB967 

F j nsprung 

von 

SBB9F. SEOEF 

807 

AO 

00 

LOY 

MOO 

8809 



TYA 


eaOA 

T8 


CLC 


eSOB 

A6 

62 

LDX 

$62 

B800 

00 

6A 

BNE 

SB929 

BSOF 

A6 

63 

LDX 

$63 

B8E1 

B6 

62 

STX 

862 

rbes 

A6 

6« 

LDX 

$64 

R8E$ 

86 

63 

STX 

$63 

»flC7 

A6 

65 

LDX 

$65 

K8E9 

86 

64 

STX 

$64 

a8EB 

A6 

70 

LDX 

$70 

B0CD 

86 

65 

STX 

$65 

B8EF 

8« 

70 

STV 

$70 

B8F1 

69 

08 

ADC 

»08 

B8F3 

C9 

20 

CMP 

«$20 

Bers 

00 

E6 

BNE 

SSBDB 

Einsprung 

von 

SB7B2, SSAOC 

B8F7 

A9 

00 

LDA 

MOO 

Etnsprung 

von 

SBF81 


B8F9 

85 

61 

STA $61 

Einsprung 

von SBACC 


B8FB 

85 

66 

STA $66 

B8F0 

60 


RTS 



wem Übertrag negativ, dann 
weiter 

Mantisse von FAC invertieren 


r-Reg und 
Akku ICsolten 
Cerry loschen 
wenn S62s0 dann, 
zu SB929 
Das 

gesamte 

FAC 

wieder 

norfM- 

lisieren 

Rundungsstelle 

wieder 

loschen 

Zähler un 8 Bits verschieben 
wenn 32 Bits verschoben, 
dann weiter 


Mantisse *0 


FAC sO 


Exponent «0 
Rücksprung 
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64 Inlern 


bsfe 

65 

56 

ADC 

$56 

B9GC 

85 

70 

STA 

$70 

»902 

A5 

66 

LOA 

S6S 

B904 

65 

6D 

ADC 

$60 

B906 

85 

65 

STA 

$65 

B908 

A5 

66 

LOA 

$66 

890A 

65 

6C 

ADC 

S6C 

B90C 

85 

66 

STA 

$66 

B90E 

A5 

63 

LDA 

$63 

B910 

65 

69 

ADC 

$6B 

B912 

85 

63 

STA 

$63 

B914 

A5 

62 

LDA 

$62 

B916 

65 

6A 

AOC 

$6A 

B918 

85 

62 

8TA 

$62 

B91A 

6C 

36 B9 JHP 

$B936 

B910 

69 

01 

AOC 

«$01 

B91F 

06 

70 

A5L 

$70 

B921 

26 

65 

ROL 

$65 

B923 

26 

64 

ROL 

$64 

B925 

26 

63 

ROL 

$63 

B927 

26 

62 

ROL 

$62 

B929 

10 

F2 

BPL 

$B91D 

B92B 

38 


SEC 


B92C 

E5 

61 

SBC 

$61 

B9ZE 

BO 

C7 

BCS 

$BSF7 

B930 

69 

FF 

EOR 

«$FF 

B932 


01 

AOC 

noi 

B934 

85 

61 

STA 

$61 

Einsprung 

von 

SB91A 


B936 

90 

OE 

BCC 

SB966 

Einsprung 

von 

SBC28 


B9Sa 

S& 

61 

INC 

$61 

B93A 

fo 

62 

BEO 

$B97E 


Rundungsstelle addieren 

und speichern 

FAC 

und ARG 

addieren 

FAC 

und ARG 

addieren 

FAC 

und ARG 

addieren 

FAC 

und ARG 
addieren 

Überlaufbit in Mantisse 

zurückshiften 

Zähler erhöhen 

FAC solange 

nach links 

verschieben bis das 

Bit 7 

gesetzt ist 

nicht gesetzt ? dann nochetsl 
Menn Binärexponsnt kleiner 
als die Anzahl der 
Verschiebis^gen, dann wird die 
Zahl als Nult behandelt 
Exponent um 
Verschiebungsanzahl 
vernindern 


Carry gesetzt, nein dann RTS 


Exponent erhöhen 

wenn Überlauf in Exponent, 

dann 'OVERFLOU ERROR' 
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B93C 

66 62 

ROR 

■62 

B93E 

66 63 

ROR 

■63 

BMO 

66 64 

ROR 

■64 

■942 

66 65 

ROR 

■65 

■944 

66 70 

ROR 

■70 

■946 

60 

RTS 



CInsprung von 

SBSD4 


■947 

AS 66 

LOA 

■66 

B949 

49 FF 

EOR 

«■FF 

■94B 

SS 66 

STA 

■66 

Einsprung von 

SBCAB 


■940 

AS 62 

LOA 

■62 

■94F 

49 FF 

EOR 

MFF 

■951 

SS 62 

STA 

■62 

■953 

A5 63 

LDA 

■63 

■955 

49 FF 

EOR 

[KFF 

■957 

SS 63 

STA 

■63 

■959 

A5 64 

LDA 

■64 

■958 

49 FF 

EOR 

«SFF 

■950 

SS 64 

STA 

■64 

■95F 

AS 65 

LDA 

■65 

■961 

49 FF 

EOR 

«■FF 

■963 

SS 6S 

STA 

■65 

■965 

AS 70 

LOA 

■70 

■967 

49 FF 

EOR 

«SFF 

■969 

SS 70 

STA 

»70 

■966 

E6 70 

INC 

■70 

B960 

DO OE 

BNE 

SB970 

Einspri.ing von 

$BC23 


B96F 

E6 65 

INC 

■6S 

8971 

DO DA 

BNE 

■697D 

B973 

E6 64 

INC 

■64 


Überlaufbit in Carry schieben 

Das Carry-Flag 

erhält die 

Position des 

höchstwertigen Bits 

Rücksprung 

Mantisse von FAC invertieren 


FAC Vorzeichen 
invertieren 
und speichern 


FAC 

invertieren 
und speichern 
FAC 

invertieren 
und speichern 
FAC 

invertieren 
und speichern 
FAC 

invertieren 

und spei ehern 

FAC-Rundungsbyte 

invertieren 

und speichern 

Mantisse erhöhen 

nicht Null? dann RTS 


FAC erhöhen 

nicht Null? dann RTS 

FAC erhöhen 
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64 Intern 


B975 

00 06 

BNE SB970 

nicht Nuü? 

denn 

RTS 

B977 

E6 63 

INC S63 

FAC erhöhen 



B979 

DO 02 

BME SB970 

nicht Null? 

dann 

RTS 

B97B 

E6 62 

IHC S62 

FAC erhöhen 



B970 

60 

RTS 

Rücksprung 




Einsprung von $8A0F, S8D9D 

B97e A2 OF LOX «$0F Nuner für 'OVERFLOW' 

B9S0 4C 37 A4 JHP $A437 Fehlemeldi«« susgeben 

•»••••••»•••••••••••*■**•••*• Rechtsverschieben eines 

Registers 


Einsprung von 

SBA5B 


B983 

A2 25 

LOX #S25 

Offset-Zeiger auf Register 

8905 

B4 04 

LOY S04,X 

FAC- 

B9S7 

84 70 

STY $70 

Rundungsbyte 

B989 

B4 03 

LOY $03,X 

1 mal 

B988 

94 04 

STY S04,X 

verschieben 

B98D 

B4 02 

LOY S02,X 

2 mal 

B9SF 

94 03 

STY S03,X 

verschieben 

B991 

B4 01 

LOY S01,X 

3 mal 

B993 

94 02 

STY S02.X 

verschieben 

B995 

A4 6B 

LOY $66 

FAC- 

B997 

94 01 

STY SOl.X 

Rurdjngsbyte 

Einsprung von 

$B862, SBCB5 


B999 

69 00 

ADC #SOB 

Zähler um 8 erhöhen 

B99B 

30 E8 

BMI SB985 

gröBer als 0? 

B990 

FO E6 

BEQ $6985 

wenn nicht, dann weiter 




verschieben 

B99F 

E9 08 

SBC «$08 

Zähler un 8 vermindern 

B9A1 

A8 

TAY 

Zähler sichern 

B9A2 

A5 70 

LOA $70 

FAC-Rundungsbyte laden 

B9A4 

BO 14 

BCS $B9BA 

wenn Null, dann CLC, RTS 

B9A6 

16 01 

ASL $01.X 

höchstwertiges Bit s1?, 

B9A0 

90 02 

BCC $B9AC 

wenn nicht, dann zu $B9AC 




P^as RO\f-Lisling 
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B9AA 

F6 

01 


INC 

S01.X 

B9AC 

76 

01 


ROR 

S01.X 

B9AE 

76 

01 


ROR 

S01.X 

Einsprung 

von SSBAO, SBCC6 

B9BD 

76 

02 


ROR 

S02,X 

B9BZ 

76 

03 


ROR 

S03,X 

B9B4 

76 

04 


ROR 

S04,X 

B9B6 

6A 



ROR 

A 

B9B7 

C8 



m 


B9B8 

00 

EC 


8tfE 

SB9A6 

B9BA 

18 



CLC 


B9Be 

60 



RTS 



B9ec 

31 

00 

00 

00 00 


69C1 

03 





89C2 

7F 

5E 

56 

CB 79 


B9C7 

80 

13 

9B 

06 64 


B9CC 

80 

76 

38 

93 16 


B9D1 

82 

38 

AA 

3B 20 


8905 

80 

35 

04 

r3 34 


8908 

81 

35 

04 

F3 34 


89E0 

80 

80 

00 

00 00 


B9E5 

80 

31 

72 

17 F8 



Einsprung 

von $BFA3 


B9EA 

20 

2B BC 

JSR 

S6C2B 

B9E0 

FO 

02 

BEO 

SB9F1 

B9EF 

10 

03 

BPL 

SB9F4 

B9F1 

4C 

48 B2 

JHP 

SB248 

B9F4 

A5 

61 

LOA 

S61 

B9F6 

E9 

7F 

SBC 

#$7F 

B9F8 

48 


PHA 



höchste Hantissenstelle 

erhöhen 

sämtliche 

Stellen 


um ein 

Bit nach 

rechts 

verschieben 

Zähler uv eins erhöhen 

verschieben bis Zähler =0 

Carry löschen 

Rücksprtjng 

Konstanten für LOG 

1 

3 = Polyrwoigrad, dann 4 
Koeffizienten 
.434ZSS94Z 
.576584541 
.961800759 
Z. 88539007 

.707106781 = VSORCZ) 
1.414Z1356 - SOR(Z) 

-.5 

.693147181 = LOG(Z) 

BRSIC-funktion LOG 


Vorzeichen holen 
null ?, dann fertig 
positiv ?r dann ok 
■ILLEGAL OUANTITY' 
Exponent 
normalisieren 
und nerken 
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64 Intern 


B9F9 

A9 

80 


LOA 

M80 

B9FB 

85 

61 


STA 

t61 

B9FD 

A9 

06 


LDA 

$06 

B9FF 

AO 

B9 


LOY 

BB9 

BA01 

ZO 

67 

B8 

JSR 

S6867 

BA06 

A9 

OB 


LDA 

«SDB 

BA06 

AO 

B9 


LOY 

#SB9 

BA08 

ZO 

DF 

BB 

JSR 

SBBDF 

BAOB 

A9 

BC 


LDA 

«SBC 

BAOO 

AO 

B9 


LOY 

«SB9 

BADF 

ZO 

50 

Bd 

JSR 

$8850 

BA12 

A9 

Ci 


LDA 

«$C1 

BA14 

AO 

B9 


LOY 

«SB9 

BA16 

20 

43 

EO 

JSR 

SE043 

BA19 

A9 

EO 


LDA 

«SEO 

BA1B 

AO 

B9 


LOY 

«S89 

BA10 

20 

67 

B8 

JSR 

SB867 

BA20 

68 



PLA 


BAZI 

20 

7E 

BD 

JSR 

SB07E 

BAZ4 

A9 

E5 


LDA 

«SE5 

BAZ6 

AO 

B9 


LOY 

«SB9 


Zahl in Bereich 0.5 bis 1 

bringen 

Zeiger auf 

Konstante VSORCZ) 

zu FAC addieren 

Zeiger auf 

Konstante SOR<2} 

SQR(2) durch FAC dividieren 
Zeiger 

auf Konstante 1 
1 minus FAC 
Zeiger auf 

Polynoeikaef f i z i enten 
Polynoffiberechnung 
Zeiger auf 
Konstante -0.5 
zu FAC addieren 
Exponent zurückholen 
FAC : FAC * FAC 
Zeiger auf 
Konstartte LOC(2} 

Multiplikation FAC - 
Konstante (A/Y) ■ FAC 


Einsprung von SBE06, SBFAA, SBFF1, SE04C, SE056, SE070, 
SE0C9 


BA28 

20 

8C BA 

JSR SBABC 

Konstante nach ARG 


l•••1 



' Multiplikation FAC 





FAC 

BA2B 

DO 

03 

BNE SBA30 

nicht null ? 

BAZO 

4C 

8B BA 

JHP SBABB 

RTS 

BA30 

20 

B7 BA 

JSR SBAB7 

Exponent berechnen 

BA33 

A9 

00 

LOA «800 

Alle 

BA35 

85 

26 

STA S26 

Funkti ons- 

BA37 

85 

27 

STA $27 

register 

eA39 

85 

28 

STA S28 

lö- 

BA3B 

85 

29 

STA S29 

sehen 


ARG * 
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BA3D 

AS 

70 


LOA 

S70 

bitweise 

BASF 

20 

59 

BA 

JSR 

SBA59 

Multiplikation 

M42 

AS 



LOA 

S6S 

bitweise 

■A44 

20 

59 

BA 

JSR 

SBA59 

Multiplikation 

BA47 

AS 

64 


LOA 

S64 

bitweise 

BA49 

20 

59 

BA 

JSR 

SSA59 

Hultipl f kation 

BA4C 

AS 

63 


LOA 

$63 

bitweise 

BA4E 

20 

59 

BA 

JSR 

$BAS9 

Multiplikation 

BA51 

AS 

62 


LOA 

162 

bitweise 

BASS 

20 

5E 

BA 

JSR 

SBA5E 

Nultiplikatitf) 

BA56 

4C 

8F 

BB 

JHP 

SB6BF 

Register nach FAC, 


linksbündig macKen 


>•««• bitweise Multiplikation 


Einsprung von 

SBA3F, $BA44. 

$BA49, $BA4E 

RAS9 

DO 03 

BNE sbase 

Rechtsverschieben 

BA5B 

4C 83 1 

39 JMP SB983 

des Registers 

Einsprung von 

SBA53 


BASE 

4A 

LSR A 

binäre Multiplikation 

BASF 

09 80 

ORA «iS80 

des Akkus 

BA61 

AS 

TAY 

mit ARC. 

BA62 

90 19 

BCC SBA7D 

Das Ergebnis kommt 

BA64 

18 

CLC 

in das 

BA6S 

AS 29 

LOA $29 

Register für 

BA67 

65 60 

ADC $60 

Funktionen. 

BA69 

85 29 

STA $29 

Bei gesetttem Bit 

BAÖB 

>6 28 

LOA $28 

im Akku 

BA6D 

65 6C 

ADC t6C 

wird ARS 

BA6F 

85 28 

STA $28 

zin 

BA71 

AS zr 

tOA $27 

Funktionsregister 

BA73 

65 6B 

AOC $66 

addiert. 

BA75 

85 27 

STA $27 

Zusätzlich 

BAT7 

AS 26 

LOA $26 

werden 

BA79 

65 6A 

ADC $6a 

die 

8A7B 

85 26 

STA $26 

Funktionsregister 

BA70 

66 26 

ROR $26 

noch 
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64 Intern 


6A7F 

66 27 

ROR 127 

verdoppelt. 

BA81 

66 28 

ROR 128 

Die Routine 

6Ae3 

66 29 

ROR 129 

arbeitet 

BASS 

66 70 

ROR 170 

im selben 

BAB7 

98 

TYA 

Printip 

BASS 

AA 

LSR A 

wie 

BA89 

DO D6 

BNE 1BA61 

bei SB3AC. 

Einsprung von SBA2D 


BASS 

60 

RTS 

RCicksprung 


ARG * Konstante (A/Y) 

Einsprung von 

1B850, 1B867, 1BA26, IBBOF 

BASC 

85 22 

STA 122 

Die 

BASE 

SA 23 

STY 123 

Konstante, 

BA9Q 

AO OA 

LOY MOA 

auf 

BA92 

B1 22 

LDA (122),Y 

die 

BA94 

85 60 

STA 160 

das 

BA96 

SS 

DEY 

Akku 

BA97 

Bl 22 

LDA (122),Y 

und 

BA99 

85 6C 

STA 16c 

das 

BA9e 

88 

DEY 

Y-Reg 

BA9C 

Bl 22 

LOA (122),Y 

zeigt, nach ARG. 

BA9E 

85 6B 

STA 166 

Die 

BAAO 

88 

DEY 

gesamten 

BAA1 

B1 22 

LOA (122),Y Vor- 

BAA3 

85 6E 

STA 16E 

zei- 

BAAS 

A5 66 

EOR 166 

ehen 

BAA7 

85 6F 

STA S6F 

von 

BAA9 

A5 6E 

LOA t6E 

FAC 

BAAB 

09 80 

ORA fl80 

und 

BAAD 

85 6A 

STA 16A 

ARG 

6AAF 

SS 

DEY 

ver» 

BABO 

Bl 22 

LDA (122),Y knüp- 

BAB2 

85 69 

STA 169 

fm 

BABA 

A5 61 

LOA 161 

FAC-Exponent 

BAB6 

60 

RTS 

ROeksprung 
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EinsprLvtg von SBA30, SBB1E 
BAB7 AS 69 LDA S69 


Einsprung von SE03F 


BA69 

FO 1F 

BEQ SBAOA 

BA66 

18 

CLC 

BABC 

6S 61 

ADC t61 

BABE 

90 04 

BCC SEAC4 

BACO 

30 10 

BMI SBAOF 

BAC2 

18 

CLC 

BAC3 

2C 

.BVTE S2C 

BAC4 

10 14 

BPL SBADA 

BAC6 

69 80 

ADC mo 

SAC8 

SS 61 

STA S61 

BACA 

00 03 

BNE SBACF 

BACC 

4c FB B3 

JHP SB8FB 

BACF 

AS 6F 

LDA S6F 

BAD1 

85 66 

STA S66 

BADS 

60 

RTS 


Einsprung von SEDOB 


BAD4 

AS 

66 

LDA 

S66 

BA06 

49 

FF 

EOR 

«SFF 

BADS 

30 

05 

BHI 

SBADF 

BADA 

68 


PLA 


BADB 

68 


PLA 


BADC 

4C 

F7 B8 

JHP 

SB8F7 

BADF 

4C 

7E B9 

JHP 

SB97E 


wenn Exponent von ARC=0, 


dann zu BBAOA 
FAC- und ARG- 
Exponent 
addieren 

Nenn Überlauf, dann 
■OVERFLOU ERROR' 

Carry 

löschen 

Wenn Unterlauf, dann zu SBADA 

ergibt 

FÄC- 

Exponent 

FAC > 0 

FAC- und ARG-Vorzeichen 
verknüpfen 
und speichern 
Rücksprung 


uem positives 
Vorzeichen, dann 
■OVERFLOU ERROR' 
Einsprungadresse 
vsRi Stack holen 
FAC s 0 

'OVERFLOU ERROR' 
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64 Intern 


FAC ■ FAC • 10 


Einspruns von SA9F2, SAAQE. SBD5B, $8071, $BE21 


SAE2 

20 Oc BC 

JSR 

$BC0C 

BAE5 

AA 

TAX 


BAE6 

FO 10 

BEO 

$BAF8 

BAE8 

18 

CLC 


BAE9 

69 02 

ADC 

«$02 

BAEB 

BO F2 

BCS 

SBADF 


Elnsprung von $AA04 


BAEO 

A2 00 

LDX 

#$00 

baef 

86 6F 

STX 

$6F 

BAF1 

20 77 B8 

JSR 

$6877 

BAFA 

E6 61 

INC 

$61 

BAF6 

FO E7 

BEQ 

$BA0F 

BAF8 

60 

RTS 



FAC runtffen und nach ARG 
FAC-Exponent 

FAC gleich null, dann fertig 
Exponent + 2 
entspricht ml 6 
llbertras 7 


Vergleichsbyte 

löschen 

FAC » FAC + ARG entspricht 
ml S 

Exponent erhöhen entspricht 

ml 2 

Übertrag, dann 'OVERFLCW' 
Rücksprung 


*•••••••••••«*••••••••»•••••• 

8AF9 8« 20 00 00 00 FlieBkaemakonstante 10 


FAC = FAC / 10 


Einsprung von SBDS2, SBE28 


SAFE 

20 OC BC 

JSR $BCOC 

BB01 

A9 F9 

LOA #$F9 

BB03 

AO BA 

LOY «$BA 

BBOS 

A2 00 

LDX #$00 


FAC runden und nach ARG 

Zeiger 

auf 

Konstante 10 


Einsprung von SE276 


BB07 86 6F 
BB09 20 f2 BB 

8B0C 4C 12 66 


$TX $6F Vergleichsbyte löschen 
JSR $6BA2 Konstante 10 nach FAC 
JHP $6612 FAC • ARG / FAC 
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FAC > Konstante <A/r} / FAC 


Einsprung von $BA08, Se2d9, SE321 


BBOF 20 8C BA JSR S6A8C Konstante (A/Y) nach ARG 


Einsprung 

von SBBOC 


BB12 

fO 

76 

BEQ 

SBB8A 

BB14 

20 

1B BC 

JSR 

SBC» 

BB17 

A9 

00 

LDA 

#S00 

BB19 

38 


SEC 


BBIA 

ES 

61 

SBC 

S61 

BBIC 

SS 

61 

STA 

$61 

BB1E 

20 

B7 BA 

JSR 

$eA67 

BB21 

E6 

61 

INC 

$61 

BB23 

FO 

BA 

BEO 

$BADF 

BB2S 

A2 

FC 

LDX 

«$FC 

BB27 

A9 

01 

IDA 

«$01 

BB29 

A4 

6A 

LDY 

S6A 

BB2B 

C4 

62 

CRY 

$62 

BB2D 

DO 

10 

BNE 

$BB3F 

BB2F 

A4 

6B 

LOY 

$6B 

BB31 

C4 

63 

CPY 

$63 

BB33 

DO 

OA 

BNE 

$BB3F 

BB3S 

A4 

6C 

LDY 

$6C 

BB37 

C4 

64 

CRY 

$64 

BB39 

DO 

04 

BNE 

$BB3F 

BB3B 

A4 

60 

LOY 

$60 

BB3D 

C4 

65 

CRY 

$65 

Be3F 

08 


RHP 


BB40 

2A 


RDL 

A 

BB41 

90 

09 

BCC 

$BB4C 

BB43 

E8 


INX 


BB44 

95 

29 

STA 

$29,X 

BB46 

FO 

32 

BEQ 

$BB7A 


FAC • ARG / FAC 


FAC gleich null, 

■OIVtStON BY 2ER0' 

FAC runden 
Vorzeichen 
von FAC- 
Exponent 
wechseln 

Exponent des Ergebnisses 

bestinnen 

wenn Exponentenüberlauf, 
dann 'OVERFLOU ERROR' 

Zeiger 

auf 

Funktionsregister 

diese 

Routine 

vergleicht 

das 

FAC 

und 

das 

ARG 

byte- 

weise 

Statusregister retten 
Carry gelöscht, 
dann zu SBB4C 
Ergebnis 
aufbauen 

wenn X-Reg >0, dann zu SBB7A 
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64 Intern 


BB46 

10 

34 

BPL 

SB87E 

BB4A 

A9 

01 

LOA 

«01 

BB4C 

28 


PLP 


BB4D 

BO 

OE 

BC8 

SBföO 

Einsprung 

von SBB77 


BS4F 

66 

60 

A$l 

S60 

BBS1 

26 

6C 

ROL 

S6C 

BBS3 

26 

6B 

ROL 

S6B 

BBS5 

26 

6A 

ROL 

S6A 

BB57 

BO 

E6 

6CS 

SBB3F 

BB59 

30 

CE 

BMI 

SBB29 

BB$B 

10 

E2 

BPL 

S8B3F 

68SD 

AB 


TAY 


BB5E 

AS 

60 

LDA 

S6D 

BB60 

ES 

65 

SBC 

S65 

BB62 

05 

60 

STA 

$60 

BB64 

AS 

6C 

LOA 

S6C 

BB66 

ES 

64 

SBC 

$64 

BB6e 

85 

6C 

STA 

S6C 

BB6A 

AS 

6B 

LDA 

$6B 

B86C 

ES 

63 

SBC 


BB6E 

BS 

6B 

STA 

$6B 

BB70 

AS 

6A 

LDA 

$6A 

B872 

ES 

62 

SBC 

$62 

BB74 

85 

6A 

STA 

S6A 

8B76 

98 


TYA 


BB77 

4C 

CD 

JHP 

$BS4F 

BB7A 

A9 

40 

LOA 

«40 

B67C 

00 

CE 

BNE 

$SB4C 

BB7E 

OA 


ASL 

A 

BB7F 

OA 


ASL 

A 

BB80 

OA 


ASL 

A 

BB81 

OA 


ASL 

A 

BBS? 

OA 


ASL 

A 

BB83 

OA 


ASL 

A 


uerv) X-Reg >1, dann zu SBB7E 
«enn 

FAC kleiner oder gleich 
AS&, dann zu SSBSD 


Obs 

AAB 

ver¬ 

doppeln 

wenn Clberleufj dann zu $88SF 
wenn Bit 7 gesetzt, dann 
zu SBB29 

ansonsten zu BBB3F 
Oie 

Mantisse 

von 

ARG 

minus 

der 

Henttsse 

von 

FAC 

sub- 

tra- 

hie- 

ren 

und wieder 

zu SBB4C 

unbedirgter 

Sprung 

den 

Akku 

mit 

64 

multi¬ 

plizieren 
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BBa4 

SS 70 

STA S7D 

BB86 

2S 

PLP 

BBS7 

4C SF BB 

JHP SBB8F 


Ergeben • Rundungsstelle 
Statusregister aus Stack 
HUfsregister nach FAC 


BB8A A2 14 LDX «SK Numer fOr 'DIVISION BY ZERO' 

BB8C 4C 37 A4 JHP SA437 Fehlermeldung ausgeben 


Einspnitig von SBA56, SBB87 


BBSF 

AS 26 

LDA S26 

Hilfs- 

BB91 

SS 62 

STA S62 

register 

B693 

AS 27 

LDA $27 

($26 - $29} 

BB9S 

SS 63 

STA S63 

nach 

BB97 

AS 2S 

LOA S2S 

FAC 

BB99 

85 64 

STA $64 

über¬ 

BB9B 

AS 29 

LDA $29 

tra¬ 

BB90 

S5 65 

STA $65 

gen 

BB9F 

4C D7 BS 

JHP $B8D7 

FAC linksbiMig machen 


•***••♦♦♦•••••••••*********** IConstante CA/Y> nach FAC 

übertragen 

Einsprung von tA78F, SAD42, SAEA2, SAFA4, SBBD9, SBF7fi, 
SEDC2, SE2C9 


BBA2 

85 

22 

STA $22 Zeiger 

BBA4 

84 

23 

STY $23 setzen 

BaA6 

AO 

04 

LDY #$04 Zähler setzen 

BBAS 

B1 

22 

LDA ($22),Y LOU-Byte 

BBAA 

85 

65 

STA $65 der 

BBAC 

88 


DEY Mantisse 

BBAO 

B1 

22 

LDA ($22).Y und 

BBAF 

85 

64 

STA $64 KIGH- 

BBB1 

88 


DEY Byte 

BBB2 

B1 

22 

LDA ($22),Y der 

BBB4 

85 

63 

STA $63 Mantisse 

BBB6 

88 


DEY in 
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64 Intern 


BBSr 

B1 22 

LOA (t22>,Y 

FAC 

BBB9 

85 66 

STA $66 

holen 

B6BB 

09 80 

ORA »80 

Vorzeichen 

BBBD 

85 62 

STA S62 

der 

BB6F 

88 

DEY 

Han* 

BBCO 

Bl 22 

LDA ($22),Y 

tisse 

BBC2 

85 61 

STA t61 

Exponent 

BBC4 

84 70 

STT S70 

Rie»a>gsstelle 

BBC6 

60 

RTS 

Rücksprixig 

Eintpruns von BEOSD 


BBC7 

A2 SC 

LOX »5C 

Adresse LOU 

BBC9 

2C 

.BYTE $2C 

Akku » 




FAC nach Akku #3 übertragen 

Einsprung von $E047. SE2S4 


BBCA 

A2 57 

LDX »57 

Adresse LOU Akku lO 

BBCC 

A.0 00 

LDY »00 

Adresse HIGH 

BBCE 

FO 04 

BEQ SBBDA 

Kibedingter Sprung 

Einsprung von $A904, SA0S2 





FAC nach Variable übertragen 

BBDO 

A6 49 

LDX $49 

Variablenadresse 

BBD2 

A4 4A 

LDY $4A 

holen 

Einsprung von tB420, SBF88, SE0F6 

BBD4 

20 1B BC 

JSR SBCIB 

FAC runden 

BBD7 

86 22 

STX $22 

Zeiger auf 

BBD9 

84 23 

STY $23 

Zieladresse 

BBDB 

AO 04 

LOY »04 

Zähler setzen 

BBDO 

A5 65 

LDA $65 

LOU'Byte der Mantisse 

BBDF 

91 22 

STA ($22). Y 

Den 

BBEl 

88 

DEY 

FAC 
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BBE2 

A5 64 

LOA t64 

in 

BBE4 

91 22 

STA ($223,Y 

den 

BBE6 

ee 

DEY 

Ziel¬ 

BBE7 

A5 (ß 

LDA $63 

bereich 

BBE9 

91 22 

STA ($22),Y 

Über¬ 

BBEB 

S8 

DEY 

trägen 

BBEC 

A5 66 

LOA S66 

FAC-Vorzefchen 

BBEE 

09 7F 

ORA «$7F 

Die Bits 0 bis 6 setzen 

BBFD 

25 62 

AND t62 

Vorzeichen auf 

BBF2 

91 22 

STA (122),Y SpeicherforiMt 

BBF4 

S8 

DEY 

bringen 

BBFS 

A5 61 

LDA $61 

FAC-Exponent 

BBF7 

91 22 

STA ($22),Y übertragen 

BBF9 

B4 70 

STY $70 

FAC-Rundungssteile löschen 

BBFB 

60 

RTS 

RUcksprung 


AAG nach FAC Obertrasan 


Einsprung von SAFFC, SB86C 

BBPC A5 6E LDA B6E ARS-Vorzeichen 


Einsprmg von SBF9E 


BBFE 

85 66 

STA $66 

in FAC'fteg übertragen 

BCOO 

A2 05 

LOX «05 

5 Bytes 

BC02 

B5 6B 

LDA $68,X 

ARG in 

BC04 

95 60 

STA S60.X 

FAC 

BC06 

CA 

DEX 

übertragen 

BC07 

DO F9 

BNE $BC02 

schon alle Zeichen ? 

BC09 

86 70 

STX $70 

FAC-RuncM>sssteUe ISsahen 

BCOB 

60 

RTS 

Rücksprung 


nach ARO übertragen 

Einsprung von SA9FC, tBAEE, SBAFE, SBD7F, BBF71, tE26B, 
$E277 


BCOC 20 1B BC JSR SBC1B FAC runden 
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64 Intern 


Einsprung von SE002 


BCOF 

A2 06 

LDX M06 

6 2 »ichen 

BC11 

65 60 

LOA S60,X 

FAC in 

BC13 

95 68 

STA S68.X 

ARG 

BC15 

CA 

OEX 

übertragen 

BC16 

00 F9 

BNE SBC11 

schon alle Zeichen ? 

BC18 

86 70 

STX »70 

FAC'Rundüngsstelle löschen 

BCIA 

60 

RTS 

Röcksprung 


••***•••«*••••«••«•«**««••*«• riwxten 

Eif^prung von $A9C4, SAE43, IBBD4« SBCOC 


BC1B 

AS 

61 


LOA »61 

Exponent null ?, 

6C1D 

fO 

FB 


BEO SBC1A 

dann fertig 

BC1F 

06 

70 


ASL »70 

Rundungsstelle gröBer »7F ? 

BC21 

90 

F7 


BCC SBC1A 

nein, dann fertig 

Einspring 

von tOFFA 


BC23 

20 

6F 

B9 

J8R SS96F 

Mantisse um eins erhöhen 

BC26 

DO 

F2 


BNE »BCIA 

jetzt null ? 

BC26 

4C 

38 

B9 

JHP SB938 

nach rechts verschieben, 
Exponent erhöhen 


»***4 

r**« 

• ••9 


'• Vorzeichen von FAC holen 

Einsprtng von »A79F, SB9EA. 

»BC39, SE097 

BC2B 

AS 

61 


LOA »61 

Nenn null. 

BCZP 

FO 

09 


BEO SBC38 

dann RTS 

BC2F 

AS 

66 


LOA »66 

FAC'Vorzeichen 

Einsprung 

von SBC96 


BC31 

2A 



ROL A 

holen 

BC32 

A9 

FF 


LOA AFF 

negativ? 

BC34 

BO 02 


BCS SBC3S 

dann RTS 
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BC36 

A9 01 

LOA «01 

sonst positiv 

BC3B 

«0 

RTS 

ROeksprij-ig 


BASIC'Funktlon SGH 

BC39 

20 2B BC JSR SBC2S 

Vorzeichen holen 

BC3C 

85 62 

STA S62 

und in FAC speichern 

BC3E 

A9 00 

LOA «00 

863 

BC40 

85 63 

STA 863 

löschen 

BC42 

A2 88 

LOX «88 


Einsprung von 

SB39B 


BC44 

AS 62 

LOA S62 

Vorzeichen 

BC46 

49 FF 

EOK «FF 

invertieren 

BC48 

2A 

ROL A 

und nach links reiten 

EinsprLii>9 von 

tBDD4 


BC49 

A9 00 

LOA «00 

Die Adressen 

BC4B 

85 65 

STA S6S 

$65 

BC40 

85 64 

STA 864 

und 864 löschen 

Einsprung von 

SAF81 


BC4F 

86 61 

STX S61 

Exponent 

BC51 

85 70 

STA S70 

Rtrvjungsstelle 

BCS3 

85 66 

STA 866 

löschen 

BCSS 

4C 02 1 

S8 JHP SB802 

linksbündig machen 




BASIC'Funktion ABS 

BC58 

46 66 

LSR 866 

Vorzeichenbit löschen 

BC5A 

60 

RTS 

Rücksprung 


Vergleich Konstante (A/Y) mit 




FAC 

Elnsprimg von 

$B027, SB1C9, SBEOf. SBE1A, SBF96 

BCSB 

85 24 

STA 824 

Zeiger auf 
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64 Inlern 


Einsprung 

von 

SA057 


BCSD 

84 

25 

STY 

S25 

BC5F 

AO 

00 

LDY 

RSOO 

BC61 

B1 

24 

LDA 

($24),Y 

BC63 

C8 


INT 


BC64 

AA 


TAX 


BC6S 

FO 

C4 

BEO 

SBC2B 

BC67 

B1 

24 

LDA 

($24>.T 

BC69 

45 

66 

EOR 

$66 

BC6B 

30 

C2 

BHI 

$BC2F 

BC6D 

E4 

61 

CPX 

$61 

BC6F 

DO 

21 

BNE 

$BC92 

BC71 

Bl 

24 

LOA 

($24),Y 

BC73 

09 

80 

ORA 

#$80 

BC73 

C5 

62 

CMP 

$62 

BC77 

DO 

19 

BNE 

SBC92 

BC79 

C8 


INT 


BC7A 

B1 

24 

LDA 

($24).T 

BC7C 

CS 

63 

CHP 

$63 

BC7E 

DO 

12 

BNE 

$BC92 

Bceo 

C8 


INT 


BC81 

B1 

24 

LDA 

($24).Y 

BC83 

CS 

64 

CMP 

$64 

BC85 

DO 

OB 

BNE 

$BC92 

BC87 

C8 


INT 


BC88 

A9 

7F 

LDA 

#$7F 

BCBA 

CS 

70 

CMP 

$70 

BC8C 

B1 

24 

LDA 

($24),T 

BC8E 

ES 

65 

SBC 

$65 

BC90 

FO 

28 

BEQ 

$BCBA 

BC92 

AS 

66 

LDA 

$66 

BC96 

90 

02 

BCC 

$BC98 


Konstante 
Zähler setzen 
Exponent 
Zähler erhöhen 
ins X-ReB 

null?, dann Vorzeichen von 

FAC holen 

Konstante 

FAC-Vorzeichen 

verschiedene Vorzeichen?, 

denn zu SBC2F 

Exponenten vergleichen 

falls verschieden, dann zu 

SBC92 

das 

erste 

Byte 

vergleichen 
Zähler erhöhen 
das zweite 
Byte 

vergleichen 
Zähler erhöhen 
das dritte 
Byte 

vergleichen 
Zähler erhöhen 
FAC-Rundungsstelle mit 
B7F vergleichen 
letzte Stellen, geniäB Ver¬ 
gleich der Rurtdungsstelle, 
subtrahieren 
wenn alle Stellen gleich 
sind, dann RTS 
FAC-Vorzeichen 
ist die Konstante kleiner 
FAC, dam zu S8C98 
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BC96 

69 FF 

EOR «tFF 

Ergebnis kleiner, dann 

invertieren 

BC98 

6C 31 BC 

JHP $BC31 

Flag für Ergebnis setzen 


UDMandlung FlieKoMW nach 
Integer 


Einsprung von SAA11, SSICE, SBEOI, SBCD2, SBE32 


BC9B 

AS 

61 

LOA $61 

BC90 

FO 

6A 

BEQ SBCE9 

BC9F 

38 


SEC 

BCAO 

E9 

AO 

SBC IFSAO 

6CA2 

26 

66 

BIT $66 

BCA6 

10 

09 

BPL SBCAF 

BCA6 

AA 


TAX 

BCA7 

A9 

FF 

LOA «SFF 

BCA9 

85 

68 

STA $63 

BCAB 

20 

60 B9 

JSR SB96D 

BCAE 

8A 


TXA 

BCAF 

A2 

61 

LDX *S61 

BCB1 

C9 

F9 

CMP «SF9 

BCB3 

10 

06 

BPL SBCBB 

BCBS 

20 

99 B9 

JSR $8999 

BCB8 

86 

68 

STT $68 

BCBA 

60 


RTS 

BCBB 

A8 


TAT 

BCBC 

AS 

66 

LOA $66 

BCBE 

29 

80 

AND «$80 

BCCO 

66 

62 

LSR $62 

BCC2 

OS 

62 

ORA $62 

BCC6 

8S 

62 

STA $62 

BCC6 

20 

BO B9 

JSR $B9B0 

SCC9 

86 

68 

STT $68 

BCCB 

60 


RTS 


Exponent 
null ? 

Integer- 

Exponent 

wenn FAC positiv, 
dann zu SSCAF 
FAC 

Rundungsbyte 

setzen 

Hantisse von FAC invertieren 

Exponent in Akku 

FAC-Offset-Zeiger 

uenn Exponent gröBer als 

-8, dann zu BCBB 

FAC rechtsverschieben 

FAC-Rundungsbyte löschen 

Rücksprung 

Akku löschen 
FAC-Vorzeichen laden 
das 
FAC- 

Vorzeichen 

isolieren 

FAC bitweise nach rechts 
verschieben 

FAC-Rundungsbyte löschen 
Rüeksprung 
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BASIC-Pinktien INT 


Einsprung von SBFSF, SEOOE, SE27A 


BCCC 

AS 

61 

LDA 

S61 

BCCE 

C9 

AO 

CHP 

«SAD 

BCDO 

BO 

20 

BCS 

SBCF2 

BCDZ 

20 

9B BC 

JSR 

SBC9B 

BC05 

84 

70 

STY 

$70 

BCDZ 

AS 

66 

LOA 

$66 

BC09 

84 

66 

STY 

$66 

BCDB 

49 

80 

EOR 

«$80 

BCOO 

2A 


ROL 

A 

BCDE 

A9 

AO 

LOA 

mo 

BCEO 

8S 

61 

STA 

$61 

BCE2 

AS 

65 

LDA 

$65 

BCE4 

8S 

07 

STA 

$07 

BCE6 

4C 

D2 B6 

JHP 

$B6D2 

BCE9 

8S 

62 

STA 

$62 

BCEB 

85 

63 

STA 

$63 

BCED 

85 

64 

STA 

$64 

BCEF 

85 

65 

STA 

$65 

BCFl 

A8 


TAY 


BCFZ 

60 


RTS 



Exponent 

ganze Zahl ? 

ja, dann fertig 

FAC nach Integer wandeln 

Rundungsstelle löschen 

Vorzeichen in Akku 

und positiv machen 

Bei 

negativen Vorzeichen 

das 

Carry- 

f lag 

löschen 

FAC linksbündig machen 

Mantisse 

mit 

Hullen 

füllen 

Y'Reg löschen 
Rücksprung 


UiMtfxJlung ASCII nach 
Fl ieSkonnaf Ornat 


Einsprta« von SACfi9, SAESF, SBTCA 


BCF3 

AO 

00 

LOY 

«$00 

BCF5 

A2 

OA 

LOX 

«SOA 

BCF7 

94 

5D 

STY 

$50.X 

BCF9 

CA 


OEX 


BCFA 

10 

FB 

BPI 

$BCF7 

BCFC 

90 

OF 

BCC 

$BOOO 

BCFE 

C9 

20 

CMP 

«S20 

BOOO 

00 

04 

BNE 

$BD06 

B002 

86 

67 

STK 

$67 


Uert festlegen 

Zahler stellen 

den Bereich 

von SSO bis S66 mit 

Nullen füllen 

wenn erstes Zeichen eine 

Ziffer, dann zu SBOOO 

Muaner für '-•? 

wenn nicht, dann zu SBO06 

Flag für negativ 
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BDD4 

FO D4 


BEQ 

SBOOA 

BDD6 

C9 2B 


CHP 

MZB 

BDOS 

DD DS 


BNE 

SBOOF 

Einsprung von 

1 SBD7B 


BOOA 

20 73 DO 

JSR 

S0D73 

BOOD 

90 SB 


6CC 

SBD6A 

BDOF 

C9 2E 


CHP 

IIS2E 

B011 

FO 2E 


BEO 

SBD41 

BD13 

C9 45 


CHP 

«S4S 

BD15 

DO 30 


BNE 

$B047 

B017 

20 73 

00 

JSR 

S0073 

B01A 

90 17 


BCC 

SBD33 

BD1C 

C9 AB 


o«> 

«SAB 

BD1E 

FO OE 


BEO 

SB02E 

B02D 

C9 2D 


CHP 

«S2D 

BD22 

FO OA 


BEO 

SB02E 

B024 

C9 AA 


CHP 

«SAA 

B026 

FO 00 


BEO 

SB030 

BD20 

C9 2B 


CHP 

«S2B 

BD2A 

FO 04 


BEO 

SBD30 

B02C 

DD 07 


BNE 

SBD35 

B02E 

66 60 


ROR 

S60 

Einsprung vor 

1 sbobo 


BD30 

20 73 

00 

JSR 

S0073 

BD33 

90 SC 


BCC 

SBD91 

BD35 

24 60 


BIT 

S60 

B037 

10 OE 


BPL 

SBD47 

B039 

A9 00 


LOA 

«soo 

B03B 

30 


SEC 


B03C 

ES 5E 


sec 

SSE 

B03E 

4C 49 

BO 


SB049 

BD41 

66 SF 


ROR 

SSF 

B043 

24 SF 


BIT 

SSF 

BD45 

50 C3 


BVC 

SBDDA 

BD47 

AS 5E 


IDA 

SSE 


(Xtbedingter Sprung 
Numer für 

wenn nicht, dann zu SBOOF 


CHRGET nächstes Zeichen holen 
wenn Ziffer, dann zu SB06A 
Nuimer für 

uenn ja, denn zu SBD41 
N(jnner für 

wenn nicht, dann zu SBD47 
CHRGET nächstes Zeichen holen 
wenn Ziffer, denn zu SBD33 
BASIC-Kode 

wenn ja, dann zu SB02E 
NLumer für 

wenn Ja, dann zu SB02E 
BASIC-Kode 

wenn Ja, dann zu SB030 
Numer für 

wenn je, denn zu SB030 
unbedingter Sprung 
Bit 7 setzen 


CHRGET nächstes Zeichen holen 

wenn Ziffer, dann zu SBD91 

Bit 7 gesetzt ? 

wenn nicht, dann zu SB047 

Vorzeichen des 

Exponenten 

wechseln 

weiter bei SB049 

Aufruf durch bezimalpunkt 

schon zweiter Deziralpunkt 

wenn nicht, denn weiter 

Zahl genas 
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Einsprung von tB03E 


B049 

38 


SEC 

Position 

B04A 

ES 

SO 

SBC SSO 

des Oezimalpuilcts 

B04C 

CP 

5E 

STA SSE 

und Exponenten anpassen 

B04E 

FO 

12 

BEO SB062 

Zahl= Null, dann zu SB062 

BOSO 

10 

09 

BPI SBOSB 

Zahl kleiner als S7F 

B0S2 

20 

FE BA 

JSft SBAFE 

FAC ■ FAC / 10 

BOSS 

E6 

5E 

INC SSE 

Zahl erhöhen 

B0S7 

DO 

F9 

BNE SBOS2 

unbedingter 

B0S9 

FO 

07 

BEO SB062 

Sprung 

BOSB 

20 

E2 BA 

JSR SBAE2 

FAC » FAC • 10 

BOSE 

C6 

SE 

OEC SSE 

Zahl geeiäB 

B060 

DO 

F9 

BNE SBOSB 

Exponenten anpassen 

B062 

AS 

67 

LDA S67 

wenn negativ. 

B064 

30 

01 

BMI SB067 

dann Vorzeichen invertieren 

BD66 

60 


RTS 

Rücksprung 

B067 

4C 

B4 BF 

JHP SBFB4 

Vorzeichenwechsel FAC > -FAC 

B06A 

46 


PHA 

Aufruf durch Mantisse 

BD6B 

24 

SF 

BIT SSF 

wenn Vorkoirnastelle, 

BD60 

10 

02 

BPL SB071 

dann zu SB071 

BD6F 

E6 

SO 

INC SSO 

Zähler erhöhen 

B071 

20 

E2 BA 

JSR SBAE2 

FAC « FAC • 10 

BD74 

68 


PLA 

ASC II in 

BD7S 

36 


SEC 

Ziffer unwandeln 

BD76 

E9 30 

SBC «S30 

'0' abziehen gibt hex 

BD7S 

20 7E BD 

JSR SB07E 

addiert nächste Stelle zu FAC 

B07B 

4C 

DA BD 

JHP SBOOA 

nächstes Zeichen 

Einsprung 

von tAA29. tBA21. 

SBD76 

B07E 

48 


PHA 

Uert aus Stack 

B07F 

20 

OC BC 

JSR SBCDC 

FAC nach ARG 

S0S2 

68 


PLA 

Wert in Stack 

BD83 

20 3C BC 

JSR SBC3C 

Accu in höchste Stelle von FAC 

BD86 

AS 

6E 

LDA S6E 

FAC'Vorzeichen und 

BOSB 

4S 

66 

EOR S66 

ARG-Vorzeichen 

BOBA 

CP 

6F 

STA S6F 

verknüpfen 

BD8C 

A6 

61 

LOX S61 

erste Stelle von FAC holen 
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B08E 

6C 

6A B8 

JHP 

SB86A 

B091 

AS 

SE 

LDA 

SSE 

BD93 

C9 

OA 

CHP 

«SOA 

BD9S 

90 

09 

BCC 

SBOAO 

B097 

A9 

64 

LOA 

«864 

B099 

24 

60 

BIT 

$60 

S09B 

30 

11 

BMI 

SBDAE 

6090 

4C 

7E B9 

JHP 

SB97E 

BDAO 

OA 


ASL 

A 

BDA1 

OA 


ASL 

A 

B0A2 

18 


CLC 


B0A3 

66 

SE 

ADC 

SSE 

BOAS 

OA 


ASL 

A 

B0A6 

18 


CLC 


BDA7 

AO 

00 

LOY 

«SOO 

BDA9 

71 

7A 

KC 

(S7A) 

BDAB 

3S 


SEC 


BDAC 

E9 

30 

SBC 

«$30 

BDAE 

SS 

SE 

STA 

SSE 

BOBO 

4C 

30 BO 

JHP 

SBD30 


»«««1 



»**•*«1 

BOB3 

9b 

3E BC 

1F FO 


bdbb 

9E 

6E 6B 

27 FD 


bobo 

9E 

6E 66 

o 

o 



FAC s FAC * ARG 
Aufruf durch 

wenn dritte Exponentenziffer, 

dann zu SBDAO 

wenn Vorzeichen 

negativ, 

dann Unterlauf 

zu 'OVERFLOU ERROR* 

Den 

Exponenten 

aiit 

iO 

MUlti* 
ptfzieren 
Zahler setzen 
Exponenten¬ 
ziffer 
addie¬ 
ren 

nächstes Zeichen holen 

Konstanten für FlieBkowe 

nach ASCII 

99999W.9 

999W999 

1E9 


*•••••••••••• Ausgabe der Zeilennt/ener 

bei Fehlermeldung 


Einsprung von SA471 


BDC2 A9 71 

BOCA AO A3 

B0C6 20 DA BD 

B0C9 A5 3A 

BDCB A6 39 


LOA n71 
LOV «SA3 
JSR SBDDA 
LDA S3A 
LDX S39 


Zeiger 
auf 'in* 

String ausgeben 
laufende 

Zeilenmamer holen 
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••*•••••••••••••*•••••••••*•• positive Integerzahl 

fn A/X ausgeben 

Einsprur^ ven M6EA, SE43A 

BOCO 

85 62 

STA t62 

für Umuandlung 

BDCF 

86 63 

STX S63 

in PAC schreiben 

BD01 

A2 90 

LOX IS90 

Exponent 

B0D3 

38 

SEC 

s 16 

B0D4 

20 49 BC 

JSR $BC49 

Integer nach FlieBkoama 

Hendeln 

BbD7 20 DF BD JSR BBOOF 

Einsprung von SBDC6 

FAC nach ASCII wandeln 

BODA 

4C IE AB 

JHP SAB1E 

String ausgeben 


, *»««««»*4» «*»«»««—»* FAC n»ch ASCII-Fordiat 


Einsprung von SAABC 

wandeln und nach S100 

8000 

AO 01 


LOY «SOI 

Stringzeigar 

Einsprung von SB46A. SB007 


BODF 

A9 20 


LOA «S20 

' ' Leerzeichen für positive 

BDE1 

24 66 


BIT S66 

Zahl 

wenn Vorzeichen 

B0E3 

10 02 


BPL SB0E7 

positiv Ti dann zu tBDE7 

aOES 

A9 2D 


LOA «$20 

Minuszeichen für 

BDE7 

99 FF 

00 

STA SOOFF, 

negative Zahl 

Y in 

BOEA 

85 66 


STA S66 

Pufferbereich 

BDEC 

84 71 


STT S71 

schreiben 

BDEE 

C8 


INY 

Zähler erhöhen 

BDEF 

A9 30 


LOA «S30 

•0' 

BDF1 

A6 61 


LOX S61 

Exponent 

B0F3 

00 03 


BNE SBDF8 

wenn Zahl nicht null ? 

BOFS 

4C 04 

BF 

JHP SBF04 

dam fertig 
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B0F8 

A9 

00 

LOA 

«ESOO 

BOFA 

EO 

80 

CPX 

*S80 

BOFC 

FO 

02 

BEO 

SBEOO 

BDFE 

BO 

09 

BCS 

SBEQ9 

BEOO 

A9 

80 

LOA 

MBO 

BE02 

AO 

80 

LOY 

MBO 

BE04 

20 

28 BA 

JSR 

S8A26 

BE07 

A9 

F7 

LOA 

#$F7 

BED9 

85 

50 

STA 

SSO 

BEOB 

A9 

B8 

LOA 

«SBS 

KOO 

AO 

BO 

LOY 

MBO 

BEOF 

20 

SB BC 

JSR 

SBC5B 

BE12 

FO 

IE 

BEO 

SBE32 

BE14 

10 

12 

BPL 

SBE28 

BE16 

A9 

B3 

LOA 

«SB3 

BE18 

AO 

BO 

LOY 

«SBO 

BE1A 

20 

SB BC 

JSR 

S6C5B 

BE1D 

FO 

02 

BEO 

SBE21 

BE1F 

10 

OE 

BPL 

SBE2F 

BE21 

20 

E2 BA 

JSR 

SBAE2 

BE24 

C6 

50 

OEC 

SSO 

BE26 

DO 


BNE 

SBE16 

BE28 

20 

FE BA 

JSR 

SBAFE 

BE2B 

E6 

50 

INC 

$50 

8E20 

00 

DC 

BNE 

sbeob 

BE2F 

20 

49 B8 

JSR 

SB649 

BE32 

20 

98 BC 

JSR 

SBC9B 

BE3S 

A2 

01 

LOK 

»01 

BE37 

A5 

50 

LOA 

$50 

BE39 

18 


CLC 


BE3A 

69 

OA 

AOC 

«OA 

BE3C 

30 

09 

BMI 

SBE47 

8E3E 

C9 

OB 

CMP 

»OB 

8E40 

BO 

06 

BCS 

SBE4S 

BE42 

69 

FF 

AOC 

»FF 

BE44 

AA 


TAX 


BE45 

A9 

02 

LOA 

»02 

BE47 

38 


SEC 



FAC 

mit 1 vergleichen 

wenn ja .dann zu SBEOO 

FAC groSer 1 

Zeiger auf 

Konstante 1E9 

Konstante (Zeiger A/Y) * FAC 

= -9 

S 50 s -9 
Zeiger auf 
Konstant* WWW999 
Vergleic^ Konstante 
(Zeiger A/Y) eit FAC 
gleich 
kleiner 
Zeiger auf 

Konstant* 99999999.9 
Vergleich Konstante 
(Zeiger A/Y) mit FAC 
gleich 
kleiner 

FAC « FAC • 10 
Dezimalexr^nent erniedrigen 
schm 0? 

FAC « FAC / 10 
Dezimalexponent erhöhen 
Überlauf ? 

FAC » FAC ♦ .5 , runden 

FAC nach Integer 

FAC ist nun im Bereich von 

1E8 bis 1E9. SSD hat Uert 

von Zehnerpotenz 

Zahl «0.01 

Betrag kleiner 0.1 ? 
wenn ja, dann 
Betrag gröBer 1E9 ? 
die 
Be¬ 
rechnung 
des 
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BE46 

E9 

02 

SBC 

«802 

BE6A 

8S 

5E 

STA 

SSE 

BE4C 

86 

SD 

STX 

$SD 

BE4E 

BA 


TXA 


BE6F 

FO 

02 

BEO 

SBE53 

BE51 

10 

13 

BPL 

SBE66 

BE53 

A4 

71 

LDY 

$71 

BESS 

A9 

2E 

LDA 

«S2E 

BE57 

C8 


INY 


BE50 

99 

FF 00 

STA 

SOOFF.Y 

BE5B 

8A 


TXA 


BE5C 

FO 

06 

BEO 

SBE64 

BE5E 

A9 

30 

LDA 

«S30 

BE60 

C8 


INY 


BE61 

99 

FF 00 

STA 

SOOFF.Y 

BE64 

84 

71 

STY 

S71 

BE66 

AO 

00 

LOY 

«soo 

Einsprung 

von SAFS6 


BE66 

A2 

80 

LOX 

«S80 

BE6A 

AS 

6S 

LOA 

S6S 

BE6C 

18 


CLC 


BEdO 

79 

19 BF 

ADC 

$BF19,Y 

BE70 

8S 

6S 

STA 

S6S 

BE72 

AS 

64 

LOA 

S64 

BE74 

79 

10 BF 

ADC 

SBFIB.Y 

BE77 

8S 

64 

STA 

S64 

BE79 

AS 

63 

LOA 

S63 

BE7B 

79 

17 BF 

ADC 

SBF17.Y 

BE7E 

8S 

63 

STA 

S63 

BESO 

AS 

62 

LOA 

S62 

BE02 

79 

16 BF 

ADC 

SBF16,Y 

BE8S 

8S 

62 

STA 

S62 

BE07 

e8 


INX 


BE08 

BO 

04 

BCS 

SBE8E 

BE8A 

10 

DE 

BPL 

SBE6A 

BEBC 

30 

02 

BM 

S6E90 

BE8E 

30 

DA 

BNI 

SBE6A 


Exponenten* 

flsgs 

Negative Darstellung des 
Exponenten 

wenn 0.1, dann zu SBE53 
wenn nicht 0.01. dann 
zu SBE66 

Zeiger für Polv'MMusuertung 
Numer für '.' 

Zeiger erhöhen 
ln Stringbereich 
schreiben 

uenn 0.1, dann zu SBE64 
Numer für '0' 

Zeiger erhöhen 
ln Stringbereich 
schreiben 
Zeiger 


stellen 

Durch 

Addition 

und 

Subtraktion 

der 

Werte 

aus 

der 

Tabelle 

werden 

die 

einzelnen 

Ziffern 

des 

Zahlen- 

Strlngs 

be* 

rech* 
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All 


BE90 

SA 



TXA 

BE91 

99 

04 


BCC SSE97 

6E93 

49 

Ff 


EOfi MFF 

BE95 

69 

OA 


ADC ASOA 

BE97 

69 

2F 


ADC il«2F 

BE99 

C8 



INT 

BE9A 

CS 



INY 

BE9B 

cs 



tirr 

BE9C 

C8 



INT 

BE» 

84 

47 


STY *47 

Be9f 

A4 

71 


LOY *71 

BEA1 

CS 



IHY 

BEAZ 

AA 



TAX 

BE A3 

Z9 

7F 


ANO «*7F 

BEAS 

99 

FF 

00 

STA SOOFF.Y 

BEAB 

C6 

so 


DEC *50 

BEAA 

00 

06 


BNE tBEBZ 

BEAC 

A9 

2E 


LOA )II*2E 

BE AE 

C8 



INY 

BEAF 

99 

FF 

00 

STA *OOFF,V 

BEBZ 

84 

71 


STT *71 

BEBA 

A4 

47 


LOY *47 

BEB6 

SA 



TXA 

BE67 

49 

FF 


EOR jfSFF 

BEB9 

29 

80 


AND #*80 

BEBB 

AA 



TAX 

BEBC 

CO 

24 


CPV #*24 

BEBE 

FO 

04 


BEO $BEC4 

BECO 

CO 

3C 


CPY #*3C 

BEC2 

00 

A6 


BNE *8E6A 

BEC6 

A4 

71 


LOY *71 

BEC6 

B9 

FF 

00 

LOA *OOFF.Y 

BCC9 

88 



DEV 

BECA 

C9 

30 


CHP ««30 

BECC 

FO 

FS 


BEO *BEC6 

BECE 

C9 

2E 


CHP «*2E 

BEOO 

FO 

01 


BEO *BE03 


net 

a((es «ddfert?, wenn nfcht, 
denn zu SBE97 
Ergebnis mit 10 
kompl enentieren 
■ 0 ' - 1 
Zähler 
ent¬ 
sprechend 
erhöhen 

Zähler sichern 

Zeiger auf stringbereicli laden 
und erhöhen 
Ziffer 
in 

Strinsberefch 

bringen 

uenn Einerstelle nicht 

erreicht, dann zu SBEB2 

humer für 

Zähler erhöhen 

in Stringbereich schreiben 

Zähler speichern 

Neuen Zähler holen 

FAC- 

UB- 

wand- 

lung 

Tabellenende ereicht, 
dann zu S6EC4 
Tabellenende bei 
TIS-Berechnung 

nicht erreicht, dann zu SBEEA 

Zähler wieder holen 

letzte Stelle suchen 

Zähler erniedrigen 

Ntmer für '0' 

uenn Js, dann zu SBEC6 

Nunner für ' ‘ 

uem je, dann zu S6ED3 
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BE02 

CB 


iHr 


BED3 

A9 

2B 

LOA 

nzB 

BED5 

A6 

5E 

LOX 

SSE 

BE07 

FO 

2E 

BEO 

SBF07 

BED9 

10 

08 

BPL 

SBEE3 

BEOB 

A9 

00 

LOA 

«soo 

BEDD 

38 


SEC 


BEDE 

ES 

5E 

SBC 

SSE 

BEEO 

AA 


TAK 


BEE1 

A9 

2D 

LDA 

itSZD 

BEE3 

99 

01 01 

STA 

S0101.Y 

BEE6 

A9 

4S 

LDA 

«S4S 

BEEB 

99 

00 01 

STA 

S0100.Y 

BEEB 

8A 


TXA 


BEEC 

A2 

2F 

LDX 

1IIS2F 

BEEE 

38 


SEC 


BEEF 

E8 


INX 


befo 

E9 

OA 

SBC 

«SOA 

BEF2 

BO 

FB 

BCS 

SBEEF 

BEF6 

69 

3A 

ADC 

#S3A 

BEF6 

99 

03 01 

STA 

S0103,Y 

BEF9 

8A 


rxA 


BEFA 

99 

02 01 

STA 

S0102,Y 

BEFO 

A9 

00 

LDA 

«soo 

BEFF 

99 

04 01 

STA 

S0104,Y 

BF02 

FO 

08 

BEO 

SBFDC 

Einsprung 

von SBDFS 


BF04 

99 

FF 00 

STA 

SOOFF.Y 

BF07 

A9 

00 

LDA 

«soo 

BF09 

99 

00 01 

STA 

S0100,Y 

BFQC 

A9 

00 

LDA 

«soo 

BFOE 

AD 

01 

LOY 

«SOI 

BF10 

60 


RTS 



Zahler erhöhen 
Nuiaier für '+' 
uenn Flag nicht gesetzt, 
dann zu SBFOZ 

uenn Exponent positiv, dann 

zu SBEE3 

Den 

Exponenten 
be¬ 
rechnen 
Niimer für ' -' 
in Stringbareich schreiben 
Nmner für ’E' 
ln Stringbereich schreiben 
Zehner* 
stelle 
für 
den 

Exponenten 
berechnen 
■9' + 1 

in Stringbereich schreiben 
Zehnerstelle 

in Stringbereich schreiben 
Puffer mit $0 
abschtieSen 
Ulbedingter Sprung 


Puffer 
mit SO 
abschlieSen 
Zeiger auf 
Puffer S100 
ROcksprung 
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BF11 80 00 00 00 00 Konstante 0.5 für 

SOR-Funktion 

*••••••••••«•••••******(■•••* Konstanten für Gleitkonne 

nach ASCII 


32‘Bit 

Binarzahlen nit 

Vorzeichen 

BF16 

FA OA 1F 00 

•100 OOO 000 

BF1A 

00 98 96 60 

10 OOO OOO 

BFIE 

FF FO BO CO 

•1 OOO 000 

BF22 

00 01 86 AO 

100 000 

BF26 

FF FF 08 FO 

•10 000 

BF2A 

00 00 03 E8 

1 000 

BF2E 

FF FF FF 9C 

> 100 

BF32 

00 00 00 OA 

10 

BF36 

FF FF FF FF 

•1 




BF3A 

FF OF OA 

80 

BF3E 

00 03 4B 

CO 

BF42 

FF FF 73 

60 

BF 46 

00 00 OE 

10 

BF4A 

FF FF FD 

A8 

BF4E 

00 00 00 

3C 

BF52 

EC 


BF53 

AA ... 


BF70 

... AA 


BF71 

20 OC BC 

JSR SBCOC 

BF74 

A9 11 

LOA «S11 

BF76 

AO BF 

LOY ASBF 

BF78 

20 AZ BB 

JSR S6BA2 


Konstanten für Unwandluns 
TI nach TIS 
-2 160 000 
216 OOO 
•36 OOO 
3 600 
' 600 
60 


BASIC'FinIctfon SOR 
FAC runden und nach ARG 
Zeiger auf 
Konstante 0.5 

Poteniferung FAC * ARG 
hoch Konstante CA/Y) 
Konstante nach FAC 
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64 Intern 


t*«< 


BFZB 

FO 

70 

BEQ 

$BFE0 

BF7D 

AS 

69 

LOA 

$69 

BF7F 

00 

03 

BKE 

$BF84 

BFai 

4C 

F9 B8 

JHP 

SB8F9 

BFdA 

A2 

4E 

LOX 

ll>$4E 

BF 06 

AO 

00 

LOY 

«$00 

BF 88 

20 

04 BB 

JSR 

SBB04 

BFBB 

AS 

6E 

LOA 

$6E 

BF 80 

10 

OF 

BPL 

$BF9E 

BFSF 

20 

CC BC 

JSR 

$BCCC 

BF92 

A9 

4E 

LOA 

ll>$4E 

BF94 

AO 

00 

LOY 

«$00 

BF96 

20 

SB BC 

JSR 

$BCSB 

BF99 

DO 

03 

BNE 

$BF9E 

BF9B 

98 


TYA 


BF9C 

A4 

07 

LOY 

$07 

BF9E 

20 

FE BB 

JSR 

$BBFE 

BFAI 

98 


TYA 


BFA2 

48 


PHA 


BF A3 

20 

EA B9 

JSR 

$B9EA 

BFA6 

A9 

4E 

LOA 

MAE 

BFA8 

AO 

DO 

LOY 

#$00 

BFAA 

20 

28 BA 

JSR 

$BA28 

BFAO 

20 

EO BF 

JSR 

$BFE0 

BFBO 

68 


PU 


BFB1 

4A 


LSR 

A 

BFB2 

90 

OA 

BCC 

$BFBE 


Efrwprung von tBD67, SE030, 

BFB4 AS 61 LDA $61 

BFB6 FO 06 BEO $BFBE 

BFB8 AS 66 LOA $66 

BFBA 49 FF EOR A$FF 


Potentierung FAC - ARG 
hoch FAC 

wenn FAC=0, dann zu $BFED 
Exponent ARG > Basis 
nicht null ?. 
dann fertig 
Zeiger auf 
Hi Ifsakku 

FAC nach Hilfsakku 

Exponent FAC ■ Potenzexponent 

kleiner eins ?, 

dann INT-Funktion 

Zeiger auf 

Hilfsakku 

mit FAC vergleichen 
Exponent nicht ganzzahlig, 
dann zu $BF9E 
AkkiF 4 

Exponentenste11 e 
ARG nach FAC 
Exponentenste11 e 
in Stack 
LOG'Funktion 
Zeiger auf 
HiIfsakku 

mit FAC multiplizieren 
EXP-Funktion 
Exponent aus Stack 
wenn Exponent gradzahlig, 
dann fertig 

Vorzei chenwech se l 

SE290, SE2AA, SE313. SE33A 

Exponent 

Zahl gleich null, dann fertig 

Vorzeichen 

invertieren und 






Das ROM-Listing 


431 


BFBC B5 66 STA S66 

BFBE 60 RTS 


BFBF 

BFC4 

81 38 AA 3B 29 

07 

BFCS 

71 34 S8 3E 56 

BFCA 

74 16 7E 

B3 1B 

BFCF 

77 2F EE 

E3 85 

BF04 

7A ID 84 

IC 2A 

BF09 

7C 63 59 

58 OA 

BFOC 

7E 75 FD 

E7 C6 

BFE3 

80 31 72 

18 10 

BFE8 

81 00 00 

00 00 

Einsprung von SBFAO 

BFED 

A9 BF 

LOA «SBF 

BFEF 

AO BF 

LDY #SBF 

BFF1 

2 0 28 BA 

JSR S6A28 

BFF4 

A5 70 

LOA $70 

BFF6 

69 SO 

ADC «SSO 

BFF8 

90 03 

BCC SBFFD 

BFFA 

20 23 8C 

JSR SBC23 

BFFD 

4C 00 EO 

JHP SEOOO 

Einsprung von SBFFD 

EOOO 

85 56 

STA S56 

E002 

20 OF BC 

JSR secOF 

EDOS 

A5 61 

LDA S61 

E007 

C9 88 

CMP «S8S 

E009 

90 03 

BCC SEOOE 

EOOB 

20 D4 BA 

JSR SBAD4 

EODE 

20 CC BC 

JSR SSCCC 


spefchern 

Rücksprung 

Konstanten für EXP 

1.64269S04 > 1/L0G(2) 

7 s Polynonigrad, 6 

Koaffitlenten 

2.14987637E-5 

1.4352316E-4 

1.36226368E-3 

9.614011701E-3 

.0555051869 

.240226385 

.693147186 

1 

BASIC-Funktion EXP 


Zeiger auf 
Konstante 1/LOC(2) 
mit FAC multiplizieren 
80 zu Rundungsstelle 
addieren 

wenn kleiner als SFF, dann 
zu SBFFD 

Mantisse von FAC um 
eins erhShen 
weiter bei SEOOO 


Rundungsstelle 

FAC nach ARG bringen 

Exponent 

Zahl grüSer 128 1 , 
dann zu SEOOE 
falls positiv 'OVERFLOU' 
INTEGER-Fiitiktion 
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64 Intern 


E011 

A5 07 

LOA $07 

ganze Zahl 

E013 

IS 

CLC 

Zahl 

EOU 

69 S1 

ADC «$81 

gleich 

E016 

FO F3 

BEO SEOOB 

127 7, dam zu SEOOB 

E018 

SS 

SEC 

ansonsten 

E019 

£9 01 

SBC «S01 

sii>trahieren 

E01B 

4S 

PHA 

iikI in Stack 

E01C 

A2 05 

LOX «$05 

FAC 

E01E 

B5 69 

LOA $69,X 

und 

E020 

B4 61 

LOY $61,X 

ARG 

E022 

95 61 

STA $61,X 

ver¬ 

E024 

94 69 

STY $69,X 

tauschen 

E026 

CA 

OEX 

Zähler erniedrigen 

E027 

10 F5 

BPL $E01E 

schon alle Zeichen? 

E029 

A5 56 

LOA $56 

Rundungs- 

E02B 

85 70 

STA $70 

Stelle 

E02II 

20 53 B8 

JSR $B853 

ARG - FAC 

E030 

20 84 8F 

JSR $BFB4 

Vorzeichenuechsel 

E033 

A9 C4 

LOA «$C4 

Zeiger auf 

E035 

AO BF 

LOY «$SF 

Polynonkoeffizi enten 

£037 

20 59 EO 

JSR SE059 

Polynon berechnen 

E03A 

A9 00 

LOA «$00 

Vergleichsbyte 

E03C 

85 6F 

STA $6f 

löschen 

E03E 

68 

PLA 

Zahl aus Stack 

E03F 

20 89 BA 

JSR $BAB9 

Exponenten von 

FAC und ARG addieren 

E042 

60 

RTS 

Rücksprung 


••**•*•••*•*••**•*•*•**•«***• PolyncDifcereehnung 

y»a1»x+a2»K‘3+a3*K'5+... 


Einsprung von SBA16, SE2B1, SE32S 


£043 

85 

71 


STA $71 

£045 

84 

72 


STY $72 

£047 

20 

CA 

BB 

JSR SBBCA 

E04A 

A9 

57 


LOA «$57 

E04C 

20 

28 BA 

JSR SBA28 

E04F 

20 

50 

£0 

JSR $£050 

E052 

A9 57 


LOA «S57 


Zeiger auf 

Poly noffikoe f f i z i enten 

FAC nach Akku *3 bringen 

Zeiger auf Akku Iß 

FAC * Akku #3 (quadrieren) 

PotyTMMberechnung 

Zeiger auf 
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E054 AO 00 LDY «SOO Akku «3 

E056 AC 28 BA JMP (BA28 FAC • FAC * Akku «3 

••••••••••••••••••••••••••••• poivrtonbtrechnung 

y=»0»a1**+a2*x‘2+«3**‘3*... 


Efnsprung von SE037 

E059 85 71 STA $71 Zeiger auf 

E05B 84 72 STY $72 Polynongrad 

Einsprung von $E04F 


EOSD 

20 

C7 BB 

JSR 

$BBC7 

E060 

B1 

71 

LOA 

($71),Y 

E062 

85 

67 

STA 

$67 

E064 

A4 

71 

LDY 

$71 

E066 

C8 


IHY 


E067 

98 


TYA 


E068 

00 

02 

BNE 

$e06c 

E06A 

E6 

72 

IMC 

$72 

E06C 

85 

71 

STA 

$71 

E06E 

A4 

72 

LOY 

$72 

E070 

20 

28 BA 

JSR 

$BA28 

E073 

A5 

71 

LOA 

$71 

E073 

A4 

72 

LOY 

$72 

E077 

18 


CLC 


E078 

69 

05 

ADC 

«$05 

E07A 

90 

01 

BCC 

$E07D 

E07C 

C8 


INT 


EO^ 

85 

71 

STA 

$71 

E07F 

84 

72 

STY 

$72 

E081 

20 

67 B8 

JSR 

$B867 

E084 

A9 

SC 

LDA 

«S5C 

E086 

AO 

00 

LDY 

«SOO 

E088 

C6 

67 

DEC 

$67 

EOBA 

OO 

E4 

BHE 

$E070 

E08C 

60 


RTS 



FAC nach Akku #4 bringen 

Polynoaigrad 

als Zähler 

Zeiger für PolynoMusuertung 
Zeiger erhöhen, 
zeigt dann 

auf ersten Koeffizienten 

Zeiger 

für 

Polynonauswertung 
FAC > FAC * Konstante 
Zeiger in 
(A/Y) 

Zeiger 

in 5 erhöhen - nächste Zahl 
wenn kleiner, dann zu $E07D 
ansonsten erhöhen 
Zeiger für 

Polynonausuertung speichern 
FAC s FAC + Konstante 
Zeiger auf 
Akku #4 

Zähler erniedrigen 
schon alle, nein, dann 
zu $E070 
Rücksprung 
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64 Inlern 


E080 98 35 44 7A 00 

E092 68 28 81 46 00 




E097 

20 

2B BC 

JSR 

SBC2B 

E09A 

30 

37 

BMI 

SE0D3 

E09C 

DO 

20 

BME 

SEOBE 

E09E 

20 

F3 FF 

JSR 

SFFF3 

E0A1 

86 

22 

STX 

$22 

E0A3 

B4 

23 

STY 

$23 

E0A5 

AO 

04 

LDY 

«$04 

E0A7 

B1 

22 

LDA 

($22),Y 

E0A9 

85 

62 

STA 

$62 

EOAB 

CB 


INY 


EOAC 

B1 

22 

LDA 

($22),Y 

EOAE 

85 

64 

STA 

$64 

EOBO 

AO 

08 

LOY 

«$08 

EOB2 

B1 

22 

LOA 

{$22).Y 

E0B4 

85 

63 

STA 

$63 

E0B6 

C8 


INY 


EOB7 

Bl 

22 

LDA 

($22).Y 

E0B9 

85 

65 

STA 

$65 

EOBB 

4C 

E3 EO 

JMP 

$E0E3 

EOBE 

A9 

86 

LOA 

*$88 

EDCO 

AO 

00 

LDY 

«$00 

E0C2 

20 

A2 BB 

JSR 

$BBA2 

E0C5 

A9 

80 

LDA 

*$80 

E0C7 

AO 

EO 

LDY 

«$E0 

E0C9 

20 

28 BA 

JSR 

$BA28 

EOCC 

A9 

92 

LDA 

«$92 

EOCE 

AO 

EO 

LDY 

«$E0 

EODO 

20 

67 B8 

JSR 

$8867 

E0D3 

A6 

65 

LOX 

$65 

E0O5 

A5 

62 

LDA 

$62 

E0D7 

85 

65 

STA 

$65 

E0O9 

86 

62 

STX 

$62 

eodb 

A6 

63 

LOX 

$63 


IConstanten für RHO 

11879546 

3.92767774E-4 

BASIC'Funktion RNO 

Vorzeichen holen 

negativ ?, dann zu SEn3 

nicht Null?, dann zu SEOBE 

Basis-Adresse CIA holen 

als Zeiger 

speichern 

Zähler setzen 

LOU-Byte Tiner A laden 

und speichern 

Zähler erhöhen 

HIGH-Byte Tiner A laden 

und speichern 

Zähler neu setzen 

TOD 1/10 sec laden 

und speichern 

Zähler erhöhen 

TOD sec laden 

ixid speichern 

weiter bei SE0E3 

Zeiger auf 

letzten RND-Uert 

nach FAC holen 

Zeiger auf 

Konstante 

FAC s FAC * Konstante 
Zeiger auf 
Konstante 

FAC « FAC + Konstante 
alle 
Stel¬ 
len 
im 
FAC 
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EOOD 

AS 64 

LOA 

S64 

EODF 

8S 63 

STA 

S63 

E0E1 

86 64 

STX 

S64 

Einsprung von SEOBB 


E0E3 

A9 00 

LOA 

ll>$00 

EOE5 

^ 66 

STA 

S66 

eoe? 

AS 61 

LOA 

S61 

E0E9 

85 70 

STA 

$70 

EOEB 

A9 80 

LOA 

«$80 

EOED 

8S 61 

STA 

$61 

EOEF 

20 07 88 

JSR 

$8807 

E0F2 

A2 SB 

LOX 

«$8B 

E0F4 

AO 00 

LOY 

«$00 

Einsprtmg von SE2C2 


EOF6 

4C 04 BB 


$S«t4 


ver¬ 

tau¬ 

schen 


Vorzeichen 

positiv 

Exponent in 

Rundungcstelle 

Zufatlszahl 

speichern 

FAC linksbündig machen 
Zeiger auf 
letzten RND-Wert 


FAC ri/nden und speichern 


Fehterausuertixig nach 
I/O-RouCinen 


Einsprung von SE1D1 


E0F9 

C9 FO 

CHP 

«$F0 

EOFB 

00 07 

BNE 

$E104 

EOFD 

84 38 

STY 

$38 

EOFF 

86 37 

STX 

$57 

E101 

4C 63 A6 

JNP 

SA663 

E104 

AA 

TAX 


E105 

00 02 

BNE 

SE109 

E107 

A2 IE 

LOX 

«$1E 

E1D9 

4C 37 A4 

JHP 

$A437 


RS 232 OPEN oder CLOSE ? 
nein 

BAStC-RAH Ende 

neu setzen 

und zun CLR-Befeh( 

Fehlernuner nach X 

nicht Null ? 

sonst Nummer für 'BREAK' 

Fehlermeldung ausgeben 
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64 Intern 


••••••••••••••••••••••••••••• BASIC BSOUT 

Einspulig von SAB47 

E10C 20 D2 FF JSR SFFD2 ein Zeichen ausgeben 

E10F BO ES BCS SE0F9 Fehler ? 

E111 60 RTS Rücksprir« 

• BASIH 

Einsprung von SAS62 

E112 20 CF FF JSR SFFCF efn Zeichen holen 

E115 BO E2 BCS SE0F9 Fehler ? 

E117 60 RTS Rücksprung 

BASIC CKOUT 


Einsprtrig von SAA93 


E118 

20 AD E4 

JSR SE4A0 

Ausgabegerät setzen 

E11B 

BO DC 

BCS SE0F9 

Fehler ? 

El ID 

60 

RTS 

Rücksprung 

Einsprung von SAB6F, SABAF 

' BASIC CHKIN 

E11E 

20 C6 FF 

JSR SFFC6 

Eingabegerät setzen 

E121 

BO 06 

BCS SE0F9 

Fehler ? 

E123 

60 

RTS 

Rücksprung 




' BASIC GETIH 


Einsprung von SAC35 


E124 20 E6 FF JSR SFFE4 ein Zeichen holen 

E127 BO 00 BCS $€0F9 Fehler ? 

Ei29 60 RTS Rücksprung 
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E12A 

20 

8A 

AD 

JSR 

SAD6A 

E12D 

ZO 

F7 

B7 

JSR 

$B7F7 

E130 

A9 

E1 


LDA 

«SEI 

E132 

46 



PHA 


E13S 

A9 

46 


LDA 

«S46 

E1SS 

46 



PHA 


EtS6 

AD 

OF 

03 

LDA 

M30F 

E139 

48 



PHA 


E13A 

AO 

OC 

03 

LOA 

S030C 

E13D 

AE 

00 

03 

LDX 

S030O 

EHO 

AC 

DE 

03 

LOY 

S030E 

E143 

28 



PLP 


E144 

6C 

14 

00 

JHP 

($0014) 

£147 

08 



PHP 


E140 

SD 

rc 

03 

srA 

SOSOC 

E14B 

SE 

00 

03 

STX 

S030D 

E14E 

ac 

OE 

03 

STY 

S030E 

E151 

68 



PLA 


E152 

80 

OF 

03 

STA 

SOSOF 

E1S5 

60 



RTS 


E1S6 

20 04 El 

JSR 

SE104 

£159 

A6 20 


LDX 

S20 

E1SB 

A4 

2E 


LDY 

S2E 

£150 

A9 

2B 


LDA 

«S2B 

EISF 

20 08 

FF 

JSR SFFD6 

E162 

BO 

95 


BCS 

SE0F9 

E164 

60 



RTS 



*«•«**•««•*•••*•••*********** 

E165 A9 01 LDA »01 
E16r 2C .BTTE S2C 


SYS'Befehl 

FRHNUH, ixiwrisehen 

Ausdruck holen 

in AdrMsfonnst Handeln. 

nach S14/S15 

Rück- 

sprunsadresse 

auf 

Stack 

StatuSj 

in Steck 

Akku, 

X-Register und 
r-Register übergeben 
Status setEen 
Routine aufrufen 
Status speichern 
Akku, 

X-Register, 

Y-Register und 
Status 

wieder speichern 
Rüeksprung 

SAVE-Befehl 

PareMeter (Filenaneo, Prim 
md Sek. Adresse) 
Endadresse gleich 
BASIC-Rüeksprung 
Startadresse gleich Zeiger 
auf BASIC Anfang 
Save-Routine 
Fehler ? 

Rüeksprung 

VERlFY-Befehl 

verify- 

Flsg 
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64 Intern 


E166 

A9 00 

LDA 

«SOO 

E16A 

85 OA 

STA 

SOA 

E16C 

20 04 E1 

JSR 

SE1D4 

E16F 

AS OA 

LOA 

SOA 

E171 

A6 2B 

LOX 

S2B 

E173 

A4 2C 

LOY 

S2C 

E175 

20 D5 FF 

JSR 

SFFD5 

E178 

BO 57 

BCS 

SE1D1 

E17A 

A5 OA 

LOA 

SOA 

E17C 

FO 17 

BEQ 

SE195 

E17E 

A2 1C 

LOX 

«SIC 

E180 

20 B7 FF 

JSR 

SFFB7 

E183 

29 10 

AND 

«S10 

E185 

00 17 

BNE 

SE19E 

E187 

A5 7A 

LOA 

STA 

E189 

C9 02 

CMP 

«S02 

E18B 

FO 07 

BEQ 

SE194 

E18D 

A9 64 

LDA 

«S64 

E1SF 

AO A3 

LOY 

«SA3 

E191 

4C 1E AB 

JHP 

SAB1E 

E196 

60 

RTS 


E195 

20 87 FF 

JSR 

SFFB7 

E198 

29 BF 

AND 

«SBF 

E19A 

FO 05 

BEQ 

SE1A1 

E19C 

A2 10 

LOX 

«S1D 

E19E 

4C 37 A4 

JHP 

SA437 

E1A1 

A5 TB 

LOA 

STB 

E1A3 

C9 02 

CMP 

«S02 

E1A5 

00 OE 

BNE 

SE1B5 

E1A7 

86 20 

STX 

S2D 

E1A9 

84 2E 

STY 

S2E 

E1AB 

A9 76 

LOA 

«S76 

E1AD 

AO A3 

LOY 

«$A3 

E1AF 

20 IE AB 

JSR 

SAB1E 

E1B2 

4C 2A A5 

JHP 

SA52A 

E1B5 

20 8E A6 

JSR 

SA66E 


L(MD-BefehL 
Load-Flag 
speichern 
Parameter holen 
Flag 

Startadresse gleich 
BASIC-Start 
Load-Routine 
Fehler 7 

Load/Verify - Flag 
Load ? 

Offset für 'VERIFY ERROR' 
Status holen 
Fehler-Bit Isolieren 
Statusbit gesetzt, dann 
Fehler 

muB HIGH-Byte S7B sein 
Test auf Oirekt-Modus 
ja, dann fertig 
Zeiger auf 
'OK' 

ausgeben 
Rücksprung 
Status holen 
EOF-Bit löschen 
kein Fehler 

Offset für 'LOAD ERROR' 

Fehlermeldung ausgeben 

Direkt* 

modus testen 

nein, dann weiter 

Endadresse gleich 

Rücksprui>g 

Zeiger auf 

'READY' 

String ausgeben 
Prograimzel len neu binden, 
CLR 

CHRGET-Zeiger auf 
Programstart 
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E1BS 

20 33 AS 

JSR SA533 

E1BB 

6C 

77 A6 

JHP SA677 

**«**•' 


r**« 

r***« 


EIBE 

20 

19 

E2 

JSR SE219 

E1C1 

20 

CO 

FF 

JSR SFFCO 

E1C4 

BO 

OB 


BCS SE1D1 

E1C6 

60 



RTS 

***«*•' 



r*»*« 


E1C7 

20 

19 

E2 

JSR SE219 

E1CA 

AS 

69 


LDA $69 

E1CC 

20 

C3 

FF 

JSR $FFC3 

E1CF 

90 

a 


BCC SE196 

E101 

4C 

F9 

EO 

JHP $E0F9 


Einsprung 

von $E1S6. $E16C 

E1D6 

A9 

00 


LDA «SOO 

E106 

20 

BD 

FF 

JSR SFFBO 

E109 

A2 

01 


LDX #$01 

E1DB 

AO 

00 


LDY #$D0 

E1D0 

20 

BA 

FF 

JSR SFFBA 

E1E0 

20 

06 

E2 

JSR SE206 

E1E3 

20 

57 

E2 

JSR $E257 

E1E6 

20 

06 

E2 

JSR SE206 

E1E9 

20 

00 

E2 

JSR SE200 

E1EC 

AO 

00 


LDY #$00 

E1EE 

S6 

69 


STX $69 

E1F0 

20 

BA 

FF 

JSR SFFBA 

E1F3 

20 

06 

E2 

JSR $E206 

E1F6 

20 

00 

E2 

JSR $E200 

E1F9 

SA 



TXA 

EIFA 

AS 



TAY 

E1FB 

A6 

69 


LDX $69 

E1F0 

6C 

BA 

FF 

JHP SFFBA 


Progremzeilen neu biriden 
RESTORE. BASIC initialisieren 

BASIC-Befelil OPEM 
Parameter holen 
OPEN-Routine 
Fehler 7 
Rückspru^g 

BASIC-Befelil CLOSE 
Parameter holen 
Fi lenmaiier 
CLOSE-Routine 
kein Fehler, RTS 
zur Fehlerauswertung 

Parameter für LOAD und SAVE 
holen 


Default für Länge des 
F i lenanen 

Filenanenparameter setzen 
Default für Gerätenmnner 
Sekundäradresse 
Fileparaaeter setzen 
weitere Zeichen ? 
Filenanen holen 
weitere Zeichen ? 
Geräteadresse holen 
Sekundäradresse 
Geräteadresse 
Fileparameter setzen 
weitere Zeichen ? 
Sekundäradresse holen 
in Akku schieben 
Sekuridäradresse 
Cerätenumer 
Fileparameter setzen 
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Einsprung von SE1E9, SE1F6, SE231. $E245 


E200 

20 OE 

E2 

JSR SE20E 

prüft auf Konna und weitere 
Zeichen 

E203 

4C 9E 

B7 

JHP SB79E 

holt Byte-Wert nach X 


ppüft auf weitere Zeichen 

Efnsprung von SEIEO, SE1E6, SE1F3, SE22E, SE242, tE231 


E206 

20 79 00 

JSR S0079 

CHRGOT letztes Zeichen 

E209 

00 02 

BNE SE20D 

weiteres Zeichen, dann 

Rückkehr 

E20B 

6S 

PLA 

sonst Rückkehr zur 

E20C 

68 

PLA 

übergeordneten Routine 

E20D 

60 

RTS 

Rücksprung 


*******««««««**************** 

Einsprung von SE20D, tE254 

E20E 20 FD AE JSR SAEFD prüft auf KOflma 

Efnsprung von SE21E 

E211 20 79 00 JSR S0079 CHRGOT letztes Zeichen holen 

E214 DO F7 BNE SE20D weitere Zeichen, dann 

Rückkehr 

E216 4C OS AF JHP SAFOS 'SYNTAX ERROR' 

••••••••••••••••••••••••••••• Parameter für OPEN holen 

Einsprung von SE16E, SE1C7 

E219 A9 00 LDA «SOO Default für Länge des 

Filenamens 

E21B 20 BD FF JSR SFFBD Filenamenparameter setzen 
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E21E 

20 

11 

E2 

JSR SE211 

E221 

20 

9E 

B7 

JSR SS79E 

E224 

86 

49 


STX S49 

E226 

8A 



TXA 

E227 

A2 

01 


LDX «SOI 

E229 

AO 

00 


LOY «SOO 

E22B 

20 

BA 

FF 

JSR SFFBA 

E22E 

20 

06 

E2 

JSR SE206 

E231 

20 

00 

E2 

JSR SE200 

E234 

86 

4A 


STX S4A 

E236 

AO 

00 


LOY «SOO 

E238 

AS 

49 


LOA S49 

E23A 

EO 

03 


CPX #S03 

E23C 

90 

01 


BCC SE23F 

E23E 

88 



DEY 

E23F 

20 

BA 

FF 

JSR SFFBA 

E242 

20 

06 

E2 

JSR SE206 

E245 

20 

00 

E2 

JSR SE200 

E248 

8A 



TXA 

E249 

A8 



TAY 

E24A 

A6 

4A 


LDX S4A 

E24C 

A5 

49 


IDA S49 

E24E 

20 

BA 

FF 

JSR SFFBA 

E251 

20 

06 

E2 

JSR SE206 

E254 

20 

OE 

E2 

JSR SE20E 

Einsprung 

von SE1E3 

E257 

20 

9E AO 

JSR SAD9E 

E25A 

20 

A3 

B6 

JSR SB6A3 

E25D 

A6 

22 


LDX S22 

E25F 

A4 

23 


LDY S23 

E261 

4C 

BO 

FF 

JMP SFFBD 




»*•*4 

>••••••••••• 

E264 

A9 

EO 


LDA «SEO 

E266 

AO 

E2 


LDY «SE2 


weitere Zeichen 7 
holt logische Filenumer 
nach X-Reg 
und speichern 
logische Filenuimer 
Default für Gerüteadresse 
Sekundäradresse 
Filepsraneter setzen 
weitere Zeichen 7 
holt Geräteadresse 
ixid speichern 
Sekiaxläi'adresse 
logische Fi leniiimer 
GerätenuMner kleiner 3 7 

J* 

sonst Sekundäradresse auf 
255 (keine Sek-Adr) 
Fileparaneter setzen 
weitere Zeichen 7 
holt Sekundäradresse 
in Akku schieben 
Sekundäradresse 
Gerätenunaer 
logische Filenumer 
Fileparaneter setzen 
weitere Zeichen 7 
prüft auf Konw 


FRHEVL Ausdruck holen 
holt Stringparaaieter, FRESTR 
Adresse des 
Filenamens 

Filenamenparaneter setzen 

BASIC-Funktion COS 
Zeiger auf 
Konstante Pi/2 


E268 20 67 SS JSR $6867 zu FAC addieren 
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Einsprung 

von SE2BB 


E26B 

20 

OC BC 

JSR 

SBCOC 

E26E 

A9 

ES 

LOA 

«SES 

E27D 

AO 

E2 

LOY 

«SE2 

E272 

A6 

6E 

LOK 

S6E 

E274 

20 

07 BB 

JSR 

SBB07 

E277 

20 

OC BC 

JSR 

SBCOC 

E27A 

20 

CC BC 

JSR 

SBCCC 

E27D 

a9 

00 

LOA 

#soo 

E27F 

85 

6F 

STA 

S6F 

E281 

20 

53 BS 

JSR 

SB853 

E28A 

A9 

EA 

LOA 

«SEA 

E286 

AO 

E2 

LOY 

#SE2 

E288 

20 

50 B8 

JSR 

SB850 

E286 

A5 

66 

LDA 

$66 

E28D 

A8 


PHA 


E28E 

10 

00 

BPL 

SE290 

E290 

20 

49 B8 

JSR 

SB849 

E293 

AS 

66 

LDA 

$66 

E295 

30 

09 

BMI 

SE2A0 

E297 

A5 

12 

LDA 

S12 

E299 

49 

FF 

EOR 

«SFF 

E29B 

85 

12 

STA 

$12 

Einsprung 

von SE20D 


E290 

20 

B4 BF 

JSR 

$BFB4 

E2A0 

A9 

EA 

LOA 

«SEA 

E2A2 

AO 

E2 

LOY 

«SE2 

E2A4 

20 

67 B8 

JSR 

$6867 

E2A7 

68 


PLA 


E2A8 

10 

03 

BPL 

$E2AD 

E2AA 

20 

B4 BF 

JSR 

$BFB4 

E2AD 

A9 

EF 

LDA 

«SEF 

E2AF 

AO 

E2 

LOY 

«$E2 

E2B1 

4C 

43 EO 

JHP 

$E043 


SASIC-Firktion SIK 


FAC runden und nach ARG 

Zeiger auf 

Konstante P{*2 

Vorzeichen von ARG 

FAC durch 2*Pi dividieren 

FAC runden und nach ARG 

INT - Fietktion 

Verflleichsbyte 

löschen 

ARG minus FAC 

Zeiger auf 

Konstante 0.25 

0.25 - FAC 

Vorzeichen laden 

Vorzeichen in Stack 

positiv ? 

FAC + 0.5 
Vorzeichen 
negativ ? 

Vorzeichen laden 
und undrehen 
Vorzeichen speichern 


Vorzeichen wechseln 
Zeiger auf 
Konstante 0.25 
FAC + 0.25 
Vorzeichen holen 
positiv ? 

Vorzeichen wechseln 
Zeiger auf 
Polynoaikoeff fzienten 
Polynom berechnen 
BASIC-Funktion TAN 
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E2B4 

20 

CA 

BB 

JSR 

S8BCA 

E2B7 

A9 

00 


LOA 

«soo 

E2B9 

85 

12 


STA 

t12 

E2BB 

20 

66 

E2 

JSR 

SE268 

E2BE 

A2 

4E 


LDX 

#S4E 

E2C0 

AO 

00 


LOT 

«SOO 

E2C2 

20 

F6 

EO 

JSR 

SE0F6 

E2C5 

A9 

57 


LOA 

«S57 

E2C7 

AO 

00 


LOY 

«SOO 

E2C9 

20 

A2 

BB 

JSR 

SBBA2 

E2CC 

A9 

00 


LOA 

«SOO 

E2CE 

85 

66 


STA 

S66 

E200 

A5 

12 


LOA 

S12 

E2D2 

20 

DC 

E2 

JSR 

$E20C 

E2D5 

A9 

4E 


LOA 

«S4E 

E207 

AO 

00 


LOT 

«SOO 

E2D9 

4C 

OF 

BB 

JHP 

S6B0F 

Einsprung 

von SE202 


E20C 

48 



PHA 


E2DD 

4C 

90 

E2 

JHP 

SE290 


E2E0 

81 49 OF DA A2 

E2E5 

83 49 OF DA A2 

E2EA 

7F 00 00 00 00 

E2EF 

05 

E2F0 

84 E6 1A 20 1B 

E2F5 

86 28 07 FB FS 

E2FA 

87 99 68 89 01 

E2FF 

87 23 35 OF El 

E304 

86 A5 50 E7 28 

E309 

83 49 OF DA A2 


FAC nach Akku«3 

Flag 

setzen 

SIN berechnen 

Zeiger auf 

Hilfsakku 

FAC nach Hilfsakku 

Zeiger auf 

Akku#3 

Akku«3 nach FAC 

Vorzeichen 

loschen 

Flag 

COS berechnen 
Zeiger auf 
Hilfsakku (SIN) 
durch FAC dividieren 


COS 

berechnen 

Konstanten für SIN und COS 
1.57079633 Pi/2 
6.28310531 2*Pi 
.25 

5 • Polynoiiigrad, 6 
Koeffizienten 
-14.3813907 
42.0077971 
-76.7041703 
81.6052237 
-41.3147021 
6.28318531 2*Pi 
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E30E 

AS 

66 

LDA 

S66 

E30F 

48 


PHA 


E311 

10 

03 

BPL 

SE316 

E313 

20 

84 BF 

JSR 

iBFB4 

E316 

AS 

61 

LDA 

S61 

E318 

48 


PHA 


E319 

C9 

81 

CHP 

tfsai 

E318 

90 

07 

BCC 

SE324 

E31D 

A9 

BC 

LDA 

«SBC 

E31F 

AO 

89 

LOY 

«S69 

E321 

20 

OF BB 

JSR 

S6B0F 

E324 

A9 

3E 

LOA 

«S3E 

E326 

AO 

E3 

LDY 

tfSE3 

E328 

20 

43 EO 

JSR 

SE043 

E328 

68 


PLA 


E32C 

C9 

81 

CHP 

«SB1 

E32E 

90 

07 

BCC 

SE337 

E330 

A9 

EO 

LDA 

«SEO 

E332 

AO 

E2 

LDY 

«SE2 

E334 

20 

50 B8 

JSR 

$B850 

E337 

68 


PLA 


E338 

10 

03 

BPL 

$E33D 

E33A 

4C 

B4 BF 

JHP 

SBFB4 

E33D 

60 


RTS 



E33E 

08 




E33F 

76 

B3 83 

BD 03 

E344 

79 

IE 

F4 

A6 FS 

E349 

n 

83 

FC 

BO 10 

E34E 

7C 

OC 

1F 

67 CA 

E353 

7C 

DE 

53 

CB CI 

E35B 

7D 

14 

64 

70 4C 

E35D 

7D 

B7 EA 

51 7A 

E362 

70 

63 

30 

88 7E 

E367 

7E 

92 44 

99 3A 


BASIC’Fiflktie^ ATH 
Vorzeichen 
retten 
positiv ? 

Vorzeichen vertauschen 

Exponent 

retten 

Zahl mit 1 vergleichen 
kleiner 7 
Zeiger auf 
Konstante 1 

I durch FAC dividieren 
(Kehrwert) 

Zeiger auf 

Polynonkoef f izienten 
Polynom berechnen 
Exponent zurückhoten 
war Zahl 

kleiner 1, dam zu $E337 
Zeiger auf 
Konstante Pi/Z 
Pi/2 minus FAC 
Vorzeichen holen 
positiv ? 

Vorzeichen wechseln 
Rücksprung 

FlieBkcMwkonstanten für 
ATN'Funktion 

II • Polynongrad, dann 12 
Koeffizienten 
-6.S4793912E>06 

4.85094216E>03 

-.0161117015 

.03420963S 

-.054279133 

.0724571965 

-.0898019185 

.110932413 

-.142839808 
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.19999912 

-.333333316 

1 

BASIC NMI-Einsprung 


E36C 7E 4C CC 91 C7 
E371 7r AA AA AA 13 
E376 8 1 00 00 0 0 00 


Einsprung von $FE6F 

E37B 

20 CC FF 

JSR SFFCC 

E37E 

A9 00 

LOA noo 

E380 

85 13 

STA S13 

E382 

20 7A A6 

JSR SA67A 

E385 

58 

CLI 


Einsprung von SA714, SA854 

E386 A2 80 LOX |K80 
E388 6C 00 03 JMP (S0300) 


Einsprung von $A437, SE388 


E38e 

SA 

TXA 

E38C 

30 03 

BMI $E391 

E38E 

4C 3A A4 

JHP $A43A 

E391 

4C 74 A4 

JMP SA474 


Einsprung von SFCFF 0 OO 


E394 

20 

53 

E4 

JSR SE453 

E397 

20 

BF 

E3 

JSR SE3BF 

E39A 

20 

22 

E4 

JSR SE422 

E390 

A2 

FB 


LOX «SFB 

E39F 

9A 



TXS 

E3A0 

00 

E4 


BNE SE386 


CLRCH 

Eingabegerät gleich 
Tastatur 

BASIC initialisieren 
Interrupt freigeben 


Flag für kein Fehler 
BASIC Warmstart Vektor 
JHP SE38S 


Fehlernuner in Akku 
kein Fehler, dann 'ready.' 
Fehlermeldung ausgeben 
Ready - Modus 

BASIC Kaltstart 


BASIC-Vektoren setzen 
RAH initialisieren 
Einschaltneldung ausgeben 
Stackzeiger 
setzen 

zun Warmstart 
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E3A2 

E6 7A 

INC S7A 

E3A6 

DO 02 

BNE $E3A8 

E3A6 

E6 7B 

INC S7B 

E3A8 

AO 60 EA 

LOA SEA60 

E3AB 

C9 3A 

CHP *$3A 

E3AD 

60 DA 

BCS SE3B9 

E3AF 

C9 20 

CMP f«20 

E3B1 

FO EF 

BEQ $E3A2 

E3B3 

38 

SEC 

E3B6 

E9 30 

SBC «S30 

E3B6 

38 

SEC 

E3B7 

E9 00 

SBC «300 

E3B9 

60 

RTS 


E3eA 80 6F C7 52 58 


Kopfe der CHRGET-Routine 
LOU-Byte Zeiger erhöhen 
Zeiger in BASIC-Text erhöhen 
HtGH'Gyte Zeiger erhöhen 
BASIC-Adresse leden 
keine Zahl, 
dann fertig 

' ' Leerzeichen überlesen 

ja, nächstes Zeichen 

Test auf 

Ziffer, 

dann 

C«1 

Rüeksprung 

AnfangsMert für RMD-Funktion 
.811635157 


RAN für BASIC initialisieren 


Einsprung 

von SE397 


E3BF 

A9 

4C 

LOA 

«$4C 

E3C1 

85 

54 

STA 

$54 

E3C3 

80 

10 03 

STA 

$0310 

E3C6 

A9 

48 

LOA 

«S48 

E3C8 

AO 

B2 

LOT 

«$b2 

E3CA 

80 

11 03 

STA 

$0311 

E3Ctl 

8C 

12 03 

STT 

$0312 

E3D0 

A9 

91 

LOA 

«$91 

E3D2 

AO 

B3 

LOT 

«$B3 

E306 

85 

05 

STA 

$05 

E3D6 

84 

06 

STT 

$06 

E30B 

A9 

AA 

LOA 

«$AA 

E30A 

AO 

Bl 

LOY 

#$B1 

E3DC 

85 

03 

STA 

$03 

E3DE 

84 

04 

STT 

$04 

E3E0 

A2 

IC 

LDX 

«SIC 


JHP 

für Funktionen 
für USR-Funktion 
Zeiger auf 
■ILLEGAL QUANTITT' 
als USR-Vektor 
speichern 
Adresse 
SB391 

als Vektor für 

Fest-/Fließke>ini8-Uandlung 

Adresse 

SB1AA 

als Vektor für 
FlieB-/Festkonna*Uandlung 
Zähler setzen 


E3E2 BO A2 E3 LOA $E3A2,X CHRGET-Routine 

E3ES 95 73 STA $73,X ins 






Das ROM-Listing 


447 


E3E7 

CA 


DEX 


E3E8 

10 

F8 

BPL 

SE3E2 

E3EA 

A9 

03 

LOA 

««03 

E3EC 

85 

53 

STA 

S53 

E3EE 

A9 

00 

LOA 

«SOO 

E3F0 

85 

68 

STA 

S63 

E3F2 

85 

13 

STA 

S13 

E3FA 

85 

18 

STA 

t18 

E3F6 

A2 

01 

LOX 

«SOI 

E3F8 

8E 

FO 01 

STX 

S01FD 

E3FB 

8E 

FC 01 

STX 

SOI FC 

E3FE 

A2 

19 

LOX 

««19 

E400 

86 

16 

STX 

$16 

E402 

38 


SEC 


E403 

20 

9C FF 

JSR 

$FF9C 

E406 

86 

2B 

STX 

S2B 

E408 

84 

2C 

STY 

$2C 

E40A 

36 


SEC 


E40B 

20 

99 FF 

JSR 

$FF99 

E40E 

86 

37 

STX 

$37 

E410 

84 

38 

STY 

$38 

E412 

86 

33 

STX 

$33 

E414 

84 

34 

STY 

$34 

E416 

AO 

00 

LOY 

««00 

E418 

98 


TYA 


E419 

91 

2B 

STA 

($2B), 

E41B 

E6 

2B 

INC 

$2B 

E41D 

DO 

02 

BNE 

$E421 

E41F 

E6 

2C 

INC 

$2C 

E421 

60 


RTS 



RAH kopferen 

schon alles? 

Schrittweise 

für Garbage Collection 

FAC-Rundungsbyte 

löschen 

Eingabegerät gleich 

Tastatur 

Duimys 

für Lfnkadresse bein 
Zei leneinbau 
Zeiger für 
Str 1 ngverwaltung 

RAM- 

Start holen 
als BASIC-Start 
speichern 

RAM- 

Ende holen 
als 
BASIC- 
Ende 

speichern 

soo 

an 

T BASIC-Start 
den 
BASIC- 
Start * 1 
Progrannnde 


Einsprung von $E39A 


E422 

A5 2B 

LOA $2B 

E424 

A4 2C 

LOY $2C 

E426 

20 08 A4 

JSR SA408 

E429 

A9 73 

LOA ««73 

E42B 

AO E4 

LOY ««E4 


Zeiger auf 

BASIC-RAH Start 

prüft auf Platt im Speicher 

Zeiger auf 

Einsehaltmeldung 
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E420 

20 

IE AB 

JSR SABIE 

String ausgeben 

E430 

AS 

37 

LDA S37 

BASIC- 

E432 

38 


SEC 

Ende 

E433 

ES 

2B 

SBC S2B 

minus 

E435 

AA 


TAX 

BASIC-Start 

E436 

AS 

38 

LDA S38 

gleich 

E438 

ES 

2C 

SBC S2C 

Bytes free 

E43A 

20 

CO BO 

JSR SSOCO 

Anzahl ausgeben 

E430 

A9 

60 

LOA «S60 

Zeiger auf 

E43F 

AO 

E4 

LOY «SE4 

■BASIC BYTES FREE 

E441 

20 

IE AB 

JSR SABIE 

String ausgeben 

E444 

4C 

44 A6 

JHP SA644 

zun HEW-Befehl 


••••••••••••••••••••••••••«•• Tabelle der BASIC<Vektaren 

E447 8B E3 63 A4 7C AS 1A A7 
E44F E4 A7 86 AE 


Einsprtetg von SE394 


E4S3 

A2 OB 

LDX 

8S0B 

Die 

E4SS 

BO 47 E4 

LDA 

SE447.X 

BASIC- 

E4S8 

90 00 03 

STA 

S0300,X 

Vektoren 

E4SB 

CA 

DEX 


laden 

E4SC 

10 F7 

BPL 

SE4SS 

schon alle? 

E4SE 

60 

RTS 


Rücksprung 


Betriebssystem 


System-Meldungen 


E4SF 

00 

20 

42 

41 

S3 49 43 20 

E467 

42 

S9 S4 

4S 

S3 

20 46 

S2 

E46F 

4S 

4S 

OO 

00 





E473 

93 

OD 

20 

20 

20 

20 

2A 

2A 

E47B 

2A 2A 20 

43 

4F 

40 

40 

4F 

E483 

44 

4F 

S2 4S 

20 36 34 20 

E48B 

42 

41 

S3 

49 

43 

20 

S6 

32 

E493 

20 

2A 

2A 

2A 

2A 

OD 

00 

20 

E49B 

36 

34 

4B 

20 

S2 

41 

40 

20 


basie bytes free 


(clr) •••• cortwodore 64 basie v2 •••• 
(er) (er) 64k ram System 
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E6A3 53 59 53 56 45 4D 20 20 
E4AB 00 

E4AC 5C 


BASIC-CKCUT RWJtSr» 


Eimprung von $E118 


E4AD 

48 


PHA 

Akkuinhalt in Stack 

E4AE 

20 

C9 FF 

JSR SFFC9 

CKOUT Ausgabegerät setzen 

E4Bt 

AA 


TAX 

Fehlernumier nach X 

E4B2 

68 


PLA 

Akkuinhalt zurückholen 

E4B3 

90 

01 

BCC SE4B6 

kein Fehler ? 

E4B5 

SA 


TXA 

Fehlerniimer wieder in Akku 

E4B6 

60 


RTS 

Rücksprung 

E4B7 

AA 




E4D9 

... 

.. U 




Ktnt«r9rundfarbe setzen 

Einsprung von SEA07 

E40A AO 21 DO LDA SD021 Farbe holen 

E400 91 F3 STA (SF3).y ins Farbran schreiben 

E4DF 60 RTS Rückspru^g 

*•••*••*•*•*••••••••••••*•••• wartet auf Co<i*'>odore-Taste 


Einsprung von SF763 


E4E0 

69 02 

ADC IK02 

2*256/60 a 8.5 Sekunden 

warten 

E4E2 

A4 91 

LDT S91 

Flag testen 

E4E4 

ca 

INY 

und erhöhen 

E4E5 

DO 04 

BNE SE4EB 

Taste gedrückt ? 

E4E7 

C5 A1 

CHP $A1 

Zeit noch nicht um ?, 

E4E9 

00 F7 

BNE SE4E2 

denn warten 

E4EB 

60 

RTS 

Rüeksprung 
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Timerkonstanten für RS 232 
Baud Rate, PAL-Version 


E6EC 

19 

26 

S2619 

S 

9753 

SO Baud 

E6EE 

66 

19 

S1966 

9 

6668 

75 Baiid 

E6F0 

1A 

11 

S111A 

S 

6376 

110 Baud 

E6F2 

E8 

n 

SOOE6 

s 

3560 

136.5 Baud 

E6F6 

70 

OC 

S0C7O 

s 

3186 

150 Baud 

E6F6 

06 

06 

S0606 

s 

1562 

300 Baud 

E6F6 

01 

02 

S0201 

s 

736 

600 Baud 

E6FA 

37 

01 

10137 

s 

311 

1200 Baud 

E6FC 

AE 

00 

SOOAE 

m 

176 

1600 Baud 

E6FE 

69 

00 

S0069 

3 

105 

2600 Baud 


Basis-Adresse des CIAs holen 


Einsprung von SFFFS 

ESOO A2 00 LOK «SOO Adresse 

E502 AO DC LOY #SOC SOCOO 

ES06 60 RTS Rücksprung 

•••••»»»»»»••••••••••*»«*•• holt Anzahl der Zeilen und 

spalten 

Einsprmg von SFFEO 

E50S A2 26 LOX M26 60 Spalten 

ES07 AO 19 LOY «S19 25 Zeilen 

ES09 60 RTS Rücksprung 


t************** Cursor setzen (CsO) / holen 


(C=1) 


Einsprung von SFFFO 


E50A BO 07 

E50C 86 06 

E50E 86 03 

E510 20 6C ES 


BCS SE513 Carry gesetzt, dann zu SE513 

STX S06 Zeile 

STY S03 Spalte 

JSR SES6C Cursor setzen 
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ES» 

M 66 

LOX S06 

Zeile 

E51S 

A6 03 

LOY $03 

Spei te 

E517 

60 

RTS 

Rücksprung 


■***•*• »ildechtrm R«Bet 


Einsprung von SFE6C, SFFSB 


E518 

20 AO ES 

J8R SE5AD 

videocontroUer 




initialisieren 

ES1B 

A9 00 

LOA noo 

Shift- 

EStO 

80 91 02 

STA $0291 

Ccnnodore ernSglfchen 

E520 

85 CF 

STA SCF 

Cursor nicht in Blinkphase 

E522 

A9 48 

LOA «S48 

Adresse 

E524 

80 8F 02 

STA S028F 

($028F} » $EB48 

ES27 

A9 EB 

LOA MEB 

setzen 

ESZ9 

80 90 02 

STA $0290 

s Zeiger auf Adressen für 




Tastaturdekodierung 

E52C 

A9 OA 

LOA »$0A 

10 

E52E 

8D 89 02 

STA $0289 

max. Lange des 




Tastaturpuffers 

E531 

80 ac 02 

STA S028C 

Zähler für 




Repeat-Geschwiridigkeit 

E334 

A9 OE 

LDA «SOE 

hellblau 

E536 

60 86 02 

STA $0286 

Augenblickliche Farbe 

E539 

A9 04 

LDA *$04 

Repeat- 

E53B 

80 88 02 

STA $0288 

Ceschwindigkeit 

E53E 

A9 OC 

LDA «$DC 

Cursor 

E540 

85 CO 

STA $CD 

Blinkzeit 

ES42 

85 CC 

STA $CC 

Cursor Blinkflag 


Bildschir« löschten 


Einsprung von SE86E 


E544 

AO 88 02 

LOA $0286 

Speicherseite für 
Bildschi rn*RAN 

E547 

09 80 

ORA «$80 

Adressen 

E549 

A8 

TAY 

der 

E54A 

A9 00 

LOA *$00 

Bi Id- 
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E54C 

AA 

TAX 


E54D 

94 09 

STT 

SD9,X 

E54F 

18 

CLC 


£550 

69 28 

ADC 

«S28 

E552 

90 01 

BCC 

SE555 

E554 

C8 

IHV 


E555 

e8 

INX 


E556 

EO 1A 

CPX 

«S1A 

E558 

DO F3 

BNE 

$E54D 

E55A 

A9 FF 

LDA 

«$FF 

E55C 

95 09 

STA 

$D9,X 

E55E 

A2 18 

LDX 

«S18 

E560 

20 FF E9 

JSR 

SE9FF 

E563 

CA 

DEX 


E564 

10 FA 

Bfl 

SE560 


schirm- 
zeilen 
40 «idferen 
(eine Zeile) 
kein Übertrag, dann 
HIGH-Byte nicht erhöhen 
HIGH'Byte erhöhen 
LOU-Byte erhöhen 
26, alle Zeilen ? 
nein, dann weiter 
Kennzeichnung der 
26, Zei le 

24, Anzahl der Zeilen minus 1 
Bildschirmzeile löschen 
Zähler erniedrigen 
schon alle? 


*•*«*************••«***»««•*• Cursor Honte 


Eirtsprung von SE590, SE78F 


E566 

AO 

00 

LOY «tOO 

Löschen der 

E568 

84 

D3 

STY $03 

Cursorspalte und 

E56A 

84 

D6 

STY $06 

Cursorzei le 


Cursorpos. berechnen, 
Bildschirmzeiger setzen 


Eirtsprung von $6510. $E70E, SE847, BEBSE 


ES6C 

A6 

D6 

LOX 

$06 

E56E 

A5 

03 

LDA 

$03 

E570 

B4 

09 

LOY 

$09,X 

E572 

30 

08 

BMI 

$E57C 

E574 

18 


CLC 


ES75 

69 

28 

ADC 

«$28 

E577 

85 

03 

STA $03 

E579 

CA 


OEX 


E57A 

10 

F4 

BPL 

$E570 

E57C 

20 

FO E9 

JSR 

$E9F0 


Cursorzeile 

Cursorspalte 

MIGH-Bytes für Doppelzeilen 
einfache Zeile, dann zu $ES7C 
Spalte 
«40 

und speichern 
nächste Zeile 
schon alle? 

Zeiger auf Video-RAM setzen 
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E57F 

A9 27 

LOA «S27 

ES81 

E8 

INX 

E582 

B4 09 

IDY $09,X 

E584 

30 06 

BHI $E58C 

ES86 

18 

CLC 

ES87 

69 28 

AOC «$28 

E589 

E8 

INX 

ES8A 

10 F6 

BPL SES82 

E58C 

8S OS 

STA $05 

ESSE 

4C 24 EA 

JHP SEA24 


Einsprung von $E621 


E591 

E4 C9 

CPX 

SC9 

E593 

FO 03 

BEQ 

$ES98 

E595 

4C ED E6 

JHP 

$E6ED 

E598 

60 

RTS 


ES99 

EA 

NOP 



39 Spalten 

Zeiger auf Bildsehirntabelle 
erhöhen 

HIfiH-Byte Startadresse der 
Zeile in Y-RES schreiben 
Verzweige falls gröBer, 
gleich 128 
Cursor eine Zeile 
tiefer setzen (*40 Spalten) 
Zeiger auf Bildschirntabelle 
erhöhen 

inbedingter Sprung 
Zeilenlänge speichern 
Zeiger auf Farb*RAM berechnen 
, Rücksprung 


wenn Cursorzeile 

gleich null, dann Rücksprung 

Adresse für zugehörige 

Zeilerr-x^wer nach Stl1/S02 

Rücksprung 

no Operation 


E59A 20 aO es JSR SE5A0 Videocontrolter 

initialisieren 

E590 4C 66 ES JMP SES66 Cursor Hone 

••••••••••••••••••••••••••*** Videocontroller 

initialisieren 


Einsprung von SES18, SES9A 


ESAO 

A9 03 

LDA »S03 

Ausgabe auf 

ESA2 

85 9A 

STA $9A 

Bildschirm 

ESA4 

A9 00 

LDA «SOO 

Eingabe von 

ESA6 

85 99 

STA $99 

Tastatur 

ESA8 

A2 2F 

LDX «$2F 

47 
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E5M 

60 66 EC 

LOA SEC68,X 

Konstanten 

E5Ab 

90 rr CF 

STA SCFFF.X 

ln VideokontroUer schreiben 

E5B0 

CA 

DEX 

Zähler erniedrigen 

E581 

00 F7 

BNE SE5AA 

schon alle? 

ESB3 

60 

RTS 

Rücksprung 


Zeiche•^ aus Tastaturpuffer 
holen 


Einspring von SE5E7, SFU7 


ESB4 

AC 77 02 

LOY S0277 

erstes Zeichen holen 

ESB7 

A2 00 

LDX «SOO 

Zähler auf Null 

E5B9 

BD 78 02 

LOA S0278,X 

Puffer nach 

E5BC 

90 77 02 

STA S0277,X 

vorne aufrücken 

ESBF 

E8 

IHX 

Zähler erhöhen 

E5C0 

E4 C6 

CPX SC6 

mit Anzehl der 

E5C2 

00 FS 

BNE $E5B9 

Zeichen vergleichen 

E5CA 

C6 C6 

DEC $C6 

Zeichenzaht erniedrigen 

E5C6 

98 

TYA 

Zeichen in Akku holen 

E5C7 

58 

CLI 

Interrupt freigeben 

E5C8 

16 

CLC 

Carry löschen 

E5C9 

60 

RTS 

Rücksprung 


-••••••••••*«►** Uarteschleife für 

Tastatureingabe 


E5CA 

20 16 E7 

JSR SE716 

Zeichen auf Bildschirm 

auageben 

ES(S 

AS C6 

lOA SC6 

Anzahl der 

ESCF 

85 CC 

STA SCC 

gedrückten 

ESDI 

80 92 02 

STA S0292 

Tasten 

ES04 

FO F7 

BEO SESCD 

keine Taste gedrückt ?, 

dann uarten 

ESd6 

78 

SEI 

Interrupt verhindern 

E507 

AS CF 

LOA SCF 

Cursor in Blink'Phase 7 

ES09 

FO OC 

BEO SE5E7 

nein 

E50B 

AS CE 

LOA SCE 

Zeichen mter de« Cursor 

E5DD 

AE 87 02 

LOX S0287 

Farbe unter dem Cursor 

ESCO 

AO 00 

LOT läSOO 

Cursor nicht 

E5E2 

86 CF 

STY SCF 

in Blinkphase 
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E5E4 

20 

13 EA 

JSR SEA13 

Zeichen und Farbe setzen 

E5E7 

20 

B4 ES 

JSR SESB4 

Zeichen aue Tastaturpijffer 

holen 

E5EA 

C9 

S3 

CHP «83 

Kode für 

E5EC 

DO 

10 

BNE SeSFE 

■SHIFT RUN* 7 

ESEE 

A2 

09 

LOX «09 

9 Zeichen 

E5F0 

78 


SEI 

Interrupt verhindern 

E5F1 

86 

C6 

STX SC6 

Zeichenzahl merken 

E5F3 

BD 

E6 EC 

LDA SECE6,X 

■LOAD (cr> RUN (er)' 

E5f6 

90 

Tb 02 

SIA $0276.X in Tasteturpuffer holen 

E5F9 

CA 


DEX 

nichstes Zeichen 

E5FA 

DO 

F7 

BNE SESF3 

schon alle 7 

ESFC 

FO 

CF 

BEQ SESCD 

und auswerten 

ES FE 

C9 

X 

CMP «X 

■CR' 

E600 

DO 

CS 

BME SESCA 

nein ?. dam zurück zur 

Warteschleife 

£602 

A4 

05 

LCY SOS 

Länse der Blldst^irweUe 

E6IX 

84 

DO 

STT $00 

CR-Flag setzen 

E606 

B1 

Dl 

LDA <$D1),Y 

Zeichen vom Bildschirm holen 

E60S 

C9 

20 

CHP «20 

Leerzeichen 

E60A 

DO 

03 

BNE SE60F 

am ErKde 

E60C 

38 


DEY 

der 

E6[)l> 

DO 

F7 

BNE SE606 

Zeile 

E60F 

C8 


INY 

eliieinieren 

E610 

84 

C8 

STY $C8 

Position als Index irerken 

E612 

AO 

00 

LOY «00 

Cursorspalte 

E614 

8C 

92 02 

STY $0292 

gleich Null 

E617 

84 

D3 

STY $03 

Cursorposition auf Null 

E619 

84 

D4 

STY $04 

Hochkonnaflag löschen 

E61B 

AS 

C9 

LDA $C9 

wenn Cursorzeile schon durch 

EAlO 

30 

13 

BNI $E63A 

scroUen verschwunden, dann 

zu $E63A 

E61F 

A6 

06 

LDX $06 

Cursorzeile 

E621 

20 

ED E6 

JSR $ES91 

Adresse für Startzeile setzen 

E624 

E4 

C9 

CPX $C9 

Fehler bei Eingabe ?, 

E626 

DO 

12 

BNE $E63A 

dann nochmal lesen 

E628 

AS 

CA 

LOA $CA 

letzte Spalte 

E62A 

85 

D3 

STA $03 

in Spaltenzeiger bringen 

E62C 

CS 

C8 

CHP $C8 

mit Irrdex vergleichen 
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E62E 

90 0* 

BCC SE6M 

wenn kleiner, dam Zeile 

ausuerten 

E630 

BO 2B 

BCS SE65D 

wenn gröBer oder gleich, dann 


keine Eingabe 


Ein Zeichen v<n BildschiriR 
holen 


EinsprtMig 

von SF163, SF170 


E632 

98 


TYA 

die 

E633 

48 


PHA 

Ke* 

E634 

SA 


TXA 

gister 

E635 

48 


PHA 

retten 

E636 

AS 

00 

LOA »00 

CR-Flag 

E638 

FO 

93 

BEQ SESCD 

nein, dann zur Uarteschleife 

E63A 

A4 

03 

LOr S03 

Spalte 

E6SC 

Bi 

01 

LOA (S01), 

Y Zeichen vom Bildschini holen 

E63E 

85 

07 

STA S07 

und 

E640 

29 

3F 

AND *S3F 

nach 

E642 

06 

07 

ASL SD7 

ASCII 

EM4 

24 

07 

BIT S07 

wandeln 

E646 

10 

02 

BPL SEMA 

wenn Bit 6 nicht gesetzt, 
dann zu SEMA 

E648 

09 

80 

OKA ««80 

Bit 7 setzen 

E64A 

90 

04 

BCC SE650 

Zeichen nicht revers ?, dann 

zu SE650 

EMC 

A6 

04 

LDX SD4 

Hochkooneflag nicht 

E64E 

00 

04 

BNE SE654 

gesetzt ?, dann zu SE654 

E650 

70 

02 

BVS SE654 

wenn ja, dann zu SE654 

E652 

09 

40 

OKA ««40 

Bit 6 im Zeichen setzen 

E654 

E6 

03 

INC S03 

Cursor eins weiter setzen 

E656 

20 

84 E6 

JSR SE664 

auf Nochkonrna testen 

E659 

C4 

C8 

CPY SC8 

Cursor in letzter Spalte ? 

E65B 

00 

17 

BNE SE674 

wenn nicht, dann zu SE674 

E65D 

A9 

00 

LOA «ISOO 

Zeile 

E65F 

85 

00 

STA SDO 

vollständig gelesen 

E661 

A9 

00 

LOA ««OD 

■CR' 

E663 

A6 

99 

LDX S99 

arts Ende der Zeile setzen 

EMS 

ED 

03 

CPX «IS03 

Eingabe vom BiIdschirm 7 
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E667 

FO 06 

BEO SE66F 

ja, dann zu SE66F 

E669 

A6 9A 

LDX S9A 

Ausgabe auf Bi Idschi rtn 

E66B 

EO 03 

CPX «$03 

je. dann 

E660 

FO 03 

BEO BE672 

zu SE672 

EMF 

20 16 E7 

JSR SE716 

Zeichen auf Bildschirm 

schreiben 

E672 

A9 00 

LOA noo 

Wert für 

E676 

S5 07 

STA SD7 

■CR' 

E676 

68 

PLA 

die 

E677 

AA 

FAX 

Register 

E678 

68 

PLA 

zurück- 

E679 

AS 

TAY 

holen 

E67A 

AS 07 

LOA SD7 

BildschiriD'Kode 

E67C 

C9 OE 

CHP «SOE 

mit Kode für Pi vergleichen 

E67E 

00 02 

BNE SE682 

nein ?. dann fertig 

E680 

A9 FF 

LOA »FF 

ja 7. durch BASIC-Kode 

fOr Pi ersetzen 

E682 

18 

CLC 

Carry löschen 

E683 

60 

RTS 

Rücksprirtg 


••••*•••••••••••••••••«•••••• auf HochkoaiM testen 


Einspring von SE656, SE73F 


E686 

C9 22 

CHP »22 

IUI 7 

E686 

00 08 

BNE SE690 

nein 7, dann fertig 

E688 

AS 06 

LOA $06 

Hochkoeeu- 

E68A 

69 01 

EOR »01 

Flag 

E68C 

SS 06 

STA SP6 

umdrehen 

E68E 

A9 22 

LOA »22 

Hochkotma-Code wieder 

herstetten 

E690 

60 

RTS 

Rücksprurig 


••»«•••«•«•••••••M********** Zeichen auf Bildschir« 

ausgeben 


Einsprung von tf7E0 

E691 09 60 OM #S40 Bit 6 itn Zeichen setzen 
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Einsprung von SE742 


E693 

A6 

C7 

LOX SC7 

RVS ? 

E695 

FO 

02 

BEO SE699 

Uiwandlung in Bildschimcode 

Einsprung 

von SE749, SE782, 

SE82F 

E697 

09 

80 

ORA mo 

ja, dam Bit 7 setzen 

E699 

A6 

08 

IDX t06 

wenn Einfiigzähler Mull, 

E69B 

FO 

02 

BEO SE69F 

dann zu SE69F 

E690 

C6 

08 

DEC <08 

Zähler erniedrigen 

E69F 

AE 

86 02 

LDX S0286 

Farbkode 

E6A2 

20 

13 EA 

JSR SEA13 

Zeichen In Bildschirn'RAH 

schreiben 

E6AS 

20 

B6 E6 

JSR SE666 

Tabelle der Zellenanfänge 

aktualisieren 


Einsprung von SE7AA, SE7CB, SE826, $E861. SE867, SEB71. SE89E, 
SEC5B, SECTS 


E6A8 

68 

PLA 

Y-Reg 

E6A9 

A8 

TAY 

aus Stack 

E6AA 

ßS 08 

LDA $D8 

wenn Einfügzähler Null, 

E6AC 

FO 02 

BEQ SE6B0 

dann zu SE6B0 

E6AE 

«6 04 

LSR S04 

HochkonMsnodJS löschen 

E6B0 

68 

PIA 

X-Reg 

E6B1 

AA 

TAX 

aus Stack 

E6B2 

68 

PLA 

Akku aus Stack 

E6B3 

18 

CLC 

Carry loscherr 

E6B4 

58 

CLI 

Interrupt freigeben 

E6B5 

60 

RTS 

Rücksprung 


HISH-Byte für Zeilenanfänge 
neu berechnen 


Einsprung von tE6A6 

E6B6 20 B3 E8 JSR BE8B3 Zeilenzeiger erhöhen 
E6B9 E6 03 INC t03 Cursorspalte erhöhen 
E68B A5 05 LDA SOS ZeilenLänge holen 
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E6BD 

CS 

03 


CMP 

SOI 

E6BF 

BO 

3F 


BCS 

SE700 

E6C1 

C9 

4f 


CMP 

«S4F 

E6C3 

FO 

32 


BEO 

SE6F7 

E6C5 

AD 

92 

02 

LOA 

S0292 

EöCS 

FO 

03 


BEO 

SE6C0 

E6CA 

4C 

67 

E9 

JHP 

SE967 

E6CD 

A6 

d6 


LDX 

SD6 

66CF 

EO 

19 


CPX 

«S19 

E601 

90 

07 


BCC 

SE60A 

E603 

20 

EA 

ES 

jse 

SESEA 

E606 

C6 

D6 


DEC 

S06 

E608 

A6 

D6 


LDX 

$06 


Einsprutg 

von 

SE97E, SE9C2 

E60A 

16 

D9 


ASL SD9.X 

E60C 

56 

09 


LSR SD9,X 

E6DE 

E8 



INX 

E60F 

BS 

09 


LDA S09,X 

E6E1 

09 

80 


CRA ««80 

E6E3 

95 

D9 


STA $09,X 

E6ES 

CA 



OEX 

E6E6 

A5 

DS 


LDA SD5 

E6E8 

18 



CLC 

E6E9 

69 

28 


ADC #$28 

E6EB 

85 

05 


STA $D5 

Einsprung 

von 

SE595 

E6ED 

BS 

D9 


LDA $09,X 

E6EF 

30 

03 


BM SE6F4 

E6F1 

CA 



DEX 

E6F2 

DO 

F9 


BNE SE6ED 

E6F4 

4C 

FO 1 

E9 

JHP $E9F0 

E6F7 

C6 

06 


DEC $06 

E6F9 

ZO 

7C S8 

JSR $E87C 

E6FC 

A9 

00 


LOA ««00 


Vergleich nit Cursorspelte 
nicht überschritten, dann RTS 
79 Zeichen (Doppelzeile) ? 
wenn Ja, dann zu SE6F7 
Zeilenübergang nicht 
in Edit<todus, darrt zu SE6C0 
neue Zeile einfügen 
Zeile 
25 7 

wenn Ja, dann zu SE6DA 
SCROLL 

Cursorzeilenzeiger 
erniedrigen 
Zähler holen 


Zeile 
markieren 
Zähler erhöhen 
Startzeile 
markieren 
und speichern 
Zähler erniedrigen 
Zei lenlänge 
mit 

40 addieren 
und speichern 


keine Doppelzei te, 

dam zu SE6F4 

Zähler erniedrigen 

noch nicht alle?, dann weiter 

Zeiger auf Farb-RAH 

für Zei le X 

Cursorzeile erniedrigen 
md initialisieren 
Spalte 
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E6FE 85 D3 STA S03 auf Nult 

E700 60 RTS Rücksprung 

Röcisschritt «n vorhergehende 
Zeile 


Einsprung von tE753, SE664 


E701 

A6 D6 

LDX S06 

Cursorzei le 

B703 

DO 06 

BNE tE70B 

Hem null, dam zu SE70B 

E705 

66 D3 

STX SD3 

Cursorspalte 

E707 

68 

PLA 

Sprungadresse 

E708 

68 

PLA 

aus Stack holen 

E709 

DO 9D 

BNE SE6A8 

unbedingter Sprung 

E70B 

CA 

DEX 

Zeilenni/mer 

E70C 

86 D6 

STX SD6 

erniedrigen 

E70E 

20 6C ES 

JSR SE56C 

Cursorposition berechnen 

E711 

A4 05 

LDY SOS 

Zei lenlänge 

E713 

64 D3 

STT $03 

speichern 

E715 

60 

RTS 

Rücksprung 


•••••»••■•••••••••••••*•••*** Ausgebe auf Bildschirm 


Einsprung von SE5CA, SE66F, SF1D2 


E716 

48 

PHA 

Zeichen 

E717 

85 D7 

STA S07 

merken 

E719 

8A 

TXA 

die 

E71A 

48 

PHA 

Re¬ 

E71B 

98 

TYA 

gister 

E71C 

48 

PHA 

retten 

E71D 

A9 00 

LDA «SOO 

Eingabeflag 

E71F 

85 00 

STA SOO 

löschen 

E721 

A4 03 

LDY $D3 

Cursorspal te 

E723 

AS 07 

LOA $D7 

Zeichen 

E725 

10 03 

BPL SE72A 

wenn kleiner 128, dam 

zu SE72A 

E727 

4C 04 E7 

JHP SE7D4 

Zeichen gröBer S7F behandeln 

E72A 

C9 X 

CMP #S0D 

'CARRIAGE RETURN' 7 

E72C 

00 03 

BNE SE731 

wenn nicht, dann zu SE731 
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E72E 

4C 

91 

£8 

JNP 

SE891 

Return ausgeben 

E731 

C9 

20 


CMP 

«»20 

' ' 

E733 

90 

10 


BCC 

SE745 

druckendes Zeichen ? 

E735 

C9 

60 


CMP 

«S60 

Zahl kleiner $60. 

E737 

90 

04 


BCC 

SE730 

dann keine Craphikzeichen 

E739 

29 

DF 


AHO 

#SDF 

Umwandlui^g in BS-Kode 

E73B 

00 

02 


BNE 

SE73F 

unbedingter Sprung 

E73D 

29 

3F 


AND 

«S3F 

UnMandlung in BS-Kode 

E73F 

20 

84 

£6 

JSR 

SE664 

Test auf HochkoMt« 

E742 

6C 

93 

£6 

JNP 

SE693 

zur Ausgabe, ASCII*Kode 

in BS-Cede 

E74S 

A6 

08 


LDX 

S08 

wenn Einfügzähler «0, 

E767 

FO 

03 


B£Q 

SE74C 

dann zu $E74C 

E769 

6C 

97 

E6 

JHP 

SE697 

ASC Il-Kode in BS-Code 

E74C 

C9 

14 


CMP 

«S14 

nicht 'DEL' ?, 

E74E 

DO 

2E 


BNE 

BE77E 

dam zu $E77E 

E750 

9S 



ITA 


erste Spalte =0 

£751 

00 

06 


Bn£ 

BE759 

dann zu $E7S9 

E753 

20 

01 

E7 

JSR 

SE701 

zurück in vorherige Zeile 

E756 

4C 

73 

E7 

JHP 

1E773 

Zeichen in Cursorposition 

eliMinieren 

E759 

20 

AI 

E8 

JSR 

SE8A1 

Rückschritt prüfen 

E75C 

88 



DEY 


Zeiger erniedrigen 

E75D 

84 

03 


STY 

$03 

ind speichern 

E75F 

20 

24 

£A 

JSR 

SEA24 

Zeiger auf Farb-RAH berechnen 

E762 

C8 



INY 


Zeiger erhöhen 

E763 

Bl 

01 


LOA 

($01),Y 

Zeichen von Bildschirm 

E765 

88 



DEY 


Zeiger erniedrigen 

E766 

91 

Dl 


STA 

t$D1).Y 

eins nach links schieben 

£766 

08 



IHY 


Zeiger erhöhen 

£769 

61 

F3 


LOA 

{$F3),Y 

Farbe 

£766 

88 



DEY 


Zeiger erniedrigen 

E76C 

91 

F3 


STA 

($F3>.Y 

eins nach links schieben 

E76E 

C8 



IHY 


Zeiger erhöhen 

E76P 

C4 

05 


CPY 

$05 

Endspalte nicht 

£771 

00 

EF 


BME 

$E762 

erreicht, dann weiter 
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Einsprung 

von SE7S6 


E773 

A9 

20 

LOA 

«$20 

E775 

91 

01 

STA 

(SD1), 

E777 

AD 

86 02 

LDA 

S0286 

E77A 

91 

F3 

STA 

(SF3> 

E77C 

10 

40 

BPL 

SE7CB 

E77E 

A6 

04 

LOX 

$04 

E780 

FO 

03 

BEQ 

SE785 

E782 

4C 

97 E6 

JMP 

tE697 

E785 

C9 

12 

CMP 

IIIS12 

E787 

00 

02 

BNE 

SE78B 

E789 

85 

C7 

STA 

tC7 

E76B 

C9 

13 

CMP 

*$13 

E78P 

00 

03 

BNE 

SE792 

E78F 

20 

66 ES 

JSR 

SE566 

E792 

C9 

10 

CMP 

«$10 

E794 

00 

17 

BNE 

$E7A0 

E796 



INT 


E797 

20 

B3 E8 

JSR 

SE8B3 

E79A 

84 

03 

STY 

$03 

E79C 

88 


DEY 


E790 

C4 

05 

CPY 

$05 

E79F 

90 

09 

BCC 

SE7AA 

E7A1 

C6 

D6 

DEC 

$06 

E7A3 

20 

7C EB 

JSR 

SE87C 

E7A6 

AO 

00 

LOY 

«SOD 

E7A8 

84 

03 

STY 

$03 

E7AA 

4C 

AB E6 

JMP 

SE6A8 

E7AD 

C9 

11 

CMP 

«$11 

E7AF 

00 

10 

BNE 

SE7CE 

E7B1 

18 


CLC 


E782 

98 


TYA 


E7B3 

69 

28 

ADC 

*$28 

E7B5 

A8 


TAY 


E7B6 

E6 

06 

INC 

SD6 

E7B8 

C5 

D5 

CMP 

SD5 

E7BA 

90 

EC 

BCC 

SE7A8 

E7BC 

FD 

EA 

BEQ 

SE7A8 

E7BE 

C6 

06 

DEC 

SD6 


Blank 

V elnfügen 
Farbeode 

V setzen 
fertig 

Hochkcesxe-Mocius 7 
nein 

Zeichen revers ausgeben 

■RVS ON' ? 

nein, denn 

Flag für RVS setzen 

■HOME' ? 

nein 

ja. Cursor Homc 
■C ursor right* 7 
nein 

Zeiger erhöhen 
Cursorposition prüfen 
neuer Zeiger 
Zeiger erniedrigen 
keine neue Zeile 7, 
dann fertig 
Zeiger erniedrigen 
Zeile initialisieren 
Spalte 
gleich null 
fertig 

■Cursor down’ 7 

nein 

plus 

40, 

eine Zei le 
tiefer 

Zeiger erhöhen 
neue Zeile erreicht7 
nein, dann zu SE7A8 
ja, dann zu SE7A8 
Zeiger erniedrigen 
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E7C0 

E9 28 

SBC l»28 

40 abziehen 

E7C2 

90 04 

BCC K7C8 

genügend abgezoBet^, denn 
SU SE7CS 

E7C4 

8S 03 

STA <03 

Spalte setzen 

E7C6 

DO F8 

BNE SE7C0 

noch mal 

E7Ca 

20 7C ES 

JSR SE87C 

Zeile initialisieren 

E7CB 

4C AS E6 

JMP SE6A8 

fertig 

E7CE 

20 CB EB 

JSR SE8CB 

prüft auf Farbeodes 

E7D1 

4C 44 EC 

JHP SEC44 

Test auf weitere 


Sonderzeichen 


**••*•***•••••••••••*•**••••• Zeichen größer S127 


Einsprung 

vor 

1 $E727 



E704 

29 

7F 


AHD 

«S7F 

rode gröler 127, 

Bit 7 löschen 

E7D6 

C9 

7F 


CHP 

M7F 

nicht 'Pi' ? 

E7D8 

DO 

02 


BNE 

>E7DC 

dann zu $E7DC 

EZOA 

A9 

5E 


LOA 

#S5E 

Bi Idschirnkode für Pi 

E70C 

C9 

20 


CHP 

IKZD 

Steuerzeichen 7 

E7DE 

90 

03 


BCC 

SE7E3 

ja 

E7E0 

4C 

91 

E6 

JHP 

BE691 

druckendes Zeichen ausgeben 

E7E3 

C9 

00 


CHP 

MOO 

nicht '»lift return' ? 

E7E5 

DO 

03 


BNE 

>E7EA 

dann zu SETEA 

E7E7 

4C 

91 

ES 

JHP 

»891 

neue Zeile 

ETEA 

Aö 

04 


LDX 

$04 

Kochkoetna'Nodus ? 

E7EC 

00 

3F 


BNE 

SE82D 

Ja, Steuerzeichen revers 
ausgeben 

E7EE 

C9 

14 


CHP 

«$14 

nicht 'INS' ?. 

E7F0 

DO 

37 


BNE 

»829 

dann zu SE82? 

E7F2 

A4 

05 


LOT 

SOS 

Zei lenlänge 

E7F4 

Bl 

01 


LOA 

($01),Y 

letztes Zeichen in Zeile 

E7r6 

C9 

20 


CHP 

i»S20 

gleich Leerzeichen 7 

E7F8 

OD 

04 


BNE 

$E7FE 

nein, dann zu $E7FE 

E7FA 

C4 

03 


CPY 

$03 

Cursor in letzter Spalte 7 

E7FC 

PO 

07 


BNE 

»805 

nein, dann zu SE805 

E7FE 

CO 

4F 


cpr 

«S4F 

79 ? naxiiRile ZeilenUnge 

E800 

fo 

24 


BEO 

SEB26 

letzte Spalte, dann keine 

Aktion 
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64 Intern 


E802 

20 

65 E9 

JSR 

SE965 

E805 

A4 

D5 

LOY 

SOS 

E807 

20 

24 EA 

JSR 

SEA24 

E80A 

88 


DEY 


E80B 

Bl 

01 

LOA 

(S01),T 

E800 

C8 


INV 


E60E 

91 

01 

STA 

(SOD.Y 

E810 

88 


DEY 


E811 

Bl 

F3 

LOA 

l*F3),Y 

E813 

C8 


INY 


E814 

91 

F3 

STA 

(SF3),T 

E816 

88 


DEY 


E817 

C4 

03 

CPY 

S03 

E8t9 

DO 

EF 

BHE 

SE80A 

E81B 

A9 

20 

LDA 

«S20 

E81D 

91 

Dl 

STA 

<$D1),Y 

E81F 

AD 

86 02 

LDA 

S02B6 

E822 

91 

F3 

STA 

<SF3).Y 

E824 

E6 

D8 

INC 

SDB 

E826 

4C 

A8 E6 

JHP 

SE6A8 

E829 

A6 

D8 

LDX 

t 08 

E82B 

FO 

05 

BEQ 

SE832 

E82D 

09 

40 

ora 

))IS40 

E82F 

4C 

97 E6 

JHP 

SE697 

E832 

»***« 

C9 

11 

k****« 

CMP 

M11 

E834 

DO 

16 

BNE 

SE84C 

E836 

A6 

D6 

LDX 

S06 

E638 

FO 

37 

BEQ 

SE871 

E83A 

C6 

D6 

DEC 

S06 

Ea3C 

A5 

D3 

LOA 

S03 

E83E 

38 


SEC 


E83F 

E9 

28 

SBC 

M28 

E841 

90 

04 

BCC 

$E847 

E843 

85 

03 

STA 

S03 

E845 

10 

2A 

BPL 

SE871 


Leerzeile einfügen 
Zeilenldnge 

Zeiger auf Farbram berechnen 

Zeiger erniedrigen 

Zeichen voa Bildachirm 

Zeiger erhüben 

eins nach rechts schieben 

Zeiger erniedrigen 

und Farbe 

Zeiger erhöhen 

verschieben 

Zeiger erniedrigen 

bis zur aktuellen Position 

aufrficken 

nicht ?, dann weiter 
Leerzeichen 

an augenblickliche Position 

schreiben 

Farbe 

setzen 

Anzahl der inserts erhöhen 

Ende der Zeichenausgabe 

Zahler Null? 

dann zu SE832 

Bit 6 setzen 

und Zeichen ausgeben 

nicht Cursor up ?, 
dann zu SE84C 
Zeile 

null, dam fertig 

Zei lenntaaaer ua eins erniedrigen 

Spalte 

40 

abziehen 

nicht in Doppelzeile ?, 
dann zu SE847 
Cursorspalte 
positiv, ok 
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E847 

20 

6C ES 

JSR 

SE56C 

E84A 

00 

25 

6NE 

SE871 

E84C 

C9 

12 

CHP 

«812 

E84E 

00 

04 

BNE 

SE854 

ESSO 

A9 

00 

LOA 

«soo 

E852 

85 

C7 

STA 

$C7 

£854 

C9 

10 

CHf> 

•S10 

E^ 

00 

12 

^E 

SE86A 

E8S8 

98 


TTA 


E8S9 

FO 

09 

BEO 

SE864 

E8SB 

20 

AI ES 

JSR 

SE8A1 

ESSE 

88 


DET 


E8SF 

84 

03 

STT 

S03 

E661 

4C 

A8 E6 

JMP 

SE6A8 

E864 

20 

01 E7 

iSR 

»E701 

E867 

4C 

A8 E6 

JHP 

SE6A8 

E68A 

C9 

13 

CMP 

«i13 

ES6C 

00 

06 

BNE 

SE874 

ESSE 

20 

44 ES 

JSR 

SE544 

E871 

4C 

A8 E6 

JMP 

SE6A8 

E874 

09 

80 

ORA 

#S80 

E876 

20 

CB ES 

JSR 

SE8CB 

E879 

4c 

4F EC 

JHP 

SEC4F 


Einsprung 

von SE6F9, SE7A3, 

E87C 

46 

C9 


LSR SC? 

E87E 

A6 

06 


LDX S06 

E880 

ES 



INX 

E881 

EO 

19 


CPX «i19 

E883 

00 

03 


BNE SE888 

E885 

20 

EA 

E8 

JSR SESEA 

E888 

B5 

09 


LOA 109,X 

E88A 

10 

F4 


BPI SE680 

Eesc 

86 

06 


STX $06 

EBBE 

4C 

6C 

ES 

JHP SE56C 


Bfldschirmeiger r>eu setzen 

unbedingter Sprung 

nicht 'RVS OFF' », 

dem zu SE8S4 

RVS-Ftag 

löschen 

nicht 'Cursor left* ?, 
dann zu SE86A 
wenn erste Spelte, 
dann zu SE864 
Cursorzeile erniedriget^ 
Zähler erniedrigen 
Cursorepalte 
fertig 

Rückschritt in vorherige 

Zaile 

fertig 

nicht 'CLR SCREEN' ?, 
dann zu SC874 
Bildschirm löschen 
fertig 

Bit 7 wiederherstellen 
auf Farbcode prüfen 
prüft auf Unschaltung 
Text/Grafik 

tE7C8, SE89e 

Flag für Zeilemiedisel 
Cursorzei lenzeiger 
Zeiger erhöhen 
noch nicht letzte Zeile 7. 
dann zu SE888 
Bildschirm scroUen 
nächste Zeile, dann 
wieder scrollen 
neue Zeile 

Cursorposition berechnen 
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64 Intern 


Einspru^g 

von SE72E, SE7E7 

E891 

A2 

00 

LDX 

#soo 

E893 

86 

08 

STX 

SOB 

E895 

86 

C7 

STX 

$C7 

E897 

86 

04 

STX 

>04 

E899 

86 

03 

STX 

SD3 

E898 

20 

7C E8 

JSR 

SE87C 

E89E 

4C 

A8 E6 

JHP SE6A8 

Einsprung 

von SE759, SE85B 

E8A1 

A2 

02 

LDX 

irso2 

E8A3 

A9 

00 

LOA 

*soo 

E8AS 

C5 

03 

CHP 

SD3 

E8A7 

FO 

07 

BEO 

SE6B0 

E8A9 

18 


CLC 


E8AA 

69 

28 

ADC 

»S28 

E8AC 

CA 


DEX 


ESAD 

00 

F6 

BNE 

SE8A5 

E8AF 

60 


RTS 


E6B0 

C6 

06 

DEC 

SD6 

E882 

60 


RTS 


Einsprung 

von SE6B6, SE797 

E8B3 

A2 

02 

LDX 

#$02 

E885 

A9 

27 

LDA 

«$27 

E8B7 

CS 

03 

CHP 

$d3 

E889 

FO 

07 

BEO 

$E8C2 

E8BB 

18 


CLC 


E8BC 

69 

28 

AOC 

«$28 

EBBE 

CA 


DEX 


E8BF 

00 

F6 

BNE 

$E8B7 

E8C1 

60 


RTS 


E8C2 

A6 

06 

LDX 

$06 

E8C4 

EO 

19 

CPX 

«$19 

E8C6 

FD 

02 

BEQ 

$E8CA 


Einfüg* 

Zähler löschen 
Flag für RVS löschen 
Ouote-Nodus löschen 
Cursor in erste Spalte 
Zeile initialisieren 
fertig 


maximale Zeilenanzahl 
wenn Cursorspalte 
gleich Akku, 
dann zu SEBBD 
4D addieren, 
eine Zeile 

schon zweimal addiert ?, 
ja, dann weiter 
Rücksprung 

Zeiger auf Cursorzeile 

erniedrigen 

Rücksprung 


maximale Zeilenanzahl 
39. letzte Spalte 
wenn Cursorspalte gleich 
akku ?, dann zu SE8CZ 
40 

addieren 
schon zweimal ?, 

Ja, dann weiter 
Rücksprung 
wenn Cursorzeile 
gleich 25, 
dann fertig 
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E8C8 

E6 06 

INC $06 

Zeiger auf Cursorzeile 





erhöhen 

E8CA 

60 


RTS 

Rücksprung 


'**** 



’* prüft auf Farbcodes 

Einspri.ng von SE7CE, SE876 


E8CB 

A2 

OF 

LDX «ttOF 

Anzahl der Kodes 

E8CD 

DD DA E8 

CMP SE80A,X mit Farbcodetsbelle 





vergleichen 

E8D0 

FO 

04 

BEO $E806 

wenn gefunden, dann färbe 





setzen 

£802 

CA 


DEX 

nächster Farbcode 

E603 

10 

F8 

BPL SE8CD 

schon alle ? 

E805 

60 


RTS 

Rücksprung 

E808 

8E 

86 02 

STX $0286 

Farbcode setzen 

E809 

60 


RTS 

Rücksprung 


F***« 



>• Tabelle der Farb-Kodes 

E8DA 

90 05 IC 

9F 9C IE 1F 

9E 

ESE2 

81 

95 96 9 7 9 8 99 9A 

9S 


F***« 



Bildschirn scrollen 

Einsprung 

von SE6D3, $E885, 

SE97S 

E8EA 

AS 

AC 

LOA $AC 

Alle 

E8EC 

48 


PHA 

wicht!gen 

E8ED 

AS 

AD 

LOA SAD 

Zeiger 

E8EF 

48 


PHA 

in 

E8F0 

AS 

AE 

LOA $AE 

den 

E8F2 

48 


PHA 

Stack 

E8F3 

AS 

AF 

lOA SAF 

schie- 

E8F5 

48 


PHA 

ben 

E8F6 

A2 

FF 

LOX «SFF 

ab Zeile Null beginnen 

E8F8 

C6 

06 

DEC $06 

Cursor Zeiger 

E8FA 

C6 

C9 

OEC $C9 

erniedrigen 

E8FC 

CE 

AS 02 

DEC S02A5 

Fortsetzmgszeile erniedrigen 

E8FF 

E8 


IHX 

Zei lennumer erhöhen 
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E900 

20 

FO E9 

JSR SE9F0 

Zeiger auf Video-RAM fflr 

Zeile X 

E903 

EO 

18 

CPK «S18 

24 

E905 

BO 

OC 

BCS SE913 

schon alle Zeilen ? 

E907 

BO 

Fl EC 

LOA SECFI.X 

LOW-Byte holen 

E90A 

SS 

AC 

STA $AC 

und speichern 

E9CIC 

BS 

DA 

LOA SOA.X 

HIGH-Byte 

E90E 

20 

ce E9 

JSR SE9C8 

Bildsehinueile nach oben 

schieben 

E911 

30 

EC 

BMI SE8FF 

nächste Zeile 

E913 

20 

FF E9 

JSR SE9FF 

unterste Bildschinazeile 

löschen 

E916 

A2 

00 

LDX MOO 

HIGH- 

E918 

B5 

09 

LOA S09.X 

Bytes 

E91A 

29 

7F 

AND M7F 

und 

E91C 

B4 

DA 

LOY SOA.X 

die 

E91E 

10 

02 

BPL SE922 

Doppel¬ 

E920 

09 

80 

ORA M80 

zei len 

E922 

95 

09 

STA S09,X 

ver¬ 

E924 

ES 


INX 

schieben 

E925 

EO 

16 

CPX «18 

nicht 24 ?, 

E927 

00 

Ef 

BNE SE918 

dann nochmal 

E929 

A5 

Fl 

LOA SF1 

Zeile 

E92B 

09 

60 

ORA fS60 

als einfache Zei le 

E92D 

SS 

Fl 

STA SF1 

auszeichnen 

E92F 

AS 

09 

LOA S09 

wenn Fortsetzungszeite, 

E931 

10 

C3 

BPL SE8F6 

dann nochmal 

E933 

E6 

06 

INC $06 

Zeiger auf Cursor erhöhen 

£935 

EE 

AS 02 

INC S02AS 

Fortsetzungszeile erhöhen 

E930 

A9 

7F 

LOA «7F 

Kode 

E93A 

80 

00 OC 

STA SDCOO 

für 

E930 

AO 

01 OC 

LOA SDC01 

Tastaturabfrage 

E940 

C9 

FB 

CMP «FB 

CTRL-Taste gedrückt 7 

E942 

08 


PHP 

Statusregister retten 

E943 

A9 

7F 

LOA «7F 

Code für 

E945 

80 

00 OC 

STA SDCOO 

Tastaturabfrage 

E940 

28 


PLP 

Statusregister holen 

E949 

00 

OB 

BNE SE956 

nicht gedrückt 7 

E94B 

AO 

00 

LOY «SOO 

Ver- 

E940 

EA 


KOP 

zö- 
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E94E 

CA 

DEX 

E9AF 

DO FC 

BNE SE94D 

E951 

88 

DET 

E952 

DO F9 

BNE SE94D 

E954 

S6 Cö 

STY $C6 

E956 

A6 Dö 

LDX 106 

Einaprung von 

SE9C5 

E956 

68 

PLA 

E959 

SS AF 

STA SAF 

E9S8 

68 

PLA 

E9SC 

SS AE 

STA SAE 

E95E 

68 

PLA 

E9SF 

es AD 

STA SAD 

E961 

68 

PLA 

E96Z 

85 AC 

STA SAC 

E966 

60 

RTS 


Einsprung 

von SE802 


E965 

A6 

D6 

LDX 

S06 

E967 

ES 


IHX 


E96S 

B5 

D9 

LDA 

SD9,X 

E96A 

10 

FB 

BPL 

K967 

E96C 

6E 

AS OZ 

STX 

S02A5 

E96f 

EO 

18 

CPX 

«SIS 

E971 

FO 

OE 

BEQ 

SE981 

E973 

90 

oc 

BCC 

SE9S1 

E975 

20 

EA ES 

JSR 

SE8EA 

E978 

AE 

AS OZ 

LDX 

S02AS 

E97B 

CA 


DEX 


E97C 

C6 

d6 

DEC 

S06 

E97E 

4C 

DA E6 

JNP 

SE6DA 


geru- 

ngs- 

sch' 

leife 

Anzahl cter gedrückten 
Tasten gleich null 
alle 


benö¬ 

tigten 

Zei¬ 

ger 

Zu¬ 

rück- 

ho¬ 

len 

RückspriMig 

Einfügen einer 
Fortsetzungszeile 


Zeiger auf Cursorzeile 

Zeiger erhöhen 

untere Zeile gleich 

Cursorzei le, dein zu $E967 

Zeilennumer 

gleich 

ZA 

dann zu SE9S1 

Bi Idgchfrm scrollen 

Zeilenrujiwer 

erniedrigen 

Zeiger auf Cursorzeile 

erniedrigen 

Zeile initialisieren 
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E9B1 

AS 

AC 


LDA 

SAC 

Alle 

E9e3 

48 



PHA 


benötiflten 

E984 

AS 

AO 


LDA 

SAD 

Zeiger 

E986 

48 



PHA 


in 

£987 

AS 

AE 


LDA 

SAE 

den 

E989 

48 



PHA 


Stack 

E98A 

AS 

AF 


LDA 

SAF 

schie¬ 

E9ec 

46 



PHA 


ben 

E98D 

A2 

19 


LDX 

IIIS19 

2S 

E98F 

CA 



OEX 


Zei lemumer 

E990 

20 

FO 

E9 

JSR 

SE9F0 

Zeilen-Zeiger berechnen 

E993 

EC 

AS 

02 

CPX 

SD2A5 

alle Zeilen verschoben 7, 

E996 

90 

OE 


BCC 

SE9A6 

wem j'a. 

E998 

FO 

OC 


BEQ 

SE9A6 

dam zu SE9A6 

E99A 

BO 

EF 

EC 

LDA 

SECEF.X 

LOU-Byte des Zeilenanfangs 

E99D 

es 

AC 


STA 

SAC 

setzen 

E99F 

bs 

08 


LDA 

S08,X 

HIGH-Byte setzen 

E9A1 

20 

C8 

E9 

JSR 

SE9ce 

Zeile nach oben schieben 

E9A4 

30 

E9 


BM[ 

SE9eF 

Unbedingter Sprung 

E9A6 

20 

FF 

E9 

JSR 

SE9FF 

Bi Idschi rnzei (e löschen 

E9A9 

A2 

17 


LDX 

«S17 

HIGH-Byte-Tabelle 

E9AB 

EC 

AS 

02 

CPX 

S02A5 

verschieben 

E9AE 

90 

OF 


BCC 

SE9BF 

alles verschoben 7 

E990 

BS 

DA 


LOA 

SDA.X 

HIGH- 

E9B2 

29 

7F 


AND 

*S7F 

Byte- 

E9BA 

B4 

09 


LOY 

SD9,X 

und 

E9B6 

10 

02 


BPL 

SE9BA 

Doppclzei len- 

E9B8 

09 

60 


ORA 

AIS80 

Tabelle 

E9BA 

95 

DA 


STA 

SDA,X 

nach 

E9BC 

CA 



DEX 


unten schieben 

E9BD 

00 

EC 


BKE 

SE9AB 

schon alles 7 

E9BF 

AE 

AS 

02 

LOX 

S02AS 

Zei lennunner 

E9C2 

20 

DA 

E6 

JSR 

SE6DA 

MSB neu berechnen 

E9C5 

4C 

se 

E9 

JHP 

SE95e 

Register zurückholen, RTS 


Zeile nach oben schieben 

E9ce 

29 

03 


AND 

#S03 

Sildschirnzeiger 

E9CA 

00 88 02 

ORA 

S0288 

für neue Zeile 

E9CD 

es 

AO 


STA SAD 

berechnen 





Das ROM-Listing 


471 


E9CF 

20 EO E9 

JSR SE9E0 

2eiger für neu« Zefle 

berechnen 

E9D2 

AO 27 

LDY M27 

39 Zeichen 

E%6 

Bl AC 

LOA (BAC).Y 

alle 

E9D6 

91 Dl 

STA (tDD.Y 

Zeichen 

E908 

B1 AE 

LOA (SAE).Y 

und 

E90A 

91 F3 

STA (1F3),Y 

Farbe übertragen 

E90C 

88 

DET 

nächstes Zeichen 

£900 

10 F5 

BPL BE9D6 

schon alle 7 

E9DF 

60 

RTS 

Rückspruig 

**•••* 



Bi Idschirnzei le für 

ScroUzeil« berechnen 

E9E0 

20 26 EA 

JSR SEA26 

Zeiger auf Farb-RAM berechnen 

E9E3 

AS AC 

LOA SAG 

Zeiger 

E9E5 

85 AE 

STA SAE 

für 2eil« 

1967 

AS AD 

LOA SAD 

speichern 

E9E9 

29 05 

AND #S03 

Startadresse 

E9CB 

09 D8 

DRA ^8 

des Video-RAM 

E9ED 

85 Af 

STA SAF 

berechnen 

E9EF 

60 

RTS 

Rückspring 




Zeiger auf Video-RAM für 

Zeile X 

E9F0 

BD FO EC 

LOA SECfO.X 

LOU-Byte 

E9F3 

85 Dl 

STA SD1 

holen 

E9F5 

B5 D9 

LDA S09.X 

HlCH'Byt« 

E9f7 

29 03 

AND «SCQ 

des 

E9F9 

OO 88 02 

ORA S0Z88 

Video- 

E9FC 

85 02 

STA SD2 

RAH 

E9FE 

60 

RTS 

Rückspring 


■•••••••••< 


Bildschirnzeile X löschen 

Einsprurg von SE560, SE913. E9A6 

E9FF 

AO 27 

LDY «S27 

60-1 Spalten 

EA01 

2D FD E9 

JSR SE9F0 

2eilenpeinter (01/02) setzen 

EA06 

20 26 EA 

JSSt SEA26 

Pointer <F37F6) für Farb*RAM 

berechnen 
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EA07 

A9 20 

LDA 

#$20 

EA09 

91 01 

STA 

($01),Y 

EAOB 

20 DA E4 

JSR 

SE4DA 

EAOE 

EA 

HOP 


EAOF 

88 

OEY 


EA10 

10 FS 

BPL 

SEA07 

EA12 

80 

RTS 



«**«******•»»*•»«**«****«*** 


Leerzeichen 

Ins Video-RAM schreiben 
Hintergrundfarbe setzen 

schon AO Zeichen gelöscht? 
wenn nicht, fortfahren 
Rücksprung zu* Nauptprogram 


Einsprung von SESE4, SE6AZ 


EA13 

A8 

TAY 

Akku retten 

EA14 

A9 02 

LOA IVSOZ 


EA18 

8S CD 

STA SCO 

Blinkzahler bei 




Repeatfunktlon setzen 

EA18 

20 24 EA 

JSR $EA24 

Pointer für Farb-RAH 




berecimen 

EA1B 

98 

TAX 

Akku wieder holen 


Zeichen und Farbe auf 
BI Idschirn setzen 


Einsprung von SEASE 


EA1C 

A4 D3 

LOY $03 

EA1E 

91 01 

STA (S01>.Y 

EA20 

8A 

TXA 

EA21 

91 F3 

STA {SF3),Y 

EA23 

60 

RTS 




Spaltenpösition 
Zeichen in Akku auf 
Bi Idsctiirm 

Farb-Code von x In Akku 
in Farb-RAH schreiben 
Rücksprung zum Hauptprogrann 

Zeiger auf Farb-RAH berechnen 


Elnspruf« von SE58E. SE7SF, SE807, SE9E0, SEA04, SEA18, 
SEA4F 

EA24 A5 D1 LDA SOI Ib1/$D2 « Zeiger auf 

Video-RAH-Position 
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EAZ6 

85 F3 

STA SF3 

EA2S 

AS 02 

LOA SD2 

EA2A 

29 03 

AND «S03 

EA2C 

09 08 

ORA «SD8 

EAZE 

8S F4 

STA SF4 

EA3D 

60 

RTS 


Einsprung 

von SFFS8 


EA31 

20 

EA FF 

JSR 

SPPEA 

EA34 

AS 

CC 

LOA 

scc 

EA36 

DO 

29 

BNE 

SEA61 

EA38 

C6 

CD 

OEC 

SCO 

EA3A 

00 

25 

BNE 

SEA61 

EA3C 

A9 

14 

LDA 

«S14 

EA3E 

85 

CD 

STA 

SCO 

EA40 

A4 

D3 

LDT 

SD3 

EA42 

46 

CF 

ISR 

SCF 

EA44 

AE 

87 02 

LDX 

S0287 

EA47 

Bl 

Dl 

LDA 

($01),Y 

EA49 

BO 

11 

BCS 

SEASC 

EA4B 

E6 

CF 

INC 

SCF 

EA4D 

85 

CE 

STA 

SCE 

EA4F 

20 

24 EA 

JSR 

SEA24 

EAS2 

B1 

F3 

LDA 

(SF3),Y 

EAS4 

so 

87 02 

STA 

$0287 

EAS7 

AE 

86 02 

LDX 

$0286 

EA5A 

AS 

CE 

LDA 

SCE 

EA5C 

49 

80 

EOR 

#$80 

EASE 

20 

IC EA 

JSR 

SEAIC 

EA61 

AS 

01 

LOA 

$01 

EA63 

29 

10 

AND 

#$10 

EA6S 

PO 

OA 

BEO 

$EA71 

EA67 

AO 

00 

LDY 

#$00 

EA69 

84 

CO 

STY 

SCO 


LOU-Byte auf Zeichenposition 
« LOW-Byte auf Farbposition 
HIGH-Byte der Zeichenpositfon 
■it HIGH-Byte der Farb-RAH- 
Position > SDS verknüpfen und 
in SF4 ■ speichern 
Rücksprung zum Hauptprogrann 

Interrupt-Routine 


Stop'Taste, Zeit erhöhen 
Blink-Flag für Cursor 
nicht blinkend, dann weiter 
Blinkzähler erniedrigen 
nicht Null, dann weiter 
Blinkzähler wieder auf 20 
setzen 

und speichern 
Cursorspalte 

Blinkschalter eins dann C«! 
Farbe unter Cursor 
Zeichen-Kode holen 
Blinkschalter war ein, dann 
weiter 

Blinkschalter ein 
Zeichen unter Cursor merken 
Zeiger in Farb-RAH berechnen 
Farb-Code holen 
und merken 

Farb-Code unter Cursor 
Zeichen unter Cursor holen 
RVS-Bit undrehen 
Zeichen und Farbe setzen 
Prozessorport laden 
prüft Rekorder-Taste 
gedrückt, dann verzweige 
Wert für keine Taste gedrückt 
Rekorder-Flag setzen 
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EA68 

AS 

01 

LDA $01 

EA60 

09 

20 

ORA «$20 

EA6F 

DO 

08 

BNE SEA79 

EA71 

AS 

CO 

LDA SCO 

EA73 

DO 

06 

BNE $EA7B 

EA7S 

AS 

01 

LOA $01 

EA77 

29 

1F 

AND #$1F 

EA79 

8S 

01 

STA $01 

EA7B 

20 

87 EA 

JSR SEA87 

EA7E 

AD 

00 DC 

LDA IDCOD 

EA81 

68 


PLA 

EAB? 

A8 


TAT 

EA83 

68 


PLA 

EAB4 

AA 


TAX 

EA85 

68 


PLA 

EAS6 

40 


RTI 


Einspruog von SEA7B. SFF9F 


EA87 

A9 

00 

LDA 

#$00 

EA89 

6D 

80 02 

STA 

$0280 

EA8C 

AO 

40 

LDY 

#$40 

EA8E 

84 

CB 

STY 

SCB 

EA90 

80 

00 OC 

STA 

socoo 

EA93 

AE 

01 OC 

LDX 

SOC01 

EA96 

EO 

FF 

CPX 

#$FF 

EA98 

FO 

61 

BEO 

SEAFB 

EA9A 

A8 


TAY 


EA9S 

A9 

81 

LOA 

«S81 

EA9D 

6S 

FS 

STA 

SFS 

EA9F 

A9 

EB 

LOA 

#SEB 

EAA1 

8S 

F6 

STA 

$F6 

EAA3 

A9 

FE 

LDA 

#$FE 

EAAS 

80 

00 DC 

STA 

SDCOO 

EAA8 

A2 

08 

LDX 

«$08 

EAAA 

48 


PHA 



Prozessorport laden 
Rekoder-Motor aussehalten 
unbedingter Sprung 
lede Rekorder-Flag 
verzwefge, wenn Motor läuft 

Prozessorport laden 
Rekorder-Notor einschalten 
und Mieder speichern 
Tastaturabfrage 
IRQ-Flag löschen 
Accu aus den Stapel holen 
wd in Y-Register schieben 
Accu aus den Stapel holen 
und in X-Regfster schieben 
und Rückkehr von Interrupt 

Tastaturabfrage 


Shift/CTRL Flag röcksetzen 
$40 * keine Taste gedrückt 
Kode für gedrückte Taste 
alle Bits des Port A löschen 
Port B laden 
keine Taste gedrückt ? 
dann beenden 
T-Register löschen 

$F5fSF6 « Zeiger auf 
Tastaturtabelle setzen 

erstes Bit für erste 
Matrixzeile löschen 
und in Port A schreiben 
6 Matrfxzeilen 

Bitstellung für Matrix retten 
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EAAB 

AD 

01 DC 

LOA 

SOC01 

EAAE 

CO 

01 DC 

CMP 

tocoi 

EAB1 

DO 

F8 

BNE 

SEAAB 

EAB3 

4A 


LSR 


EAB4 

BO 

16 

BCS 

SEACC 

EAB6 

48 


PHA 


EAB7 

Bl 

F5 

LOA 

($F5),V 

EAB9 

C9 

05 

CMP 

#S05 

EABB 

BO 

oc 

BCS 

$EAC9 

EABO 

C9 

03 

CMP 

#S03 

EABF 

FO 

08 

BEO 

SCAC9 

EAC1 

oo 

80 02 

ORA 

$0280 

EAC4 

80 

80 02 

STA 

$0280 

EAC7 

10 

02 

BPL 

$EAC8 

EAC9 

84 

CB 

STV 

$CB 

EACB 

68 


PLA 


EACC 

CB 


INY 


EACO 

CO 

41 

CPT 

#$41 

EACF 

BO 

OB 

BCS 

$EADC 

EA01 

CA 


DEX 


EADZ 

00 

DF 

BNE 

$EAB3 

EAD4 

38 


SEC 


EADS 

68 


PLA 


EAD6 

2A 


ROL 

A 

EAD7 

80 

00 OC 

STA 

$ocoo 

EADA 

DO 

CC 

BNE 

$EAAB 

EADC 

68 


PLA 


EADD 

6C 

8F 02 

JMP 

($028F) 


Einsprung von $EB76 


EAEO 

A4 CB 

LOT 

$CB 

EAE2 

Bl F5 

LOA 

($F5),T 

EAE4 

AA 

TAX 



Port B laden und 
Tastatur entprellen 
noch nicht entprellt ? 

Bits nacheinander ins Carry 
schieben 

■1' gleich nicht gedrückt 
Bitstelung retten 
ASCII'Kode aus Tabelle holen 
gröBer als dann keine 
Control'Taste 

verzweige bei gröBer/gleich 5 
Kode für STOP-Taste ? 
falls je, dann verzweige 
entsprechendes Flag für SHIFT 
COMMOD.-Taste oder CTRL 
setzen 

unbedingter Sprung 
Nuainer der Taste merken 
Akku holen 

Zihler für Taste erhöhen 
schon alle Tasten? 
wenn Ja, verzweige 
nächste Matrix-Spalte 
unbedingter Sprung 
Carry setzen 

gespeicherte Bitfolge holen 

verschieben und 

in Port A schreiben 

unbedingter Sprung 

Stapel noraialisieren 

JHP SE848 setzt Zeiger auf 

Tabelle 


Numer der Taste 
ASCII-Wert aus Tabelle 
holen 

Tastenwert retten 
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EAE5 

C4 

CS 

CPT 

$C5 

EAE7 

FO 

07 

BEQ 

SEAFO 

EAE9 

AO 

10 

LOY 

MIO 

EAEB 

8C 

02 

STV 

S028C 

EAEE 

00 

36 

BNE 

SEB26 

EAFO 

29 

7F 

ANO 

1IIS7F 

EAF2 

2C 

SA 02 

BIT 

S02aA 

EAF5 

30 

16 

BMI 

sebod 

EAF7 

70 

49 

BVS 

SEB42 

EAF9 

C9 

7F 

CHP 

M7F 

EAFB 

FO 

29 

BEQ 

SEB26 

EAFD 

C9 

14 

CHP 

M14 

EAFF 

FO 

OC 

BEO 

SEBOD 

EB01 

C9 

20 

CHP 

M20 

EB03 

FO 

08 

BEO 

SEBOD 

EB05 

C9 

10 

CHP 

MIO 

EB07 

FO 

04 

BEO 

SEBOD 

EB09 

C9 

11 

CHP 

«Sil 

nOB 

00 

35 

BKE 

UJ 

E60D 

AC 

8C 02 

LOY 

S028C 

EB10 

FO 

05 

BEQ 

SEB17 

EB12 

CE 

BC 02 

OEC 

S028C 

EB15 

00 

2B 

BNE 

SEB42 

EB17 

CE 

8B 02 

OEC 

S026B 

EB1A 

00 

26 

BNE 

SEB42 

EBIC 

AO 

04 

LOY 

M04 

EB1E 

BC 

88 02 

STY 

S028B 

EB21 

A6 

C6 

LOY 

SC6 

EB23 

88 


DEY 


EB24 

10 

IC 

BPL 

SEB42 

EB26 

A4 

CB 

LOY 

SCB 

EB2e 

84 

C5 

STY 

SC5 

EB2A 

AC 

80 02 

LOY 

S0280 


■it letzter Teste 
vergleichen 

verzweige wenn gleiche Teste 
Wert für Repeetverzögerung 
in Repeet'Verzögerungszühler 
utedingter Sprung 
Bit 7 löschen 
Repeet-Funktlon für eile 
Testen ? 

Bit 7 gesetzt, denn eile 

Testen wiederholen 

Bit 6 gesetzt, denn 

keine Wiederholung 

keine Teste? 

je, denn verzweige 

■DEL', 'INST' Kode 

wenn je, verzweige 

Leerzeichen 

wenn je, verzweige 

Cursor right, left 

wenn je, verzweige 

Cursor down, ip 

verzweige wenn keine Teste 

zu wiederholen Ist 

Repeetverzögerungszähler 

wenn ebgeleufen, so verzweige 

herunterzehlen 

0? nein denn verzweige 

RepeetgeschwindigkeitszBhler 

0? nein denn verzweige 

Repeetgeschwindigkeits- 

zehler neu setzen 

Anzehl der Zeichen Im 

Testeturpuffer 

herunterzehlen 

sehr eis ein Zeichen im 

Puffer, denn Ignorieren 

TestennunnennatriKCode 

umspelchern 

sowie die Flags für SHIFT 
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EB20 

SC 

8E 02 

STY 

S028E 

EB30 

EO 

FF 

CPX 

WFF 

EB32 

FO 

OE 

BEQ 

SEB42 

EB34 

SA 


TXA 


EB35 

A6 

C6 

LDX 

SC6 

EB37 

EC 

89 02 

CPX 

S0289 

EB3A 

BO 

06 

BCS 

SEB42 

EB3C 

90 

77 02 

STA 

S0277.1 

EB3F 

ES 


IHX 


EB40 

86 

C6 

STX 

SC6 

EBA2 

A9 

7F 

LOA 

#$7F 

EB44 

80 

00 DC 

STA 

SDCOO 

EB47 

60 


RTS 



Efnsprung von SEADD 


EB48 

AD 

80 02 

LDA 

S026D 

EB4B 

C9 

03 

CHP 

«S03 

EB40 

DO 

15 

BNE 

SEB64 

EB4F 

CD 

8E 02 

CHP 

S028E 

EB52 

FO 

EE 

BEO 

SEB42 

EBS4 

AD 

91 02 

LDA 

S0291 

EB57 

30 

ID 

BMI 

SEB76 

EB59 

AD 

18 DO 

LDA 

SD018 

EB5C 

49 02 

EOR 

#S02 

EBSE 

so 

18 DO 

STA 

SD016 

EB61 

4C 76 EB 

JHP 

SEB76 

EB64 

OA 


ASL 

A 

EB65 

C9 06 

CHP 

#t08 


COMHOO.-Taste und CTRL 
Tastatür-Kod« ungültig 7 
Ja. dann ignorieren 
gerettete Taste wieder holen 
Anzahl der Zeichen in 
Tastaturpuffer 
mit Maximalzahl vergleichen 
Puffer voll, dam Zeichen 
ignorieren 

Zeichen in Tastaturpuffer 
schreiben 

Zeichenanzahl erhöhen und 
abspeichern 

Tastatur-Matrix Abfrage 
auf Nornalwert 
Rückspriirig 

Prüft auf Shift, CTRL, 
Coanodore 


Flag für Shift/CTRL 
SNtPT und COHMD.-Taste 
gedrückt? 

nein dann zu« Dekodieren 
waren beide Tasten vorher 
schon vorher gedrückt 
ja, dann zin Ende 
Shift-Conaodore erlaubt 7 
nein, zurück zur 
Dekodierung 

Zeichensatzzeiger laden 
UiRschattung Klein 
-GroRschreibung und 
wieder speichern 
fertig 

Uert mit 2 multiplizieren, 
da Jede Adresse 2 Bytes hat 
vergleiche mit CTRL 
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EB67 

90 

02 

BCC 

SEB6B 

nein denn verzweige 

EB69 

A9 

06 

LOA 

#S06 

TabeUenpointer für CTRL 

EB6B 

AA 


TAX 


in X Register übertragen 

EB6C 

BO 

79 EB 

LOA 

SEB79,X LOU-Byte der Tabellensdresse 






laden 

EB6F 

8S 

FS 

STA 

SF5 

und in die Zeigeradresse 

LOU schreiben 

EB71 

BO 

7A EB 

LDA 

SE67A, 

,X HIGH-Byte der Tabellenadresse 






laden 

EB74 

8S 

F6 

STA 

SF6 

und in die Zeigeradresse 

HIGH schreiben 

Einsprung 

von SEB61 



EB76 

4C 

ED EA 

JMP 

SEAEO 

zurück zur Dekodierung 






'** Zeiger auf Tastatur* 

Dekodiertabellen 

EB79 

81 

EB C2 

EB 03 

EC 78 EC 






’** Tastatur-Oekodiertabelle 1 

ungeshifted 

EB81 

U 

OD 10 

88 85 

86 87 

11 

EB89 

33 

57 41 

34 SA 

53 45 

01 

EB91 

3S 

52 44 

36 43 

46 54 

58 

EB99 

37 

59 47 38 42 

48 55 

56 

EBA1 

39 49 4A 30 40 

4B 4F 

4E 

EBA9 

2B 

SO 4C 

20 2E 

3A 40 

2C 

EBB1 

SC 

2A 3B 

13 01 

30 5E 

2F 

EBB9 

31 

5F 04 

32 20 

02 51 

03 

EBC1 

FF 

»***« 




>• Tastatur*Dekodierung, 

Tabelle 2 geshifted 

EBC2 

94 

8D 90 

8C 89 8A 86 

91 

EBC9 

23 

07 CI 

24 DA 03 C5 

01 

EB02 

2S 

02 C4 

26 C3 

C6 04 

08 

EBDA 

27 09 C7 

28 C2 

ce 05 

06 

EBE2 

29 

C9 CA 

30 CO 

CB CF 

CE 

EBEA 

DB DO CC 

DO 3E 

SB BA 3C 
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EBra 

A9 CO SD 93 01 

3D DE 

3F 

EBFA 

21 

SF 04 22 AO 02 D1 

83 

EC02 

FF 






»•«•1 




'* Tastatur-Dekodierung, 






Tabelle 3, mit 'Cs>-T8ste 

EC03 

9A 

80 90 

SC 69 8A 6B 

91 

ECOB 

96 

B3 BO 97 AD AE Bl 

01 

EC13 

95 B2 AC 99 BC 

BB A3 

BO 

EC1B 

9A 

B7 AS 98 BF 

B4 B8 BE 

EC23 

29 A2 B5 

30 A7 A1 B9 AA 

EC2B 

A6 AF B6 OC 3E 

SB A4 3C 

EC33 

A8 DF SD 

93 01 

30 OE 

3F 

EC3B 

61 

SF 04 9S AO 02 AB 

83 

EK3 

FF 






l***« 




'* prüft auf Steuerzeichen 

Einsprung 

von SE701 



EC44 

C9 

OE 

CMP 

#SOE 

chrS(14> GroBschrift 

EC&6 

DO 

07 

BNE 

SEC4F 

verzweige wenn nein 

EC45 

AD 

18 DO 

LOA 

SD016 

Character‘Generator 

ECAB 

09 

02 

OBA 

«S02 

auf GroOschrift-Modus 

EC4D 

DO 

09 

BNE 

SECS8 

unbedingter Sprung 

Einsprung 

von $E879 



ECAF 

C9 

6E 

CMP 

#S8E 

chrS(142) Kleinschrift 

EC51 

DO 

OB 

BNE 

SEC5E 

verzweige wenn nein 

EC53 

AD 

18 DO 

LDA 

SD018 

Character-Generator 

ECS6 

29 

FD 

AND 

ASFD 

Kleinschrift-Modus 

EC58 

80 

18 00 

STA 

S0016 

setzen 

EC5B 

4C 

A8 E6 

JHP 

SE6A6 

Ausgabe abschlieBen 

EC5E 

C9 

08 

CMP 

no6 

chrS(8) Code zur Blockierung 






SHIFT und COHMOO.-Taste 

EC60 

DO 

07 

BNE 

SEC69 

verzweige wenn nein 

EC62 

A9 

80 

LDA 

«980 

oberstes Bit des 

ECM 

00 

91 02 

ORA 

S0291 

Shift-Coimiodore Flags setzen 

EC67 

30 

09 

BMI 

SEC72 

unbedingter Sprung 






64 Intern 


4tO 


EC69 

C9 09 CNP #809 

chr$(9} Code zur Freigabe von 

SHtFT und CONMD.'Taste 

EC6B 

DO EE BHE $EC5B 

verzweige wenn nein 

EC60 

A9 7F LOA «S7F 

oNrstes Bit des 

EC6F 

2D 91 02 AND $0291 

Shift'Coamodore Flags Löschen 

EC72 

BD 91 02 STA $0291 

Wert speichern 

EC75 

4C A6 E6 JHP $E6A8 

Ausgabe abschUeBen 


Tastaturdekodiermg, 



Tabelle 4, mit CTRL-Taste 

EC78 

FF FF FF FF FF FF FF 

FF 

EC80 

IC 17 01 9F 1A 13 05 

FF 

ECB8 

9C 12 04 IE 03 06 14 

18 

EC90 

1F 19 07 9E 02 18 15 

16 

EC98 

12 09 OA 92 00 OB OF 

OE 

ECAO 

FF 10 OC FF FF 1B 00 

FF 

ECA6 

IC FF 10 FF FF 1F IE 

FF 

ECBO 

90 06 FF 05 FF FF 11 

FF 

ECB8 

FF 


Konstanten Für 



Videocontreller 

ECB9 

00 00 00 00 00 00 00 

00 

ECC1 

00 00 00 00 00 00 00 

00 

ECC9 

00 9B 37 00 00 00 08 00 

EC01 

14 OF 00 00 00 00 00 00 

EC09 

DE 06 01 02 03 04 00 

01 

ECE1 

02 03 04 05 06 07 



> Text nach onicken von SRIFT 



RUN/Srop 

ECE7 

4C 4F 41 44 00 52 55 

4E ’load (er) run (er)' 

ECEA 

00 

• Tabelle der L$B der 

Bi Idtchinnzei len-Anfänge 

ECFO 

00 28 50 78 AO C6 FO 

18 


ECFfi 40 68 90 B8 EO 06 30 58 
EOOO 80 AS DO F8 20 48 70 98 
EDC>8 COz 
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lEC'BtA Routinen 

•••*••••••••••**•••••••••••• senken 

Einaprung von SF238, F4C0, FFB4 

E009 09 40 ORA «S40 Bit fOr Talk setzen 

EDOB 2C .BYTE t2C Skip nach SEDOE 

■••••••••••«••*••••••••••••• LISTEN senden 

Efnsprung von SF27A, SF3E3, SF600, SF648, SFFB1 


EOOC 09 20 ORA «$20 
EtOE 20 A4 FO JSR $F0A4 


Efnsprung von SEEOO 

E011 

48 

PHA 

E012 

24 94 

BIT S94 

E014 

10 OA 

BPL SED20 

ED16 

38 

SEC 

ED17 

66 A3 

ROR $A3 

ED19 

20 40 EO 

JSR SE040 

ED1C 

46 94 

LSR $94 

ED1E 

46 A3 

LSR SA3 

E020 

68 

PLA 

£021 

8S 95 

STA $95 

Cfi23 

78 

SEI 

ED24 

20 97 EE 

JSR SEE97 

E027 

C9 3F 

CHP «$3F 

ED29 

00 03 

BNE SCDZE 

ED2B 

20 85 EE 

JSR SEE85 

E02E 

AD 00 00 

LOA SODOO 

E031 

09 08 

ORA «SOS 

ED33 

ro 00 00 

STA SODOO 


Bit für Listen setzen 

Ende der RS 232 Übertragung 

abuarten 


Akku merken 

Noch Zeichen im Puffer T 

verzweige wenn nein 

Carry setzen 

Bit für £01 setz«l 

Byte auf lEC-Bus ausgeben 

Flag für Zeichen im Puffer 

löschen 

Flag für EOt löschen 
Akku wiederholen und 
im Puffer speichern 
interri^ftag setzen 
DATA auf LOU setzen 
Akku kann nicht S3F sein 
unbedingter Sprung 
CLOCK auf LOW setzen 
Port A laden 
ATM HIGH setzen und 
ausgeben 
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Einsprung von SEDBB, SEDC9 


ED36 

78 

SEI 

Interruptflag setzen 

ED37 

20 8£ EE 

JSR SEE8E 

CLOCK auf HIGH setzen 

E03A 

20 97 EE 

JSR SEE97 

DATA auf LOW setzen 

ED3D 

20 B3 EE 

JSR SEEB3 

eine Nillisekunde warten 


r**********i 


ein Byte auf lEC-Bus 
ausgeben 

Einsprung von $ED19, SEDE7 


ED60 

78 

SEI 

Interruptflag setzen 

ED41 

20 97 EE 

JSR SEE97 

DATA auf LOU setzen 

ED44 

20 A9 EE 

JSR SEEA9 

Hardware-Rückmelciung aus 

DATA holen 

ED47 

BO 64 

BCS SEDAD 

DATA LOU, dann 'DEVICE NOT 

PRESENT' 

E049 

20 85 EE 

JSR SEE85 

CLOCK auf LOU setzen 

E04C 

24 A3 

BIT SA3 

Bit für EOI gesetzt? 

ED4E 

10 OA 

BPL SEOSA 

nein, dam verzweige 

ED50 

20 A9 EE 

JSR $EEA9 

DATA ins Carry 

ED53 

90 FB 

BCC SEDSO 

warten bis Listener bereit 

ED55 

20 A9 EE 

JSR $EEA9 

DATA ins Carry 

E058 

BO FB 

BCS SEDS5 

warten auf DATA HIGH 

ED5A 

20 A9 EE 

JSR SEEA9 

DATA ins Carry 

EDSD 

90 FB 

BCC SED5A 

warten bis bereit für Daten 

ED5F 

20 8E EE 

JSR $EE8E 

CLOCK auf HIGH setzen 

ED62 

A9 08 

IDA iVSOS 

Bitzühler für serielle 

ED64 

85 A5 

STA SA5 

Ausgabe setzen ($08 Bits) 

E046 

AD 00 DD 

IDA SDDOO 

Port A lesen 

ED69 

CD 00 DD 

CHP SDDOO 

und entprellen 

E06C 

DO F8 

BNE SED66 

verzweige wenn Änderung 

E06E 

OA 

ASL A 

Daterbit ins Carry 

E06F 

90 3F 

BCC SEDBO 

DATA HIGH, dann 'TIME OUT' 

ED71 

66 95 

ROR S95 

nächstes Bit zur Ausgabe 

bereitstellen 

E073 

BO 05 

BCS SED7A 

verzweige wenn Bit gesetzt 

E075 

20 AO EE 

JSR SEEAO 

DATA auf HIGH setzen 

ED78 

DO 03 

BNE SE07D 

unbedingter Sprung 





Das ROM-Listing 


483 


EOZA 

20 

97 

EE 

JSR SEE97 

ED TD 

20 

85 

EE 

JSR SEE8S 

E080 

EA 



NOP 

EDS1 

EA 



NOP 

EDS2 

EA 



NOP 

EDS3 

EA 



NOP 

ED84 

AD 

00 

DD 

LDA SDDOO 

EDS7 

29 

DF 


AHD «SOF 

£089 

09 

10 


ORA i$fO 

eosb 

80 

00 

00 

STA SODOO 

EOSE 

C6 

AS 


DEC SAS 

E090 

00 

D4 


BNE $E066 

E092 

A9 

04 


LDA «S04 

E094 

8D 

07 

DC 

STA SOC07 

ED97 

A9 

19 


LDA «S19 

ED99 

8D 

OF 

DC 

STA SOCOF 

ED9C 

AD 

OD 

OC 

LOA $DC0D 

E09f 

AD 

OD 

oc 

LOA SDCQD 

EOA2 

29 

02 


AHO lV$02 

E0A4 

00 

OA 


BNE SEDBO 

E0A8 

20 

A9 

EE 

JSR SEEA9 

E0A9 

BO 

F4 


BCS $E09F 

EOAB 

58 



CLI 

EDAC 

60 



RTS 

ED AD 

A9 80 


LDA M60 

EDAF 

2C 



.BYTE $2C 

EDBO 

A9 93 


LDA #$03 

Einsprung von SEE44 

EDB2 

20 

IC 

FE 

JSR $FE1C 

EDB5 

58 



CLI 

E0B6 

18 



CLC 

EDe7 

90 4A 


BCC SEE03 


DATA auf LOW setzen 
CLOCK auf LOU setzen 
Listener 

S Mfcrosekunden Zeit zur 

Verarbeitung der 

Daten geben 

Port A laden 

DATA auf LOU 

und CLOCK auf HI6H 

setzen 

nächstes Bit 

mache weiter wenn noch nicht 

alle Bits gesendet 

$04 als Tineruert setzen 

Timer B HIGH. ca. eine ms 

und Timer B 

starten 

Interrupt control register 
laden 

Timer B abgelaufen ? 

Ja. dam 'TIME OUT' 

DATA ins Carry 
warten auf DATA HIGH 
Interruptflag löschen 
Rücksprung 

■DEVICE NOT PRESENT' 

Skip nach SE0B2 
•TIME OUT* 


Status setzen 
Interruptflag löschen 
Carry setzen 
unbedingter Sprung 
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••••••••••••••••••••••••••• Sekundüradresse nach LISTEN 

senden 


Einsprurig 

von SF266. SF3EA, 

E0B9 

SS 

95 

STA S95 

EOBB 

20 

36 EO 

JSR SE036 

Einsprung 

von SEDOO. SEE03. 

EBBE 

AO 

00 00 

LOA SOOOO 

EDC1 

29 

F7 

AND «SF7 

E0C3 

80 

00 00 

STA tOOOO 

EDC6 

60 


RTS 


SF612. SF6S1, SFF93 

Sekmdäradresse speichern 
nit ATM HIGH ausgeben 

SF281 

Port A laden 
ATH riicksetzen, LOU 
und ausgeben 
Rücksprung 


Sekundaradresse nach TALK 
ausgeben 


Einsprung von SF24S, SF6D2, SFF96 


EOC7 

oo 

95 

STA 

S95 

E0C9 

20 

36 EO 

JSR 

SED36 

Einsprung 

von SF23F 


EDCC 

78 


SEI 


EDCO 

20 

AO EE 

JSR 

SEEAO 

EOOO 

20 

BE EO 

JSR 

SEOBE 

E0D3 

20 

UJ 

UJ 

CO 

JSR 

SEESS 

EOD6 

20 

A9 EE 

JSR 

SEEA9 

E0D9 

30 

FB 

BNI 

SED06 

EDDB 

SS 


CLI 


EDDC 

60 


RTS 



Sekundäradresse speichern 
mit ATN ausgeben 


Interruptflag setzen 
DATA auf HIGH setzen 
ATN rücksetzen, LOW 
CLOCK auf LOW setzen 
ClOCK-IN holen 
auf CLOCK HIGH warten 
Interruptflag löschen 
Rücksprung 

lECOUT ein Byte auf lEC-Bus 
ausgeben 


Einsprung von SF10B, SF3FE. SF61C. SF621. SF62B, SFFA8 


EOOO 24 94 


BIT S94 


noch ein Byte auszugeben ? 
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EOOF 

30 OS 

BNI SEDE6 

verzweige wenn je 

Et»E1 

38 

SEC 

Carry setzen 

EDE2 

66 94 

ROR S94 

Flag für gepuffertes Byte 

setzen 

E6E4 

DO 05 

BHE SEDEB 

unbedingter Sprung 

a»E6 

48 

PHA 

Byte Sterken 

E0E7 

20 40 ED 

JSR SED40 

gepuffertes Byte auf Bus 
ausgeben 

EDEA 

68 

PLA 

Byte zurückholen und 

EDEB 

85 95 

STA S9S 

ln Ausgaberegister holen 

EPEO 

18 

CLC 

Cwry Itechen 

EPEE 

60 

RTS 

ROcksprung 




UNTAIK senden 

Einspn«« von SF540, SF528, 

SF528, SFFAB 

EDEF 

78 

SEI 

Interruptflas setzen 

EDFO 

20 8E EE 

JSR SEE6E 

CLOCK auf HIGH setzen 

EDF3 

AO 00 DD 

LDA SDDOO 

Poar A laden 

EDF6 

09 08 

ORA #S08 

ATN HIGH setzen und 

E0F8 

80 00 00 

STA SODOO 

ausgeben 

EDFB 

A9 5F 

LDA «SSF 

Kennzeichnung für UNTALK 

EOFD 

2C 

.BYTE S2C 

Skip nach SEEOO 




UNLtSTEN senden 

Einsprurg von SF339, SF63F, 

SF654, SFFAE 

EDFE 

A9 3F 

LDA 0S3F 

Kennzeichnung für UNLtSTEN 

EEDO 

20 11 ED 

JSR SEDll 

ausgeben 

EE93 

20 BE ED 

JSR SED8E 

ATN rüeksetzen, LOU 

Einsprung von SEE7P 


EE06 

8A 

TXA 

X'Register merken 

Ee07 

A2 OA 

LOX ««OA 

Vartescftieife von 

EE09 

CA 

DEX 

ca. 40 Hikrosekunden 

EEOA 

00 FD 

BNE SEE09 

abwarten 

EEOC 

AA 

TAX 

X-Register wiederholen 
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EEOD 20 es EE JSR SEES5 CLOCK auf LOW setzen 
EE10 6C 97 EE JHP SEE97 DATA auf LOW setzen 

••••••••••••••••••••••*•••• lECIN ein Zeichen vom 

lEC'Bus holen 


Einsprung von SF1B5, $F6D5, SFAEO, SFSOI, SFFA5 


EE13 

7B 



SEI 


EE16 

A9 

00 


LOA 

«SOO 

EE16 

65 

A5 


STA 

$A5 

EE16 

20 

85 

EE 

JSR 

$EE85 

EEIB 

20 

A9 

EE 

JSR 

$EEA9 

EElE 

10 

FB 


BPL 

$EE1B 

EE20 

A9 

01 


LDA 

«$01 

EE22 

80 

07 

oc 

STA 

$DC07 

EE2S 

A9 

19 


LDA 

«$19 

EE27 

80 

OF 

DC 

STA 

lOCOF 

EE2A 

20 

97 

EE 

JSR 

$EE97 

EE2D 

AD 

OD 

DC 

LDA 

SOCOO 

EE30 

AD 

OD 

DC 

LOA 

SOCOO 

EE33 

29 

02 


AHO 

«$02 

EE35 

DO 

07 


BNE 

$EE3E 

EE37 

20 

A9 

EE 

JSR 

$EEA9 

EE3A 

30 

F4 


BKI 

$EE30 

EE3C 

10 

18 


BPL 

$EE56 

EE3E 

A5 

A5 


LDA 

$A5 

EEAD 

FO 

05 


BEQ 

$EE47 

EE42 

A9 

02 


LDA 

*$02 

EE44 

4C 

B2 

ED 

JNP 

$EDB2 

EE47 

20 

AO 

EE 

JSR 

SEEAO 

EE4A 

20 

85 

EE 

JSR 

$EE85 

EE4D 

A9 

40 


LDA 

«$40 

EE4F 

20 

1C 

FE 

JSR 

SFEIC 

EE52 

E6 

A5 


INC 

$A5 

EES4 

DO 

CA 


BNE 

$EE20 

EE56 

A9 

08 


LOA 

*$08 

EE58 

85 

A5 


STA 

$A5 

EE3A 

AD 

00 

DO 

LOA 

$DDOO 

EESD 

CO 

00 

DD 

CHP 

SODOO 


Interruptflag setzen 
$00 lactcn 
und Zähler löschen 
CLOCK auf LOU setzen 
CLOCK*IN LOU ? 
nein, dam warten 
$01 

in Tiner B HIGH schreiben 

Tiner 

Starten 

DATA auf LOW setzen 
Interrupt Coinrol Register 
laden 

Timer B abgelaufen 7 
ja, 'TIME OUT' 

CLKK'IN HIGH ? 
nein, dam warten 
unbedingter Sprung 
lade Zähler 
verzweige wenn $00 
■TIME OUT' 

Status setzen 
DATA auf HIGH setzen 
CLOCK auf LOU setzen 
Bit 6 für 'END OR lOEHTIFT' 
Status setzen 
Zähler erhöhen 
unbedingter Sprung 
$06 als 

Bitzähler setzen 
Port A laden 
Änderung ? 
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EE60 

00 F8 

BNE 

SeeSA 

EE62 

OA 

ASL 

A 

EE63 

10 FS 

BPL 

SEESA 

EE65 

66 M 

ROB 

SAi 

EE67 

AD 00 00 

LDA 

SODOO 

EE6A 

CO 00 DD 

CMP 

SDDOO 

EE6D 

DO FS 

BNE 

SEE67 

EE6F 

OA 

ASL 

A 

EE70 

30 FS 

BHI 

SEE67 

EE72 

C6 A5 

DEC 

SAS 

EE74 

00 E4 

BNE 

SeeSA 

EE76 

20 AO EE 

JSR 

SEEAO 

EE79 

26 90 

BIT 

S90 

EE78 

SO 03 

BVC 

SEE80 

EE7D 

20 06 EE 

JSR 

SEE06 

EE80 

AS Ai 

LOA 

SAi 

EE82 

58 

CLI 


EE83 

18 

CLC 


EE84 

60 

RTS 



verzweige wann ja 
Datenbit ins Carry schieben 
erneut holen wenn CLOCK * 1 
Datenbit in schieben 
Port A laden 
Änderung ? 
verzweige wenn ja 
Datenbit ins Carry schieben 
erneut wenn CLOCK « 0 
Bitzähler veringerrn 
verzweige wenn noch nicht 
alle B Bits gesendet 
DATA auf MICH setzen 
Status 

verzweige wenn kein EOl' ? 
warten und Bits '0' senden 
Datenbyte in Akku holen 
Interruptflag löschen 
Carry loschen 
Rücksprung 

CLOCK auf LDU setzen 


Einspnzig von SED2B. S€069, SEDTO, SEfiDS. SEEOD, SEE18 
SEE4A 


EE8S 

AD 00 DD 

LDA SOOOD 

Port A laden 

EE88 

29 EF 

AND MEF 

Bit 6 löschen 

EESA 

80 00 00 

STA SDDOO 

und wieder speichern 

EE80 

60 

RTS 

Rückspi'ung 


CLOCK auf MICH setzen 


Einspruig von SED37, SED5F, SEDFO, SFF7D 


EE8E 

AD 00 OD 

LDA SODOO 

Port A laden 

EE91 

09 10 

ORA MIO 

Bit 6 setzeri 

EE93 

80 00 00 

STA SODOO 

und wieder speichern 

EE96 

60 

RTS 

Rücksprung 
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DATA auf LOM setzen 

EinsprLf>g von $ED24, SEDSA, 

SED41, SED7A, SEE10, SEE2A 

EE97 

AD 00 DD 

LDA SDDOO 

Port A laden 

EE9A 

29 DF 

AND MOF 

Bit 5 löschen 

EE9C 

80 00 00 

STA SOOOO 

und uieder speichern 

EE9F 

60 

RTS 

Rllcksprij^ 




DATA auf HIGH setzen 

Etnsprung von SED7S, SEDCD, 

$EE47, SCE76 

EEAD 

AD 00 DD 

LDA SDDOO 

Port A laden 

EEA3 

09 20 

OBA «S20 

Bit 5 setzen 

EEAS 

8D 00 DD 

STA SDDOO 

und uieder speichern 

EEA6 

60 

RTS 

Rücksprung 




Bit vofn lEC-Bus ins 

Carry*Flag holen 

Einsprung von tE066, SEDSD, 

SEE1B 

SED5S, SED5A, SEDA6, SE0D6 

EEA9 

AO 00 DD 

LDA SODOO 

Port A laden 

EEAC 

CD 00 DD 

CHP SODOO 

Änderung ? 

EEAF 

DO FS 

BNE SEEA9 

verzweige wenn ja 

EEB1 

OA 

ASL A 

Datenbit ins Carry schieben 

EEB2 

60 

RTS 

Rücksprung 

Einsprung von SED3D 

Verzögerung 1 Millisekunde 

EEB3 

SA 

TXA 

X-Register retten 

EEB6 

A2 B8 

LDX #S68 

X-Register mit SSS laden 

EEB6 

CA 

DEX 

herunterzählen 

EEB7 

DO FD 

BNE SEEB6 

verzueige wenn nicht fertig 

EEB9 

AA 

TAX 

X-Register wiederherstelten 

EEBA 

6D 

RTS 

Rüeksprijr>g 
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RS 232 Ausgabe 


Einsprung von SFE90 


EEBB 

A5 B4 

lOA 

$B4 

EEBD 

FO «7 

BEO 

SEF06 

EEBF 

30 3F 

BHI 

SEFOO 

EEC1 

44 Bö 

LSR 

$B6 

EEC3 

A2 00 

LDX 

«soo 

EEC5 

90 01 

BCC 

SEEC8 

EEC7 

CA 

DEX 


EECS 

SA 

TXA 


EEC9 

4S BO 

EOR 

SBD 

EECB 

85 S? 

STA 

$BD 

EECO 

C6 B4 

DEC 

SB4 

EECF 

FO 06 

BEO 

SEE07 

EED1 

SA 

TXA 


EED2 

29 04 

AND 

«S04 

EE04 

SS B5 

STA 

BBS 

EED6 

60 

RT8 


EED7 

A9 20 

UM 

«$20 

EE09 

2C 94 02 

BIT 

W294 

EEDC 

FO 14 

BEO 

SEEF2 

EEDE 

30 IC 

BMI 

SEEFC 

EEEO 

70 14 

BVS 

SEEF6 

EEE2 

AS BO 

LOA 

SBD 

EEE4 

00 01 

BNE 

SEEE7 

EEEö 

CA 

OEX 



Anzahl Bits zu senden 

verzMeiga wenn Byte schon 

konplett übertragen 

yerzueige falls Stopbit 

erforderlich 

nlichites Bit ins Carry 

schieben 

'0' falls Oatenbit > 0 
verzweige wenn Datenbit 
gelöscht 

nein, dann X-Register «SFF 
X'Register in Akku 
mit Register für Paritybit 
verknüpfen 
und abspeichem 
Bitzihler erniedrigen 
verzweige wenn alle Bits 
übertragen 

alten Akku wiederherstellen 

Bit 2 isolieren 

und ins Ausgaberegister 

bringen 

Rückspruig 

Bit S (Parity} 

RS 232 Befehlsregister 
abfragen 

verzweige wenn ohne Parity 
verzweige wenn feste Parität 
verzweige wenn ungerade 
Parität 

verzweige wenn Parity 
gleich eins 
verzweige wenn Ja 
Parity »FF 
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EEE7 

C6 B4 

DEC 

SB4 

EEE9 

AD 93 02 

LDA 

S0293 

EEEC 

10 E3 

BPI 

SEED1 

EEEE 

C6 B4 

DEC 

SB4 

EEFO 

00 DF 

BNE 

SEE01 


EEF2 

E6 B4 

INC 

SB4 

EEF4 

00 FO 

BNE 

SEEE6 


EEF6 

A5 

BO 

LDA 

MD 

EEF8 

FO 

ED 

BEQ 

SEEE7 

EEFA 

00 

EA 

BHE 

SEEE6 


EEFC 

70 E9 

BVS 

SEEE7 

EEFE 

50 E6 

BVC 

SEEE6 


EFOO 

E6 

B4 

INC 

SB4 

EF02 

A2 

FF 

LDX 

RISFF 

EF04 

00 

CB 

BNE 

SEED1 


Eisprung von $FF66 


EF06 

AD 94 02 

LDA 

$0294 

EF09 

4A 

LSR 

A 

EFOA 

90 07 

BCC 

SEF13 

EFOC 

2C 01 00 

BIT 

SD001 

EFOF 

10 10 

BPL 

$EF2E 

EF11 

so IE 

BVC 

$EF31 

EF13 

A9 00 

LDA 

«iOO 

EF15 

SS BO 

STA 

$6D 

EF17 

65 B5 

STA 

SB5 


Bitzähler auf SFF 
RS 232 Kontrollregister laden 
verzweige wenn zwei Stopbits 
Bitzähler auf SFE 
unbedingter Sprung zur 
Berechnung der Stopbits 

Bitzähler erhöhen, keine 
Parity 

unbedingter Sprung zur 
Berechnung der Stopbits 

Parity 

verzweige wenn gleich 0. 
dann NuU-Bit ausgeben 
unbedingter Sprung 1*Bit 
ausgeben 

Null'Bit ausgeben 

sonst 1-Bit ausgeben (feste 

Parität} 

Bitzähler erhöhen 
Wert für Stopbit 
unbedingter Sprung 


RS 232 Befehlsregister laden 
Bit 0 ins Carry 
verzweige wenn 3-Line 
Handshake, Abfrage übergehen 
Port B abfragen 
verzweige wenn DSR fehlt 
verzweige wenn CTS fehlt 
0 laden und 

Parity-Register löschen 
Register für zu sendendes 
Bit (Startbit} 
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EF19 

AE 90 02 

LOX S0298 

Anzahl der zu übertragenden 

Bits 

EF1C 

86 B4 


STX S84 

als Bitzähler merken 

EF1E 

AC 90 

02 

LOY S0290 

lade Zeiger für übertragenes 
Byte 

EF21 

CC 9E 

02 

CPY $029E 

alle Bytes übertragen ? 

EF24 

FO 13 


BEQ $EF39 

ja, dann absehlieBen 

EF26 

Bl F9 


LOA (SF9},Y Oatenbyte aus RS 232 Puffer 

holen 

EF28 

05 B6 


STA SS6 

zun Senden übergeben 

EF2A 

EE 90 

02 

INC S0290 

Pufferzeiger erhöhen 

EF2D 

60 


RTS 

Rücksprung 

EF2E 

A9 40 


LOA mo 

OSR (Oata Set Ready) fehlt 

EF30 

2C 


.BYTE S2C 

Skip nach $EF33 

EF31 

A9 10 


LOA MIO 

CTS (Clear To Send) fehlt 

EF33 

W 97 

02 

OftA $0297 

mit Status verknüpfen 

EF36 

00 97 

02 

STA $0297 

Und setzen 

EF39 

A9 01 


LOA «$01 

NNI für 

Einsprung von SEF8D. SF041. 

$F07A 

EF3B 

80 00 

00 

STA $0000 

Timer A löschen 

EF3E 

40 A1 

02 

EQR $02A1 

Flag für 

EF41 

09 80 


ORA «$80 

RS 232 undrehen 

EF43 

80 AI 

02 

STA $02A1 

und speichern 

EF4Ö 

80 00 

00 

STA $0000 

IRR setzen, alle übrigen 

zulassen NHls 

EF49 

60 


RTS 

Rücksprung 


•*****M******************* Anzahl der RS 232 üaterfcits 

berechnen 


Einsprung von SF41D 

EF4A A2 09 lOX «S09 Zähler für Uortlänge 

EF4C A9 20 LOA #S20 Haskenwert fir Bit 5 

EF4E 2C 93 02 BIT S0293 Testen vo* RS-232 

RontroUregister 

BEQ SEF54 verzweige wenn Bit S gelöscht 


EFS1 FO 01 
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EF53 

CA 

OEX 

EF54 

so 02 

BVC SEF5S 

EF56 

CA 

OEX 

EF57 

CA 

OEX 

EFS8 

60 

RTS 


Mt************** **••*«••••* 


Einsprung 

von SFF04 


EF59 

A6 

A9 

LDX 

SA9 

EF5B 

DO 

33 

BNE 

SEF90 

EF5D 

C6 

AS 

DEC 

SAS 

EFSF 

FO 

36 

BEQ 

SEF97 

EF6i 

30 

X 

BMI 

SEF70 

EF63 

AS 

A7 

LOA 

$A7 

EF65 

6S 

AB 

EOR 

SAB 

EF67 

SS 

AB 

STA 

SAB 

EF69 

46 

A7 

LSR 

SA7 

EF6B 

66 

AA 

ROR 

SAA 

EF60 

60 


RTS 


EF6E 

C6 

AS 

DEC 

SAS 

EF70 

AS 

A7 

LDA 

SA7 

EF72 

FO 

67 

BEQ 

SEFDB 

EF76 

AD 

93 02 

LDA 

S0293 

EF77 

OA 


ASL 

A 

EF78 

A9 

01 

LDA 

«S01 

EF7A 

65 

AS 

ADC 

SAS 

EF7C 

00 

EF 

BNE 

SEF6D 


Zähler für Wortlänge 
vennlndern 

verzweige wenn Bit 6 gelöscht 
Wortlänge un zwei 
vermindern 
Rücksprung 

empfangenes Bit verarbeiten 


Startbit 7 
verzweige wenn Ja 
Bitzähler erniedrigen 
verzweige wenn alle Bits 
enpfangen 

verzweige wenn noch Stopbits 

ZU erwarten 

enpfangenes Bit 

mit Register für Parity 

verknüpfen 

und abspeichern 

enpfangenes Bit ins Carry 

und in Eipfangsregister 

schieben 

Rücksprung 

Bitzähler erniedrigen 
Stopbit 

verzweige wenn gleich Null 
Kontrollregister laden 
Bit 7 (Anzahl Stopbits} ins 
Carry 

1 laden und mit der Anzahl 
von Bits und Stopbits 
addieren 

verzweige wenn noch nicht 
alle Stopbits empfangen 
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Einsprung von $EFD8 


EF7E 

A9 

90 

LOA 

«S90 

EFBO 

8D 

00 00 

STA 

SODW 

EF83 

OD 

A1 02 

ORA 

S02A1 

EF86 

80 

A1 02 

STA 

S02A1 

EF89 

85 

A9 

STA 

SA9 

EF8B 

A9 

02 

EDA 

«S82 

EFSD 

4C 

3B EF 

JHP 

SEF3B 

EF90 

A5 

A7 

LOA 

SA7 

EF92 

00 

EA 

BNE 

$EF7E 

EF94 

85 

A9 

STA 

SA9 

EF96 

60 


RTS 



EF97 

AC 

9B 02 

LOY 

S029B 

EF9A 

C8 


IHY 


EF9B 

cc 

9C 02 

CPY 

S029C 

EF9E 

FO 

2A 

BEO 

SEFCA 

EFAO 

8C 

9B 02 

STT 

S029B 

EFA3 

88 


DEY 


EFA4 

A5 

AA 

LOA 

SAA 

£fA6 

AE 

98 02 

LOX 

$0298 

EFA9 

EO 

09 

CPX 

#$09 

EFAB 

FO 

04 

BEQ 

SEFB1 

EFAO 

4A 


LSR 

A 

EFAE 

E8 


INX 


EFAF 

00 

F8 

BNE 

$EFA9 

EFB1 

91 

F7 

STA 

($F7).Y 

EFB3 

A9 

20 

LOA 

#$20 


Wert für Freigabe von NKI 

über die Flagleitung 

Wert NMI freigeben 

auch Im NMI Register 

für RS 232 NHIs vernerken 

und Flag für Stertbit setzen 

Bitwert für 

NMI für Timer B loschen 

Startbit laden 

verzweige wenn ungleich Null 

Flag für Startbit 

rüeksetzen 

Rücksprung 

Empfangei^es Byte 
weiterverer beiten 
Pufferzeiger laden 
und erhöhen 
mit Enpfangspoffer 
vergleichen 

verzweige wenn voll, dann 
Status setzen 
Pufferzeiger abspeichern 
und normalisieren 
enpfangenes Byte laden 
Anzahl Datenbits laden 
S Bits plus ein Stopbft? 
verzweige wenn ja, ok 
sonst Bits in richtige 
Position schieben 
Datenbitzähler in 1 erhüben 
unbedingter Sprung 
Byte in RS 232 Puffer 
schreiben 
Maskenwert für 
Parität&prüfung 
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EFB5 

2C 94 02 

BIT S0294 

EFB8 

FO 84 

BEQ SEFÖE 

EFBA 

30 Bl 

BMI SEF6D 

EFBC 

A5 A7 

LDA SA7 

EFBE 

45 AB 

EOR SAB 

EFCO 

FO 03 

BEQ SEFC5 

EfC2 

70 A9 

BVS SEF6D 

EFC4 

2C 

.BYTE S2C 

EFC5 

50 A6 

BVC SEF6D 

EFC7 

A9 01 

LOA #S01 

EFC9 

2C 

.BYTE $2C 

EFCA 

A9 04 

LOA «S04 

EFCC 

2C 

.BYTE S2C 

EFCD 

A9 80 

LOA meo 

EFCF 

2C 

.BYTE S2C 

efdo 

A9 02 

LOA $«02 

EFD2 

00 97 02 

ORA $0297 

EFD5 

60 9 7 02 

STA $0297 

EFD8 

4C 7E EF 

JHP $EF7E. 


EFDB 

AS 

AA 

LDA 

$AA 

EFDO 

00 

Fl 

BNE 

$EFOO 

EFOF 

FO 

EC 

BEO 

$EFCD 


Einsprung von SF26C 

EFE1 aS 9A STA S9A 
EFE3 AD 94 02 LDA S0294 


Bit 5 im KoMiwndregister 
prüfen 

verzweige wenn Übertragung 
ohne Parity 

verzweige wenn festes Bit 
anstelle Parity 
empfangenes Paritybit laden 
mit berechneter Parity 
vergleichen 

verzweige wenn gleich, ek 
gerade Parity, dann ek 
Skip nach SEFC7 
verzweige wenn ungerade 
Parity, dann ek 
senst Parity-Fehler 
Skip nach EFCC 
EapfBngerpijffer veil 
Skip nach SEFCF 
Break-Befehl empfangen 
Skip nach SEF02 
Rahmen-Fehler 
mit Code für RS-232 Status 
verknüpfen 
und speichern 
zun Empfang des nichsten 
Bytes springen 

enpfengenes Byte 

ungleich 0, dann zu Rahmen- 

Fehler 

senst zu Break-Befehl 
enpfangen 

RS-232 CKOUT, Ausgabe auf 
RS-232 


Ceräteiyjwer abspeiehern 
RS 232 KOAiiaridregister laden 
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EfEö 

kk 

ISR A 

Bit 0 (Iter)d3h«kt> Ins C*rry 

EFE7 

90 29 

BCC SF012 

verzweioe Mem 3-Line- 

Handshake 

EFE9 

A9 02 

LOA «$02 

Maske für DATA SET READY 

EFEB 

2C 01 00 

BIT $DD01 

Port B suslesen 

EFEE 

10 10 

BPi. SFOOO 

kein ose. dann Fehler 

EFFO 

DO 20 

BNE SF012 

verzweige wenn kein Request 

T« Send 

EFF2 

AO A1 02 

LOA $02A1 

RS‘232 NMI Status laden 

EFF5 

29 02 

AND «$02 

verknüpfe mit Bit für 

Oatenesqjfang aktiv 

EFF7 

DO f9 

BKE BEFF2 

warten bis Enpfeng beendet 

EFF9 

2C 01 00 

BIT $DD01 

Port B der NNI-CIA auslesen 

EFFC 

70 FB 

BVS BEFF9 

und auf Clear T« Serxl warten 

EFFE 

AD 01 OD 

LOA SDD01 

Port B lesen 

F001 

09 02 

ORA #B02 

Bit für Request To Send setzen 

F005 

80 01 DO 

STA SOD01 

und wieder zurüekschreiben 

F006 

2C 01 00 

BIT $0001 

Port B holen und 

F009 

70 07 

BVS $F012 

auf clear To Send warten 

FOOB 

30 F9 

BMI $F006 

verzweige wenn nicht Data Set 

Ready 

Efnspriaig von $F4S9 


FOOD 

A9 40 

LOA mo 

Bit für fehlendes OSR 

FOOF 

80 97 D2 

STA $0297 

Status setzen 

F012 

18 

CLC 

Carry für ok Kennzeichen 




setzen 

F013 

60 

RTS 

Rückspria^g 

*************************** 

Ausgabe in RS 232 Puffer 

F014 

20 28 FO 

JSR SF026 

falls erforderlich Übertragung starten 

Einspri^ von SF208 


F0t7 

AC 9E 02 

LOY $029E 

Zeiger auf Auegabepuffer 
laden 

FOU 

C8 

IHY 

und erhöhen 

F01B 

CC 90 02 

CPT $0290 

und mit lesezeiger 
vergleichen 
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F01E 

FO 

F4 


BEO 

SF014 

F020 

8C 

9E 

02 

STT 

S029E 

F023 

88 



DET 


F024 

A5 

9E 


LOA 

S9E 

F026 

91 

F9 


STA 

(SF9> 

Einsprung 

von SF014 


F028 

AD 

AI 

02 

LDA 

S02A1 

F02B 

4A 



LSR 

A 

F02C 

BO 

IE 


BCS 

SF04C 

F02E 

A9 

10 


LOA 

«S10 

F030 

6D 

OE 

oo 

STA 

sdoOe 

F033 

AD 

99 

02 

LDA 

$0299 

F036 

80 

04 

DD 

STA 

SOD04 

F039 

AD 

9A 

02 

LOA 

$029A 

F03C 

80 

05 

DD 

STA 

$0D05 

F03F 

A9 

81 


LDA 

«S81 

F041 

20 

3B 

EF 

JSR 

$EF3B 

F044 

20 

06 

EF 

JSR 

$EF06 

F047 

A9 

11 


LDA 

«$11 

F049 

80 

OE 

DD 

STA 

SDDOE 

F04C 

60 



RTS 



*************************** 


Einsprung von tf227 


F04D 

85 99 

STA $99 

F04F 

AD 94 02 

LDA $0294 

F052 

4A 

LSR A 

F053 

90 28 

BCC $F07D 

F055 

29 08 

ANO «$08 

F057 

FO 24 

BEO $F07D 


Puffer voll, dann uarten 
neuen Wert für 
Schreibzeiger merken 
und wieder normalisieren 
auszugebendes Byte holen und 
in Puffer schreiben 


RS 232 NMI Status laden 

Bit 0 testen (läuft 

Sendebetrieb} 

verzweige wenrt ja 

Bitwert für Timer starten 

Tiner A starten 

Timer für 

Sende-Baud-Rate 

neu 

setzen 

Code für Timer-Unterlauf NNI 
Timer A 

in IC-Register schreiben 
CTS und DSR prüfen und 
Übertragung freigeben 
Bitwert Timer A starten 
Timer A starten 
Rücksprung 

RS-232 CHKIN, Eingabe auf 
RS-23Z setzen 


Gerätenunner speichern 
RS 232 Befehlsregister laden 
Bit 0 ins Carry schieben 
verzweige wenn 3-t.ine- 
Handshake 

Bit für Dupex Mode isolieren 
verzweige wenn voll Dupex 
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F0S9 

A9 

02 


LDA 

||IS02 

FOSB 

2C 

01 

00 

BIT 

tODOl 

FOSE 

10 

AD 


BPL 

SFOOO 

F060 

fo 

22 


BEO 

SF084 

F062 

AD 

AI 

02 

LOA 

S02A1 

F065 

4A 



LSR 

A 

F066 

BO 

FA 


BCS 

SF062 

f066 

AD 

01 

DD 

LDA 

SDDOI 

F06B 

29 

FD 


AND 

jVSFO 

FOÖO 

ao 

01 

DO 

STA 

S0D01 

F070 

AD 

01 

00 

LOA 

SDD01 

F073 

29 

04 


AND 

«S04 

F075 

FO 

f9 


BEO 

SF070 

f077 

A9 

90 


LDA 

#S90 

F079 

18 



CLC 


f07A 

6C 

3B 

EF 

JMP 

SEF3B 




F07D 

AD AI 02 

LOA S02A1 

f080 

29 12 

ANO mi2 

F0S2 

FO F3 

BEO SF077 

F084 

18 

CLC 

F0S5 

60 

RTS 


••••••»•••••••*******»*****• 


Einsprung von SF1S0 


F0S6 

AD 97 02 

LOA S0297 

F0S9 

AC 9C 02 

LDY S029C 

Foec 

CC 9B 02 

CPY S029B 

F08F 

FO OB 

BEO $F09C 

F091 

29 F7 

AND m? 


Maske für 'RTS OUT' 

Data Set Ready abfragen 
verzweige wenn nein 
Ready Tb Send abfragen 
RS 232 NMI Status laden 
Bit 0 ins Carry 
(Sendebetrteb aktiv) 

Jaj warten bis beendet 
Port B laden 
Request To Send 
und wieder speichern 
Port B holen 

Bit für Data Terminal Ready 
verzweige wenn nein, warten 
NNI-Maske für 'Flag' laden 
Carry löschen (ok Kennzeichen) 
NM] freigeben 

R8-232 CHKIN bei 3-Line 
Handshake 

RS-232 NMI Status laden 
wenn RS*232 nicht aktiv 
dam starten 
Carry löschen (ok 
Kenneichen) 

Rücksprung 

CET von rS-232 


RS*232 Status holen 
Zeiger auf Ende des 
Eingabepuffere 
mit Zeiger auf Anfang 
verglei chen 

verzweige wem gleich (Puffer 
leer) 

Bit 3 (Puffer leer) 
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F093 

80 

97 02 

STA 

«297 

im Status loschen (Zeichen 

im Puffer) 

F096 

B1 

F7 

LOA 

(SF7},Y Byte aus Puffer holen 

F098 

EE 

9C 02 

INC 

S029C 

Pufferzeiger erhöhen 

F098 

60 


RTS 


Rücksprung 

F09C 

09 

08 

ORA 

tlSOB 

Bituert für Puffer leer 

F09E 

80 

97 02 

STA 

t0297 

Status setzen 

F0A1 

A9 

00 

LOA 

»soo 

Null übergeben 

F0A3 

60 


RTS 


Rücksprung 

*************************** 

Ende der RS-232 Übertragung 






abwarten 

Einsprung 

von SEOOE, SF88A 


F0A4 

48 


PHA 


Akku auf Stack retten 

F0A5 

AD 

A1 02 

LDA 

$02A1 

RS-232 Nm Status laden 

F0A8 

FO 

11 

BEO 

SFOBB 

nicht gesetzt, dann ok 

FOAA 

AO 

A1 02 

LOA 

$02A1 

RS-232 NHI Status laden 

FOAD 

29 

03 

ANO 

M03 

Bit 0 ■ senden und Bit 1 - 
enpfangen 

FOAF 

oo 

f9 

BNE 

SFOAA 

warten bis beide Bits 

gelöscht 

F0B1 

A9 

10 

LDA 

#S10 

Bitwert für Interrupt durch 

F0B3 

80 

W 00 

STA 

SDOOD 

'Flag'-Leitung setzen 

F0B6 

A9 

00 

LDA 

«soo 

RS-232 NHI Status 

FDB6 

80 

Al 02 

STA 

$02A1 

zurücksetzen 

FOBS 

68 


PLA 


Akku wieder holen 

FOBC 

60 


RTS 


Rücksprung 

*****4 

t**** 

t****** 

t****** 

t***** 

Systenraeldungen 

FOBO 

00 

49 2F 

4F 20 

45 52 

4f t/0 ERROR # 

F0C6 

52 

20 A3 




F0C9 

X 

53 45 

41 52 43 48 49 SEARCHING 

FODl 

4E 47 AO 




FW4 

46 4f 52 AO 


FOR 

FOD8 

OD 

50 52 

45 53 

53 20 

50 PRESS PLAY ON TAPE 

FOI>9 

4C 

41 59 

20 4F 

4E 20 

54 

FODB 

41 

50 C5 
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FOEB 

50 52 4S 

53 53 20 52 45 

PRESS RECORD i FIAT ON TAPE 

F0F3 

43 4F S2 

44 20 26 20 50 


FOFB 

4C 41 59 

20 4F 4E 20 54 


F103 

41 50 CS 



F106 

OD 4C 4F 

41 44 49 4E cr 

LOAD ING 

F10E 

CO 53 41 

56 49 4E 47 AO 

SAVINS 

F116 

00 56 45 

52 49 46 59 49 

VERIFriNG 

F11E 

4B C7 



F120 

00 4 6 4F 

55 4E 44 AO 

FOUNO 

F127 

00 4F 4b 

80 

OK 


•••*•**••••••••••••••••••»» Systen»iietdüng«n ausgeben 

Einsprung von SFSDA 

F1ZB 24 90 BIT S9D Direkt-Modus Flag 

F12D 10 OD BPL tF13C Progrann, dann überspringen 

Einsprung von tFSBS, SF5BE. SF695, SF71F, $F752, SF81E 
BF82B 


P12F 

B9 BO 

FO 

LOA SFOBO.T 

Zeichen holen mit Offset der 

Meldung in Y>Register 

F132 

08 


PHP 

Status-Register retten 

F133 

29 7F 


AMD #S7F 

Bi t 7 loschen 

F13S 

20 02 

FF 

JSR SFFD2 

und Zeichen ausgeben 

F138 

C8 


INT 

Zeiger erhöhen 

F139 

28 


PLP 

Status wiederholen 

F13A 

10 F3 


BPL tF12F 

verzweige wenn noch wei tere 

Buchstaben 

F15C 

18 


CLC 

Carry löschen, ok 

F130 

60 


RTS 

Rück^firtirg 

**•«***««••••♦*« 11 ••• ••« 

GETIN 


Einsprung von SFFE4 


F13E AS 99 
P140 00 08 


LOA S99 Eingabegerät laden 

BNE SF14A verzweige wenn nicht Tastatur 






500 


64 Intern 


F142 

AS C6 

IDA 

SC6 

F16& 

FO OF 

BEQ 

IO 

lO 

Ak 

F166 

78 

SEI 


F147 

4C B4 ES 

JHP 

SE5B4 


F14A 

C9 

02 

CMP 

«S02 

F14C 

00 

18 

BHE 

SF166 

Einspru>g 

von 

1 SF1B8 


FUE 

84 

97 

STY 

$97 

F1S0 

20 

86 

FO JSR 

SF086 

F1S3 

A4 

97 

LOY 

$97 

F155 

18 


CLC 


F156 

60 


RTS 



V««*1 


••••****1 



Einsprung vor 

1 $FFCF 


f157 

AS 99 

LDA 

$99 

F1S9 

00 OB 

8NE 

$F166 

F15B 

AS 03 

LDA 

$03 

F15D 

8S CA 

STA 

$CA 

F15F 

AS 06 

LDA 

$06 

F161 

85 C9 

STA 

$C9 

F163 

4C 32 

E6 JHP 

$E632 

F166 

C9 03 

CHP 

»$03 

F168 

00 09 

BHE 

$F173 

F16A 

85 00 

STA $00 

F16C 

AS 05 

LOA 

$05 

FUE 

85 C8 

STA 

SC8 


Anzahl <ler Zeichen im 
Tastaturpuffer laden 
verzweige wenn kein Zeichen 
Interruptflag setzen 
Zeichen aus Tastaturpuffer 
holen 

Geräteadresse für RS-232 
nein dann zur BASIN-Routine 


Y-Register merken 
Get von RS 232 
Y-Register wiederholen 
Carry löschen, ok 
Rücksprung 

BAStN Eingabe eines 
Zeichens 


Gerätenunner laden 
verzweige wenn nicht Tastatur 
Cursorposition holen 
und für 

Tastatureingabe 

setzen 

Eingabe vom Bildschirm 

Eingabekanal 3 ■ Bildschirm 
wenn nicht verzweige 

von Bi Idschi rm 

Flag auf Eingabe von Bi Id- 

schimrstelle 

Cursorzeite laden 

als Pointer für Ende der 

Zeile speichern 
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501 


F170 

4C 32 E6 

JHP SE632 

F173 

80 38 

BCS SF1AD 

F175 

C9 

02 

CNP «$02 

F177 

FO 3F 

BEQ SF1B8 

**«***•«*•*•••****•••#••••# 

F179 

86 

97 

STX *97 

F178 

20 

99 F1 

JSR SF199 

F1Ä 

80 

16 

BCS SF196 

Fiao 

48 


PHA 

F181 

20 

99 F1 

JSR SF199 

F184 

BO 

00 

BCS SF193 

F186 

00 

05 

BNE SF180 

Fiaa 

A9 

40 

LOA «S40 

FIBA 

20 

IC FE 

JSR SFEIC 

F1SD 

06 

A6 

DEC SA6 

F18F 

A6 

97 

lOX $97 

F191 

68 


PLA 

F192 

60 


RTS 

F193 

AA 


TAX 

F194 

68 


PLA 

F195 

SA 


TXA 

F196 

A6 

97 

LOX S97 

F198 

60 


RTS 


zu Eingabe von Bildschirn 
verzweige zu Eingabe von 
lEC-Bus 

Eingabe von RS-232 ? 

Ja, so verzweige 

Eingabe vom Band 
X-Ragigter nerlcen 
ein Zeichen vom Band holen 
verzweige bei Fehler 
Akku retten 

ein Zeichen vom Band holen 
verzweige bei Fehler 
letzeg Zeichen 7 
Code fOr 'End of Idertify' 
Status setzen 

Bandpuffer Zeiger erniedrigen 
X-Register zurückholen 
geholtes Zeichen in Akku 
Rücksprung 

FehlerrKnaer ins X-Register 
Stack normalisieren 
FehlerrHfMier in Akku 
X-Register zurückholen 
Rückspriaig 


ein Zeichen vos Band holen 


Einsprung von SF176, SF181 


F199 

20 

00 

F8 

JSR SF80D 

F19C 

00 

OB 


BNE SF1A9 

ri9E 

20 

41 

F8 

JSR SF841 

F1A1 

BO 

11 


BCS SF184 

F1A3 

A9 

00 


LOA #i00 

F1A5 


A6 


STA $A6 

F1A7 

FO 

FO 


BEQ *F199 


Bandpuffer Zeiger erhöhen 
verzweige wenn noch Zeichen 
im Puffer 

sonst nächsten Block vom 
Band holen 

STDP'Taste, dann Abbruch 

Pufferzeiger 

auf Null 

u^dingter Sprung 





502 


64 Intern 


F1A9 

B1 B2 

LOA (S«2),T 

Zeichen aus Puffer lesen 

F1AB 

18 

CLC 

Carry «0 (ok Kennzeichen) 

F1AC 

60 

RTS 

Rückspnrig 


Eingabe vom lEC-Bus 

F1AD 

AS 90 

LOA S90 

Status testen 

F1AF 

FO 04 

BEQ $F1BS 

verzweige wenn ok 

F1B1 

A9 OO 

LDA MOD 

'CR' Kode ausgeben 

F1B3 

18 

CLC 

Carry *0 (ok Kennzeichen) 

F1B6 

60 

RTS 

ROcksprung 

F1BS 

4C 13 EE 

JHP SEE13 

ein Byte voei lEC-Bus holen 


RS 232 Eingabe 

F1B8 

20 4E Fl 

JSR SF14E 

ein Byte von RS 232 holen 

F1BB 

BO F7 

BCS SF1B4 

verzweige wenn Fehler 

F1B0 

C9 00 

CHP MOO 

vergleiche mit Nullbyte 

F1BF 

00 F2 

BNE $F1B3 

nein, dann ok 

FICI 

AD 97 02 

LDA $0297 

Status laden 

F1C4 

29 60 

AND M60 

fehlt DSR ? 

F1C6 

00 E9 

BNE $F1B1 

Ja,'CR' zurückgeben 

F1C8 

FO EE 

BEQ $F1B8 

nein, neuer versuch 


BSOUT Ausgabe eines 

Zeichens 

Einsprung von SFFD2 


F1CA 

48 

PHA 

Oatenbyte retten 

F1CB 

AS 9A 

LOA S9A 

Gerätenuimer fOr Ausgabe 

F1CD 

C9 03 

CHP M03 

vergleiche mit Bildsehirn 

F1CF 

DO 04 

BNE $F1DS 

verzweige wenn nein 

F101 

68 

PLA 

Oatenbyte wiederholen 

F102 

4C 16 E7 

JHP $E716 

ein Zeichen auf Bildschirm 

ausgeben 

F1DS 

90 04 

BCC $F1DB 

verzweige wenn keine Ausgabe 

lEC-Bus 
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503 


F1D7 

68 

PLA 

F1D8 

AC DD ED 

JHP SEDPD 

F1DB 

4A 

LSR A 

F1BC 

68 

PIA 


Einsprung von Sf2D4 


F100 

85 9E 

STA S9E 

FlOF 

8A 

TXA 

F1E0 

48 

PHA 

F1E1 

98 

TYA 

F1g2 

48 

PHA 

F1E5 

90 2S 

BCC SF208 




F1E5 

20 

00 

f8 

JSR 

SF80D 

F1E8 

00 

OE 


BHE 

SF1F8 

F1EA 

20 

64 

F8 

JSR 

$F864 

F1ED 

BO 

OE 


BCS 

SF1FD 

F1EF 

A9 

02 


IDA 

«S02 

F1F1 

AO 

00 


LDY 

noo 

F1F3 

91 

B2 


STA 

(SB2).Y 

F1F5 

C8 



INY 


F1F6 

84 

A6 


STY 

SA6 

F1F8 

AS 

9E 


LDA 

S9E 

FIFA 

91 

82 


STA 

(BB2).Y 

Einspring 

vor 

1 SF20B 


F1FC 

18 



ClC 


F1FD 

68 



PLA 


F1FE 

A8 



TAY 


FiFF 

68 



PLA 


F200 

AA 



TAX 


F201 

A5 

9E 


LOA 

S9E 

F203 

90 

02 


BCC 

SF207 


Ausgabe auf lEC-Bus 

Oatenbyte retten 

ein Byte auf lEC-Bus «usgeben 

Bit 0 der Ausgabekanal* 

Hurmer ins Carry 
Detenbyte wiederholen 


auszugebendes Zeichen aierken 

X-Register 

und T-Register 

auf Stack 

retten 

R$-232 Ausgabe 

Ausgabe auf Band 
Ban^uffer Zeiger erhöhen 
verzweige wenn Puffer 
nicht voll 

Puffer auf Band schreiben 

STOP-Taste, dann Abbruch 

Koitrol Ibyte für Datenbloek 

Pufferzeiger auf 0 

Akku in Puffer schreiben 

Zeiger erhöhen 

und merken 

Oatenbyte holen 

Zeichen in Puffer schreiben 


Carry -0 (ok Kennzeichen) 

X-Register 

und Y-Register 

aus Stack 

holen 

Datenbyte zuruckholen 
verzweige wenn ok 






504 


64 Intern 


F20S 

A9 00 

LOA «SOO 

F207 

60 

RTS 


F20S 

20 

r**« 

17 

PO 

JSR SF017 

F2oe 

4C FC 

Fl 

JMP SF1FC 

•nr**' 

»••*4 

r**« 

•**4 


Einsprung 

von SFFC6 

F20E 

20 

OF 

F3 

JSR SF30F 

F211 

FO 

03 


BEO SF216 

F213 

4C 

01 

F7 

JMP SF701 

F216 

20 

1F 

F3 

JSR SF31F 

F219 

A3 

BA 


LDA SBA 

F21B 

FO 

16 


BEO SF233 

F21D 

C9 

03 


CHP «S03 

F21F 

FO 

12 


BEO SF233 

F221 

BO 

K 


BCS SF237 

F223 

C9 

02 


CHP «S02 

F225 

00 

03 


BNE SF22A 

F227 

4C 

4D 

FO 

JMP SF04D 

F22A 

A6 B9 

'•••* 

LOX SB9 

F22C 

EO 

60 


CPX «S60 

F22E 

FO 

03 


BEO SF233 

F230 

4C 

OA 

F7 

JMP SF70A 

F233 

8S 99 


STA $99 

F235 

ia 



CLC 

F236 

60 



RTS 







F237 

AA 

TAX 

F238 

20 09 ED 

JSR SE009 

F23B 

AS 09 

LOA SB9 


Flag für ’STOP'Taste 
gedrückt' 

Rücksprung 

RS*232 Ausgabe 
ein Zeichen in RS-232 
Puffer schreiben 
CHRCXJT 

CHKIM Eingabegerät setzen 


sucht logische Fil e n u mi s r 
verzweige wenn gefunden 
sonst 'file net open' 
setzt Fileparaneter 
Gerätentüirier laden 
0, Tastatur 

vergleiche mit Bildschirm 
verzweige zu Bildschirm 
verzweige zu lEC-Bus 
vergleiche mit RS*232 
nein, dann Band 
ja, dam R$*232 

Band als Eingabegerät setzen 
Sekundäradresse laden 
vergleiche mit 'Nult' 
verzweige wenn 'Null' 
sonst 'not input file' 
Gerätenuimer für Ausgabe 
speichern 

Carry *0 (ok Kennzeichen) 
Rücksprung 

lEC-BiM als Eingabegerät 
Geräteadresse retten 
TALK senden 
Sekundäradresse laden 
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F23D 

10 

06 

BPL 

SF245 

F23F 

20 

CC EO 

JSR 

SEDCC 

F262 

6C 

48 F2 

JMP 

SF240 

F245 

20 

er ED 

JSR 

SEDC7 


Einspr(#ig 

von SF242 


F248 

SA 



TXA 


F249 

24 

90 


BIT 

S90 

F24B 

10 

E6 


BPL 

$F233 

P24D 

4C 

07 

F7 

JHP 

$F7a7 


»•••1 


r***i 



Einsprung 

von SFFC9 


F250 

20 

OF 

f3 

JSR 

SFSOF 

F253 

FO 

03 


BEO 

SF2S8 

F255 

4C 

01 

Fr 

JMP 

$F701 

F258 

20 

IF 

F3 

JSR 

$F31F 

F2SB 

AS 

BA 


LOA 

SBA 

FZ5D 

00 

03 


BNE 

sr262 

F25F 

4C 

00 

F7 

JMP 

SF70D 

F262 

C9 

03 


CNP 

BS03 

F264 

FO 

OF 


BEO 

SF275 

F266 

BO 

11 


BCS 

SF279 

F26S 

C9 

02 


CMP 

#S02 

F26A 

00 

03 


BNE 

SF26F 

F26C 

4C 

El 

EF 

JHP 

SEFE1 


*****1 

F26F 

ft*«******« 

A6 09 

LDX $B9 

F271 

EO 60 

CPX M60 

F273 

FO EA 

BEO SF25F 

F275 

85 9A 

STA S9A 


verzweige uem kleiner 12 ft 
wartet auf Tekt-Signal 
nächsten Befehl überspringen 
Sekundäradresse für TALK 
senden 


Qeräteadresse wiederholen 
Status abfragen 
verzweige wer» ok 
sonst 'DEVIC€ NOT PRESENT' 

CKOUT Ausgabegerät setzen 


sucht logische Filerruner 
verzweige wenn gefunden 
sonst 'FILE NOT OPEN' 
setzt Fileparameter 
Gerätenimer holen 
verzweige wenn laigleich Null 
sonst 'NOT INPUT FILE' 
vergleiche mit Bildschirii 7 
verzweige wenn Bildschirm 
verzweige wefwt lEC-Bus 
vergleiche mit RS-232 
verzweige wenn nein 
Ausgabe auf RS-232 
vorbereiten 

Band als Ausgabegerät setzen 
Sekundäradresse laden 
mit 'Null' vergleichen 
Bandfile zum Lesen, 'NOT 
OÜTRIT FILE* 

Nunner des Ausgabegeräts 
setzen 






506 


64 Inlern 


F277 

18 


ac 


F278 

60 


RTS 


F279 

»•••1 

AA 


TAX 


F27A 

20 

OC ED 

JSR 

SEDOC 

F270 

AS 

B9 

LDA 

SB9 

F27F 

10 

05 

BPL 

SF286 

F281 

20 

BE ED 

JSR 

SEDBE 

F264 

DO 

03 

BNE 

tF289 

F286 

20 

B9 ED 

JSR 

SEDB9 

F269 

BA 


TXA 


F2BA 

26 

90 

BIT 

S90 

F28C 

10 

E7 

BPL 

SF275 

F28E 

6 C 

07 F7 

JHP 

$F707 


•••*********•*••••*•••••••• 


Einsprung 

von SFFC3 


F291 

20 

16 

F3 

JSR 

$F316 

F296 

FO 

02 


BEO 

SF298 

F296 

18 



CLC 


F297 

60 



RTS 


F298 

20 

1F 

F3 

JSR 

SF31F 

F29B 

BA 



TXA 


F29C 

68 



PHA 


F290 

AS 

BA 


LDA 

SBA 

F29F 

FO 

SO 


BEO 

SF2F1 

F2A1 

C9 

03 


CMP 

#$03 

F2A3 

FD 

6C 


BEQ 

$F2F1 

F2A5 

BO 

67 


BCS 

$F2EE 

F2A7 

C9 

02 


CHP 

«S02 

F2A9 

DO 

ID 


BNE 

$f2C8 


Carry «0 (ok Kennzeichen) 
Rücksprung 

Ausgabe auf lEC-Bus legen 
Gerateadresse retten 
LISTEN senden 
Sekixidäradresse laden 
verzweige wenn kleiner 128 
ATM zurücksetzen 
(Xibedingter Sprung 
Sekieidaradresse für LISTEN 
senden 

Geräteadresse wiederholen 
Status abfragen 
verzweige wenn ok 
■device not present' 

CLOSE logische filenixmer 
im Akku 


sucht logische Filenunner 
verzweige wenn gefunden 
File nicht vorhanden, dann 
fertig 
Rücksprung 

Fileparaneter setzen 
Zeiger auf Parametereintrag 
in Fi letabelle 
retten 

Geräteadresse laden 
verzweige wenn Tastatur 
vergleiche mit Bildschirm 
verzweige wenn Bildschirm 
verzweige wenn lEC-Bus 
vergleiche mit RS-232 
nein, dann Band 
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F2AB 

*•••4 

68 



PLA 

F2AC 

20 

F2 

F2 

JSR SF2F2 

F2AF 

20 

83 

F4 

JSR SF483 

F2B2 

20 

27 

FE 

JSR SFE27 

F2B5 

AS 

Fe 


LOA SF8 

F2B7 

FO 

01 


BEO SF2BA 

fao 

C8 



INY 

F26A 

AS 

FA 


LDA $FA 

F2ec 

FO 

01 


BEO SF2BF 

F2BE 

C8 



INV 

F2BF 

a9 

OD 


LOA BSOO 

F2C1 

8S 

F8 


STA SF8 

F2C3 

8S 

FA 


STA SFA 

F2C5 

4C 

70 

F4 

JHP SF470 

*************************** 

F2C8 

AS 

S9 


LDA SB9 

F2CA 

29 

OF 


AHO #SOF 

F2CC 

FO 

23 


BEQ SF2F1 

F2CE 

20 

DO 

F7 

JSR SF7D0 

F2D1 

A9 

00 


LDA «SOO 

F2D3 

38 



SEC 

F20A 

20 

DO 

F1 

JSR SFTOD 

f2D7 

20 

64 

FS 

JSR SF864 

F2DA 

90 

04 


BCC SF2E0 

F2DC 

68 



PLA 

F2DD 

A9 

00 


LDA «SOO 

F2DF 

60 



RTS 

F2E0 

AS 

B9 


LDA SB9 

F2E2 

C9 

62 


CMP M62 

F2E4 

00 

OB 


BME SF2F1 


RS-232 Fil« schlieBen 
Zeiger auf Parawtereintrag 
Fileeintrag in Tabelle 
löschen 

CIAs fO I/O rilcksetzen 
NeMory-Top holen 
RS-232 Eingebepiiffer 
HICH-Byte laden 
vertuefge wenn 0 
HifiH'Syte von Heoorylop 
erhöhen 

RS*232 Ausgabepuffer 

HICH-Byte laden 

verzweige wenn 0 

sonst HtGH-Byte von Heewry- 

Top erhöhen 

0 laden 

und Puffer 

frefgeben 

MeR«ry Top neu setzen 

Band File schlieSen 
Sekia^daradresse laden 
Bits 0 bis 3 isolieren 
verzweige wem File zum Lesen 
Band-Puffer Startadresse 
holen 

Markierung für letztes 
Zeichen im Datenpuffer 
Flag für Ausgabe auf Recorder 
Zeichen in Kassettenpuffer 
Puffer auf Band schreiben 
verzweige wenn alles ok 
Zeiger auf Fileeintras holen 
0 für Break 
Rücksprung 

Sekundäradresse laden 
vergleiche auf Open mit EOT 
verzweige wem kein EOT 






508 


64 Intern 


F2E6 

A9 

05 

LOA 

#S05 

Kontrollbyte für EOT*Header 

F2E8 

20 

6A F7 

JSR 

SF76A 

Block ouf Band schreiben 

F2EB 

4C 

Fl F2 

JHP 

SF2F1 

überspringe nächsten Befehl 

F2EE 

20 

42 F6 

JSR 

SF642 

lEC-File schlieBen 

Einsprung 

von SF2EB 



F2F1 

68 


PLA 


Zeiger auf Fileeintrag holen 

Einsprung 

von SF2AC 



F2F2 

AA 


TAX 


ins X-Begister schieben 

F2F3 

C6 

98 

DEC 

S98 

Anzahl der offenen Files 






erniedrigen 

F2F5 

E4 

98 

CPX 

S98 

und mit Zeiger auf 






Fileeintrag vergleichen 

F2F7 

FO 

14 

BEO 

SF30D 

gleich, dann fertig 

r2F9 

A4 

98 

LOY 

S98 

Anzahl der offenen Files 

F2FB 

B9 

59 02 

IDA 

S0259,Y 

Letzten Fileeintrag 

F2FE 

9D 

59 02 

STA 

S0259,X 

an die 

F301 

B9 

63 02 

LOA 

S0263,Y 

freigewordene 

F304 

9D 

63 02 

STA 

S0263,X 

Stelle in der 

F307 

B9 

60 02 

LDA 

S 026 O,r 

Fi letabelle 

F30A 

90 

60 02 

STA 

S026D,X 

schreiben 

F3W 

18 


CLC 


Carry sO <ok Kennzeichrwig) 

F30E 

60 


RTS 


RQckspririg 


••••••••••••••••••••••••••• sucht logische Fflefvjniier 

<in X) 

Einsprung von SF20E, SF2S0, SF351 


F30F 

A9 00 

LOA #S00 

Status 

F311 

85 90 

STA S90 

loschen 

F313 

8A 

TXA 

Filenunner in Akku schieb« 

Einsprung von 

SF291 


F314 

A6 98 

LDX S98 

Anzahl der offenen Files 

F316 

CA 

DEX 

Anzahl un eins verringern 
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509 


F317 

30 15 

BMI SF32E 

verzweige wenn kein File 

offen oder Filenunner nicht 

gefunden 

F319 

DD 59 02 

CMP S0259,X sucht Eintrag in Tabelle 

F31C 

DO F8 

BME $F316 

verzweige wenn noch nicht 
gefunden 

F31E 

»D 

RTS 

Rücksprung 




setzt FfleparaiKter 


Etnsprung von SF216, SF25 b, SF298 

F31F BD 59 02 LDA S0259,X logische FUeniinner aus 


F322 

85 88 

STA SB8 

F324 

BD 63 02 

LDA S0263,X 

F327 

85 BA 

STA SBA 

F329 

BP 60 02 

LDA S026O,X 

F32C 

85 B9 

STA SB9 

F32E 

60 

RTS 




Einsprung von SFFE7 

F32F A9 00 LDA IDSOO 

F331 85 98 STA S98 


Einsprung von SFFCC 


F333 

A2 03 

LDX «S03 

F335 

EC 9A 

CPX S9A 

F337 

BO 03 

BCS Sf33C 

F339 

20 FE ED 

JSR SEDFE 

F33C 

E4 99 

CPX S99 


Tabelle holen ind speichern 
ßerfitaadresse aus Tabelle 
holen und speichern 
Sekundüradresse aus Tabelle 
holen und speichern 
ROcksprung 

CLALL schliekt alle 
Ein*/Ausgabe Kanäle 


Anzahl der offetwn Filet 
auf Null stellen 

CLRCH schlieSt aktiven 
t/O-Kanal 


Vergleichswert in X 
vergleiche nit Nunrer des 
Ausgabegeräts 

verzweige wenn kleiner als 3 
lEC, UNLISTEN Senden 
vergleiche mit Nuisner des 
Eingabegeräts 
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64 Intern 


F33E 

BO 03 

BCS tF343 

F340 

20 EF ED 

JSR tEOEF 

F343 

86 9A 

STX S9A 

F34S 

A9 00 

LOA «$00 

F347 

85 99 

STA $99 

F349 

60 

RTS 


verzweifle wenn kleiner als 3 

lEC. UNTALK senden 

Ausgabe wieder auf Bildschirm 

Eingabe wieder 

ven Tastatur 

Rücksprung 


Einsprung von $FFC0 

OPEN 

F34A 

A6 B8 

LOX SB8 

Fi lemener in X 

F34C 

00 03 

BNE SF351 

verzweige wem ui>oleich Null 

F34E 

4C OA F7 

JHP $F70A 

■not input file' <??) 

F351 

20 OF F3 

JSR SF30F 

sucht logische Filenumer 

F354 

00 03 

BHE SF359 

nicht gefunden, kann neu 
angelegt werden 

F3S6 

4C FE F6 

JHP SF6FE 

sonst 'file open' 

F359 

A6 98 

LOX S98 

Anzahl der offenen Files 

F3SB 

EO OA 

CPX MOA 

mit 10 vergleichen 

F35D 

90 03 

BCC SF362 

kleiner 10 dann ok 

F35F 

4C FB F6 

JHP SF6FB 

■too meny files' 

F362 

E6 98 

INC $98 

Anzahl erhöhan 

F364 

AS B8 

LOA $BB 

logische Filenuiiiwr laden 

F366 

90 59 02 

STA $0259.X iMiö in die Tabelle schreiben 

F369 

A5 B9 

LOA $B9 

Sekundäradresse laden 

F368 

09 60 

ORA il«60 

Bit 5 und 6 setzen 

F360 

85 B9 

STA $89 

wieder speichern 

F36F 

90 60 02 

STA $0260,X 

und in die Tabelle schreiben 

F372 

A5 BA 

LOA $BA 

GeratenLcner laden 

F374 

90 63 02 

STA $0263,X 

und in die Tabelle schreiben 

F377 

FO 5A 

BEO $F303 

verzweige wenn Gerätenmner 

für Tastatur 

F379 

C9 03 

CMP $$03 

Code für Bildschirm 

F37B 

FO 56 

BEQ $F303 

ja, so verzweige 

F37D 

90 05 

BCC $F384 

verzweige wenn nicht lEC-Bus 

F37F 

20 05 F3 

JSR $F305 

File auf IEC*Bus eröffnen 

F382 

90 4F 

BCC $F303 

unbedingter Sprung 

F3B4 

C9 02 

CMP «$02 

Code für Band 

F3B6 

00 03 

BNE $F38B 

verzweige wenn nein 
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F38S 

4C 

09 

F4 

JW 

SF409 

F38B 

20 

DO 

F7 

JSR 

SF7D0 

F38E 

BO 

03 


BCS 

$F393 

F390 

4C 

13 

F7 

JNP 

*F713 

F393 

AS 

B9 


LOA 

SB9 

F395 

29 

OF 


AND 

BSOF 

F397 

00 

1F 


BNE 

SF3B8 

F399 

20 

17 

F8 

JSR 

$F817 

F39C 

BO 

3& 


SCS 

SF3D4 

F39E 

20 

AF 

F5 

JSR 

SF5AF 

F3A1 

AS 

B7 


LDA 

SB7 

F3A3 

FO 

OA 


BEQ 

$F3AF 

F3A5 

20 

EA 

F7 

JSR 

SF7EA 

F3A8 

90 

18 


BCC 

$F3C2 

F3AA 

FO 

28 


BEO 

SF3D4 

F3AC 

6C 

04 

F7 

JNP 

SF704 

F3AF 

20 

2C 

F7 

JSR 

SF72C 

F3B2 

FO 

20 


BEQ 

SF3D4 

F3B4 

90 

K 


BCC 

SF3C2 

F3eö 

BO 

F4 


BCS 

SF3AC 

F3B8 

20 

38 

FS 

JSR 

»Fass 

F3BB 

BO 

17 


BCS 

»F304 

F3BD 

A9 

04 


LDA 

BS04 

F3BF 

20 

6A 

F7 

JSR 

SF76A 

F3CZ 

A9 

BF 


LDA 

#»BF 

F3C4 

A4 

B9 


LOY 

»B9 

F3C6 

CO 

60 


CPY 

•$60 

F3C8 

FO 

07 


BEQ 

SF301 

F3CA 

AO 

00 


LOY 

»00 

F3CC 

A9 

02 


LDA 

«S02 

F3CE 

91 

B2 


STA 

(S82), 


RS-232 open 

Bsndpuffer Startadresse in K 
und Y holen 

verzweige wenn HIGH-Byte 
größer als 2 
■Uleaal device ruifcer' 
Sekundärsdresse laden 
Bits 0 bis 3 isolieren 
ungleich Null dann schreiben 
wartet auf Play-Taste 
verzweige wenn Play Teste 
gedrückt 

■SEARCHIHG' Cfor naaie'} 
ausgeben 

Länge des Filenamns 
kein Filenaiae, dann weiter 
sucht gewünschen Bandiieader 
verzweige wenn gefunden 
verzweige wenn STOP-Tsste 
EOT, 'FILE NOT FOUND' 
susgeber> 

nächsten Bandiieader euehen 
EOT, Fehler 

verzweige wenn gefteiden 
sonst PRG-File, weiter suchen 

wertet auf Record & Play 
Taste 

STOP-Tsste, dann Abbruch 
Kontrollbyte für Datenheader 
Heeder auf Band schreiben 
Zeiger auf Ende des 
Bandpuffers 
Sekundärsdresse laden 
vergleiche mit S60 für Band 
lesen 

lesen, dann verzweige 
Zeiger auf 0 setzen 
Kontrollbyte für Datenblock 
y in Bsndpuffer schreiben 



512 
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F3DO 

98 

TTA 

Zeiger in Akku 

F3D1 

85 A6 

STA SA6 

Zeiger in Bandpuffer setzen 

F3D3 

18 

CLC 

Carry «0 (ok Kennzeichen) 

F3D6 

60 

RTS 

Rücksprung 


File auf lEC-Bus eröffnen 


Einsprung von SF37F, $F4C8, $F605 


F3D5 

A5 

B9 

LDA SB9 

Sekundäradresse laden 

F3D7 

30 

FA 

BMI SF3D3 

Rücksprung wem größer, 
gleich 128 

F309 

A4 

B7 

LDY SB7 

Länge des Filenamens laden 

F30B 

FO 

F6 

BEQ SF3D3 

gleich Null, dann fertig 

F300 

A9 

00 

LDA «SOO 

Status 

F30F 

85 

90 

STA $90 

löschen 

F3E1 

A5 

BA 

LDA SBA 

Geräteadressse laden 

F3E3 

20 

OC EO 

JSR SEOOC 

LISTEN 

F3E6 

A5 

B9 

LDA $69 

Sekundäradresse laden 

F3E8 

09 

FO 

ORA «$F0 

Bits 4 bis 7 setzen (Open 
Kennzeichnung) 

F3EA 

20 

B9 ED 

JSR SEDB9 

Sekiridäradresse senden 

F3ED 

A5 

90 

LDA $90 

Status testen 

F3EF 

10 

05 

BPL $F3F6 

verzweige wem ok 

F3F1 

68 


PLA 

Stack 

F3F2 

68 


PLA 

rücksetzen 

F3F3 

4C 

07 F7 

JMP $F707 

’device not present' 

F3F6 

A5 

B7 

LDA $B7 

Länge des Filenamens 

F3F8 

FO 

OC 

BEQ $F406 

kein Filenane, dann fertig 

F3FA 

AO 

00 

LDY MOO 

Zeiger auf Null setzen 

F3FC 

B1 

BB 

LDA <SBB},Y 

Filenanen holen 

F3FE 

20 

00 ED 

JSR SEDDD 

auf IEC-Bus ausgeben 

F401 

C8 


IMY 

Zeiger erhöhen 

F402 

C4 

B7 

CPt $B7 

siit Länge des Filenamens 
vergleichen 

F404 

DO 

F6 

BNE SF3FC 

verzweige wenn noch nicht 

alle Zeichen 

F406 

4C 

54 F6 

JMP $F654 

UNLISTEM, return 
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RS-2S2 


Einsprung 

von SF388 


F409 

20 

83 F4 

JSR 

SF483 

F40C 

8C 

97 02 

STY 

S0297 

F60F 

C4 

87 

CPY 

SB7 

FA11 

FO 

DA 

BEO 

SF41D 

P413 

Bl 

BB 

LDA 

(S88),Y 

F415 

99 

93 02 

STA 

$0293.Y 

F4Te 

C8 


INY 


F4i9 

CO 

04 

CPY 

«S04 

F418 

DO 

F2 

BNE 

SF40F 

F410 

20 

4A EF 

JSR 

SEF4A 

F420 

8E 

98 02 

STX 

$0298 

F423 

AD 

93 03 

LOA 

S0293 

F426 

29 

OF 

AHO 

«SOF 

F428 

FO 

IC 

BEO 

SF446 

F42A 

DA 


ASL 

A 

F42B 

AA 


TAX 


F42C 

AD 

A6 02 

LDA 

S02A6 

F42F 

00 

09 

8NE 

SF43A 

F431 

BC 

CI FE 

LOY 

SFECl.X 

F434 

80 

CO FE 

LDA 

SFECO.X 

F437 

4C 

40 F4 

JMP 

SF440 

F43A 

BC 

EB E4 

LDY 

SE4E8,X 

F430 

80 

EA E4 

LOA 

SE4EA,X 

Einsprung 

von $F437 


F440 

8C 

96 02 

STY 

$0296 

F443 

80 

95 02 

STA 

$0295 

F446 

AD 

95 02 

LDA 

$0295 

F449 

OA 


ASL 

A 


ClAt setz«n 

RS-232 Status löschen 

Linge des "Flten anW 

verzweige wenn kein Filenaise 

die ersten 

vier 

Zeichen 

speichern 

verzweige wenn noch nicht 

alle vier Zeichen 

Anzahl der Datenbits 

berechnen 

und speichern 

ICöntrellregister holen 

Bits fOr Baiid-Rate isolieren 

verzweige wenn User-Baud-Rate 

mal 2 für Tabelle 

als Zeiger merken 

NTSC-Version 

verzweige wenn nein 

Baud-Rate. HIGH für 

MTSC-Tiiaing 

Baud-Rate, LOW 

überspringe zwei Befehle 

Baud-Rate, HIGH für 

PAL-Tining 

Baud-Kate, lOW 


HIGH-Byte Speichern 
LOU-Byte speichern 
Tinerwert « Baud-Rate * 
zwei SC8 <200} 

Timer LOW * zwei 
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F44A 

20 

2E 

FF 

JSR 

SFF2E 

F44D 

AD 

94 

02 

LOA 

S0294 

F450 

4A 



LSR 

A 

F451 

90 

09 


BCC 

SF45C 

F453 

AO 

01 

DD 

LOA 

SDDOl 

F456 

OA 



ASL 

A 

F457 

BO 

03 


B(S 

SF45C 

F459 

20 

OD 

FO 

JSR 

SFOOO 

F45C 

AD 

9B 

02 

LOA 

S029B 

F45F 

8D 

9C 

02 

STA 

S029C 

F462 

AO 

9E 

02 

LDA 

S029E 

F465 

SD 

90 

02 

STA 

S029D 

F468 

20 

27 

FE 

JSR 

SFE27 

F4«B 

A5 

F8 


LDA 

SFe 

F460 

DO 

05 


BNE 

SF474 

F46F 

88 



OEY 


F47D 

84 

F8 


STY 

SF8 

F472 

86 

F7 


STX 

SF7 

F474 

AS 

FA 


LOA 

SFA 

F476 

00 

05 


BNE 

SF47D 

F478 

88 



DEY 


F479 

84 

FA 


STY 

SFA 

F47B 

86 

F9 


STX 

SF9 


Einsprung von SF2C5 
F47D 3a SEC 


Tinerwert für Baud-Rate 
ernitteln 

Komiandoregister laden 
Prüfe ob 3-Line-Handshake 
verzweige wenn ja 
Prüfe ob Data Set Ready 
Bit 7 ins Carry 
verzweige wenn DSR vorhanden 
Status für DSR setzen 
Anfang RS-232 Eingabepuffer 
mit Ende des Eingabepuffers 
gleichsetzen 
Anfang des RS-232 
Ausgabepuffers 
mit Ende des Ausgabepuffers 
gleichsetzen 
Memory Top holen 
HIGH-Byte des Zeigers auf 
RS-Z32 Eingabepuffer 
ungleich Null, so Eingabe* 
puffer bereits angelegt 
HIGH-Byte Memory Top -1 
als Zeiger für RS*232 
Eingabepuffer speichern 
LOM-Byte Memory Top als LCM- 
Byte Eingabepuffer setzen 
HIGH-Byte des Zeigers auf 
RS-Z3Z Ausgabepuffer 
verzweige wenn Ausgabepuffer 
bereits angelegt 
HICH-BYte des Memory Top -1 
und als Zeiger für RS*232 
Ausgabepuffer setzen 
LOW-Byte Memory Top als LOH* 
Byte Ausgabepuffer setzen 


Carry «1 (Fehlerkennzeichen) 
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F47E 

A9 FO 

LOA «SFO 

Fleg für Puffer schützen/ 
freigeben setzen 

FASO 

4C 20 FE 

JNP SFE2D 

Hemory'Top neu setzen 


•**M***********M********* ciAs nach RS 232 rücksetzen 


Efnsprung von SF2AF, SF409 


F483 

A9 

7F 


LOA 

lüSTF 

Bitwert für alle 

FASS 

BO 

Oo 

00 

STA 

soooo 

NKIs blockieren setzen 

FASS 

A9 

06 


LOA 

««06 

Bit 1 und 2 Ausgang 

FASA 

BO 

03 

00 

STA 

S0D03 

PORT B Richtung 

FASO 

BO 

01 

00 

STA 

SOD01 

PORT A Richtung 

FA90 

A9 

OA 


LOA 

«ISOA 

Bit 2 setzen 

FA92 

OO 

00 

00 

ORA 

SOOOO 

Bit 2 s TXO 

FA9S 

80 

00 

DO 

STA 

SDOOO 

Ausgeben 

FA98 

AO 

00 


LOY 

«ISOO 

RS-232 

FA9A 

8C 

AI 

02 

STY 

S02A1 

NMl-Flag löschen 

FA90 

60 



RTS 


Rücksprung 




r***l 

»****« 


LOAO - Routine 

Einsprung 

von $FFD5 



FA9E 

86 

C3 


STX 

BC3 

Startadresse 

FAAO 

SA 

CA 


STY 

SCA 

speichern 

FAA2 

6C 

30 

03 

JMP 

($0330) 

JNP SFAA5 LCMO-Vefctor 

Einsprung 

von SFAA2 



FAA5 

85 

93 


STA 

S93 

Load/Verify Flag 

FAA7 

A9 

00 


LOA 

«ISOO 

Status 

FAA9 

85 

90 


STA 

S90 

löschen 

FAAB 

A5 

BA 


LOA 

SBA 

Geräteadresse laden 

FAAD 

oo 

03 


BNE 

SFAB2 

ungleich Null, dann weiter 

FAAF 

AC 

13 

F7 

JHP 

SF713 

'ILLEGAL DEVICE NUMBER' 

FAB2 

C9 

03 


CHP 

«IS03 

vergleiche mit Code für 

Bi Idschirm 

FABA 

FO 

F9 


BEQ 

SFAAF 

verzweige wenn Ja, Fehler 

FAB6 

90 

TB 


BCC 

SF533 

kleiner 3, dann vom Band 
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64 Intern 




F4B8 

A4 B7 

LOY SB7 

F4BA 

00 03 

BNE SF4BF 

F46C 

4C 10 F7 

JHP $F710 

F4BF 

A6 B9 

LDX SB9 

F4C1 

20 AF FS 

JSR SFSAF 

F4C4 

A9 60 

LOA #S60 

F4C6 

8S 89 

STA S89 

F4CS 

20 OS F3 

JSR SF305 

F4CB 

AS BA 

LOA SSA 

F4CD 

20 09 ED 

JSR SE009 

F400 

AS B9 

LOA SB9 

F402 

20 C7 EO 

JSR SE0C7 

F40S 

20 13 EE 

JSR SEE13 

F4oa 

as AE 

STA SAE 

F4DA 

A5 90 

LM 890 

F4DC 

4A 

LSR A 

F4DD 

4A 

LSR A 

F4DE 

BO so 

8CS SFS30 

F4ED 

20 13 EE 

JSR SEE13 

F4E3 

85 AF 

STA SAF 

F4E5 

SA 

TXA 

F4E6 

00 08 

BNE SF4FD 

F4Ea 

AS C3 

LOA SC3 

F4EA 

85 AE 

STA SAE 

F4EC 

A5 C4 

LOA SC4 

F4EE 

85 AF 

STA SAF 

F4F0 

20 02 FS 

JSR SFS02 

F4F3 

A9 FD 

LOA «SFD 

F4FS 

25 90 

AND S90 

F4F7 

85 90 

STA S90 

F4F9 

20 El FF 

JSR SFFE1 

F4FC 

DD 03 

BNE SFS01 

F4FE 

4C 33 F6 

JHP SF633 

FSOI 

20 13 EE 

JSR $£E13 


lEC-Load 

Länge des Filensnens laden 
ungleich Null, dann ok 
■HISSING FILENAHE' 
Sakundfiradresse laden 
■SEARCHING FOR' (filenane) 
Sekandüradraase Null laden 
<für 0I>EN) 
ml apeickarn 
Fite auf lEC'Bus eröffnen 
Gerätenumer laden 
und TALK senden 
Sekundöradresse laden 
und senden 

Byte VM lEC-Bus holen 
sts Startadresse LOU spei 
ehern 

Status laden 
Bit 1 

int Carry schieben 

falls gesetzt, dann Tine out 

(Fehler) 

Startadresse HIGH holen 
und speichern 
Sekundlradresse laden 
verzweige falls ungleich Nult 
Startadresse LOU laden 
und speichern 
Startadresse HIGH laden 
und speichern 
■LOADINC'/'VERIFYING' 
ausgeben 
TlM'OUt 
Bit 

löschen 

Stop'Taste abfragen 
nicht gedrückt, dann weiter 
File schtieSan 
Progran^yte voai ^ holen 
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F504 

AA 


TAX 


F505 

AS 

90 

LDA 

S90 

F507 

4A 


LSR 

A 

Fsoe 

4A 


LSR 

A 

F509 

BO 

ES 

BCS 

SF4F3 

F50B 

8A 


TXA 


F50C 

A4 

93 

LOY 

S93 

FSOE 

FO 

oc 

BEO 

SFS1C 

F510 

AO 

00 

LOY 

«soo 

F512 

01 

AE 

CMP 

(SAE).Y 

F514 

FO 

08 

BEQ 

SF51E 

F516 

A9 

10 

LDA 

«tio 

F51S 

20 

IC FE 

JSR 

SFE1C 

F51B 

2C 


.BYTE S2C 

F51C 

91 

AE 

STA 

(SAE).Y 

F51E 

E6 

AE 

INC 

SAE 

F520 

00 

02 

BNE 

SFS24 

F522 

E6 

AF 

INC 

SAF 

F524 

24 

90 

BIT 

S90 

F526 

SO 

CB 

BVC 

SF4F3 

F528 

20 

EF ED 

JSR 

SEDEF 

F52B 

20 

42 F6 

JSR 

SF642 

F52E 

90 

79 

BCC 

SFSA9 

F530 

4C 

04 F7 

JHP 

SF704 




r**« 

'***« 



FS33 

4A 



LSR 

A 

FS34 

BO 

03 


BCS 

SF539 

FS36 

4C 

13 

F7 

JMP 

SF713 

FS39 

20 

00 

F7 

JSR 

SF7D0 

F53C 

BO 

03 


BCS 

SF541 


F53E 

4C 

13 

F7 

JMP 

SF713 

FS41 

20 

17 

F8 

JSR 

SF817 

F544 

BO 

68 


BCS 

SFSAE 

FS46 

20 

AF 

FS 

JSR 

SFSAF 

FS49 

AS 

B7 


LDA 

SB7 


Akku in X-REG retten 
Status testen 
Tiaie-out 

Bit ins Carry schieben 
falls Fehler, dem abbrechen 
ansonsten Akku wiederholen 
Load/Verify Flag testen 
gleich Null, dann LDAD 
Zähler auf Null setzen 
Verify, Vergleich 
verzweige falls gleich 
Bit 4 für Status setzen 
Status setzen 
Skip nach Sf51E 
Byte abspeichern 
LOU-Byte der Adresse erhöhen 
verzweige falls kein Übertrag 
ansonsten HIGH-Byte erhöhen 
Status prüfen 

verzweige wenn nach kein EOI 
UHTALK senden 
File schlieBen 
vezweige wenn kein Fehler 
'FILE NOT FOUND' 


GerätenMiner feststellen 
eins (Band) , dann weiter 
RS 232, 'ILLEGAL DEVICE 
NUMBER' 

Bandpuffer Startadresse holen 
verzweige wenn HIGH-Byte der 
Bandpufferstartadresse gröSer/ 
gleich 2 

sonst 'ILLEGAL DEVICE NUMBER' 
wartet auf Play-Taste 
STOP-Taste, dann Abbruch 
'SEARCHING' ( 'for name'} 
ausgeben 

Länge des Filenmens laden 




SIS 


64 Inlern 


F56B FO 09 B£Q »F556 

F56D 20 EA F7 JSR SF7EA 

F550 90 OS BCC SFSSD 

FSS2 FD 5A BEO SF5AE 

F556 BO DA BCS SF530 

F556 20 2C F7 JSR $F72C 

FSS9 FO 53 BEO SF5AE 

F55B BO 03 BCS $F53D 

FS5D AS 90 LOA $90 

F5SF 29 10 AHO «$10 

F561 3S SEC 

F562 00 6A BHE SFSAE 

FS64 EO 01 CPX «SOI 

F566 FO 11 BEO $F579 

FS6S EO 03 CPX «$03 

F5&A DO 00 BNE SF549 

FS6C AO 01 LOY «SOI 

FS6E Bl B2 LOA ($B2).Y 

F570 es C3 STA $C3 

F572 CB INY 

FS73 B1 B2 LOA ($B2).y 

F575 S5 C4 STA $C6 

F577 BO 06 BCS $FS7D 

F579 A5 B9 LOA $B9 

FS76 00 EF BNE SF56C 

FS70 AO 03 LOY «$03 

F57F B1 B2 LDA ($B2).Y 

F561 AO 01 LOY «SOI 

FS83 Fl B2 SBC ($B2},Y 

F58S AA TAX 

FS86 AO 06 LOT «$06 

U9A (SB2),Y 


verzMeiB« wenn Nut l 
geMünschten Bandheader suchen 
verzweige wenn gefunden 
STOP'Taste, dann Abbruch 
EOT, ctam 'FILE HOT FOUHD' 
nüchsten Bandheader suchen 
STOP'Taste, dam Abbruch 
'EOT>. dam 'FILE NOT FOUHD' 
Status holen 
EOP-Bit ausblenden 
Carry sl (Fehlerkennzeichen} 
verzweige falls Fehler 
Header-Typ 1 > BASIC- 
Progremn (verschiebbar) 
verzweige wenn Header-Typ s1 
3 s Maschinen-Progrann 
(absolut) 

verzweise wenn nicht 3 
(falscher Header) 

Zeiger setzen 

LOU-Byte Startadresse holen 
und speichern 
Zeiger erhöhen 
HIGH*Byte Startadresse holen 
law) speichern 
unbedingter Sprung 
Sekundar-Adresse 
ungleich Null, dann nicht 
verschi^iwr ladan 
Zeiger setzen 

LOU-Byte der Endadresse»! des 
Progranns holen 
Zeiger auf LOW-Byte Anfangs 
adresse setzen 
von Endadresse subtrahieren 
Ergebnis ins X-REG schieben 
Zeiger auf HIGH-Byte der 
Endadresse setzen 
Endadresse holen 


FS88 61 BZ 
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F58A 

AO 02 

LOY «S02 

F5SC 

F1 B2 

SBC fSB2} 

FS8E 

AB 

TAY 

FS8F 

18 

CLC 

FS90 

SA 

TXA 

F591 

65 C3 

ADC SC3 

FS9J 

85 AE 

STA SAE 

F595 

98 

TYA 

FS96 

65 C« 

ADC SC4 

F598 

85 AP 

STA SAF 

FS9A 

A5 C3 

IDA SC3 

F59C 

85 CI 

STA SCI 

FS9E 

A5 C4 

LOA SC4 

F5A0 

85 C2 

STA SC2 

F5A2 

20 02 F5 

JSR SF5D2 

F5A5 

20 4A F8 

JSR SF84A 

FSA8 

24 

.BYTE S24 

F5A9 

18 

CLC 

fsaa 

A6 AE 

LDX SAE 

F5AC 

A4 AF 

LOY SAF 

FSAE 

60 

RTS 


Zeiger auf Startadresse 
setzen 

und von Endadrasse Siibtrahie 
ren 

Ergetxiis ins Y-REG schieben 
Carry für Addition löschen 
LOU-Byte dar Programilänge 
in Akku schieben 
Mit LOU-Byte der Anfangs 
adresse addieren 
als LOU-Byte der Endadresse 
speichern 

HIGH-Byte der Progranalange 
in Akku schieben 
mit HlCH'Byte Anfangsadresse 
addieren 

als HIGN-Byte Endadresse 

speichern 

Startadresse 

nach SCI 

und SC2 

bringen 

■LOADIHG* / 'VERIFYING' 
ausget^ 

Prograimi von Band laden 

Skip nach SF5AA 

Carry -0 (ok Kennzeichen) 

Endadresse 

nach X/Y 

Rücksprung 

■SEARCHIHG FOR' (Filenane) 
ausgeben 


Einsprung von SF39E, SF4C1, SF546 


F5AF 

A5 

90 

LOA 

Direkt-HoduS'Fleg laden 

FSB1 

10 

IE 

BPL SF50T 

verzweige wenn Bit 7 =0 

(Progra^'Node) 

F5B3 

AO 

OC 

LOY #SOC 

Offset für ’SEARCHING' 
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F5S5 

20 

2F 

Fl 

JSR $F12F 

HeldiAtg ausgeben 

Fsee 

A5 

B7 


LOA tB7 

Lange de« Filenn<e«is 

F5BA 

FO 

15 


BEQ SF5D1 

gleich Null, dann fertig 

F5BC 

AO 

17 


LOY «S17 

Offset für 'FOR' 

F5BE 

20 

2F 

Fl 

JSR SF12F 

Heldung ausgeben 

Einsprung 

von SF698 


F5C1 

U, 

B7 


LDY S87 

Ltnge des Filenamns 

FSC3 

FO 

OC 


BEQ SF501 

gleich Null, dann fertig 

F5C5 

AO 

00 


LDY *tOO 

Zähler setzen 

F5C7 

B1 

BB 


LOA (SBB},Y 

Fitenosien holen 

F5C9 

20 

D2 

FF 

JSR SFF02 

wd ausgeben 

F5CC 

CB 



INY 

Zähler erhöhen 

FSCO 

C4 

B7 


CPY SB7 

mit Länge des Filenaaiens ver 
gleichen 

F5CF 

DO 

F6 


BNE SF5C7 

verzMeige wenn noch nicht 
alle Buchstaben 

FS01 

60 



RTS 

RUcksprurtg 


■LOADING/VERIFYING' Busgeben 


Einspruttg von SF4F0, SF5A2 


F502 

AO 49 

LDY «S49 

Offset für 'LOADING' 

F506 

AS 93 

LDA S93 

Load/Verify-Flag laden 

F506 

FD 02 

BEQ SF5DA 

Load wenn 0, dann ausgeben 

FSDS 

AO 59 

LDY #S59 

sonst Offset für 'VERIFTING' 

F5DA 

4C 2B 

Fl JHP SFiaB 

Neldir)« ausVetenr Rüctcsprung 

*******••••••***********••• 

Einsprung von $FFDB 

SAVE • Routine 

F5DD 

86 AE 

STX SAE 

LOU'Byte der Endedresse 
speichern 

FSOF 

84 AF 

STV SAF 

High'Byte der Endadresse 
speichern 

F5E1 

AA 

TAX 

Zeiger auf Anfsngsadress* 

tabetle ins X-RE6 schteben 
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F5E2 

B5 

00 


LOA 

soo,x 

F5EA 

85 

CI 


STA 

SCI 

FSE6 

B5 

01 


LDA 

S01,X 

F5E8 

85 

C2 


STA 

SC2 

F5EA 

6C 

32 

03 

JHP 

(S0332> 

Einsprung 

von SFSEA 


F5E0 

A5 

BA 


LDA 

SBA 

FSEF 

00 

03 


BNE 

SF5F4 

F5F1 

4C 

13 

F7 

JHP 

SF713 

F5F4 

C9 

03 


CNP 

M03 

FSF6 

FO 

F9 


BEQ 

SF5F1 

FSF8 

90 

5F 


BCC 

SF6S9 

F5FA 

r***< 

A9 

r**« 

61 

'*••11 

LDA 

#$61 

F5FC 

85 

B9 


STA 

$89 

F5FE 

A4 

B7 


LDY 

SB7 

F600 

DO 

03 


BNE 

SF605 

F602 

4C 

10 

F7 

JHP 

SF710 

F605 

20 

05 

F3 

JSR 

SF3D5 

F608 

20 

8F 

F6 

JSR 

SF68F 

F60B 

A5 

BA 


LDA 

SBA 

F60D 

20 

OC 

ED 

JSR 

SEOOC 

F610 

AS 

B9 


LDA 

SB9 

F612 

20 

B9 

ED 

JSR 

SEDB9 

F615 

AO 

00 


LOY 

fSOO 

F617 

20 

8E 

FB 

JSR 

SFB8E 

F61A 

A5 

AC 


LDA 

SAC 

F61C 

20 

DD 

ED 

JSR 

SEDOO 

F61E 

A5 

AD 


LDA 

SAD 

F621 

20 

DD 

ED 

JSR 

SEDDD 

F624 

20 

Dl 

FC 

JSR 

SFOII 

F627 

BO 

16 


BCS 

SF63F 

F629 

Bl 

AC 


LDA 

(SAO.Y 

F62B 

20 

00 

ED 

JSR 

SEDDD 


LflW-Byte der Startadresse 
holen und speichern 
HIGH-Byte der Startadresse 
holen laid speichern 
SAVE-Vektor, JHP SF5ED 


Gerateadresse laden 
verzweige wenn nicht gleich 0 
sonst 'ILLEGAL DEVICE NUMBER' 
■ it Code für Bildschirm 
vergleichen 

wenn Bildschirm, dann Fehler 
kleiner 3, dann verzweige 

Speichern auf lEC-Bus 
Sekundäradresse 1 
setzen 

Länge des Filensnens laden 
ungleich Null, dann ok 
sonst 'HISSING FILENAME' 
Filenamen auf lEC-Bus 
'SAVtNG' ausgeben 
Geräteadresse laden 
und LISTEN senden 
Sekutdäradresse laden 
und für LISTEN senden 
Zähler auf Null setzen 
Startadresse nach SAC/SAD 
Startadresse LOU- 
Byte senden 
ind HIGH- 
senden 

Endadresse schon erreicht 7 
ja, dann fertig 
Prograamäjyte laden 
auf IEC-Bus ausgeben 
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F42E 

20 El FF 

JSR SFFE1 

SToP'Taste abfragen 

F«31 

DO 07 

6NE SF63A 

nicht gedrOckt, dem 

wcitermaehen 

Einspruns von SF4FE 


F633 

20 42 F6 

JSS SF642 

lEC'BiM Kanal sehlieBen 

F636 

A9 00 

LDA #$00 

Kemzeiehnung für 'BREAK* 

F63S 

38 

SEC 

Carry =1 (Fehlerkennzeichen> 

F639 

90 

RTS 

Rücksprung 

F&3A 

20 DB FC 

JSR SFCDB 

laufende Adresse erhöhen 

F630 

00 ES 

BHE SF624 

letbedingter Sprung 

F63F 

20 FE ED 

JSR SEDFE 

UNLISTEN senden 

*************************** 

File auf lEC-Bus sehlieBen 

Einsprung von SF2EE, SF52B, 

SF633 

F642 

24 B9 

BIT SB9 

Sekundsradresse testen 

F6U 

30 11 

BHI SF6S7 

verzweige falls keine 

Sekundaradresse 

F646 

AS BA 

LDA SBA 

Geräteadresse Laden 

F64B 

20 OC ED 

JSR SEOOC 

und LISTEN seriden 

F64B 

AS B9 

LDA SB9 

Sekundsradresse laden 

F640 

29 EF 

AND «$EF 

Sekundäradresse 

F64F 

09 EO 

DRA «SED 

für CLOSE berechnen 

F651 

20 B9 ED 

JSR SEDB9 

und ausgeben 

Einsprung von SF406 


F654 

20 FE ED 

JSR SEDFE 

UNLISTEN senden 

F657 

18 

CLC 

Carry sQ (ok Kennzeichen) 

F658 

60 

RTS 

Rücksprung 

F659 

4A 

LSR A 

Bit 0 ins Carry schieben 

F65A 

BO 03 

BCS SF6SF 

falls gesetzt, dann zu Band 

F65C 

4C 13 F7 

JHP SF713 

sonst RS-232, 'ILLEGAL DIVtCE 

NIWBER' 

F65F 

20 DO F7 

JSR SF7DD 

Bandpiffer Startadresse holen 
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F662 

90 8D 


BCC tFSFI 

ftUs H!GH-Byte der Band 

Pufferstartadresse kleiner 2 

dann 'ILLEGAL DEVICE NUHBER' 

F664 

20 38 

f8 

JSR 8F838 

wartet auf Record 8 Ptay- 

TasTe 

F667 

BO 25 


BCS SF68E 

STOP, dann Abbruch 

F669 

20 8f 

F6 

JSR tF68F 

■SAVtNG* (Hane) ausgeben 

F66C 

A2 03 


LDX ms 

Header-Typ 3 ^ Haschinen 
prograim (absolut) 

F66E 

A5 89 


LOA 889 

Sekundäradresse leden 

f670 

29 01 


AND «SOI 

Bit 0 gesetzt (1 oder 3) 

F672 

DO 02 


BNE SF676 

falls ja, dann Haschinen 
programn 

F676 

A2 01 


LDX «SOI 

Header-Typ 1 > BASIC- 
Progranm (verschiebbar) 

F676 

8A 


TXA 

Header in Akku schieben 

F677 

20 6A 

F7 

JSR SF76A 

Header auf Band schreiben 

F67A 

80 12 


BCS SF68E 

Ausspririg bei Stop-Taste 

F67C 

20 67 

F8 

JSR SF867 

ProgrsMn auf Sand schreiben 

F67F 

80 OD 


BCS SF68E 

Aussprur>g bei Stop-Taste 

F601 

A5 89 


LOA SB9 

Sekundaradresse laden 

F683 

29 02 


AND «S02 

Bit 1 gesetzt (2 oder 3) 

F685 

FO 06 


BEO SF680 

falls nicht, dann fertig 

F687 

A9 05 


LDA «805 

EOT Kontrotlbyte 

F689 

20 6A 

F7 

JSR SF76A 

Block auf Band schreiben 

F68C 

24 


.BYTE S24 

Skip zu SF68E 

F68D 

18 


CLC 

Carry ^0 (ok Kennzeichen) 

F68E 

60 


RTS 

Rückspruig 


■SAVING* ausgeben 

Emprung von iF608, $P669 


F6SF 

AS 90 


LDA S% 

Flag für Direktnodus laden 

F691 

10 FB 


BPL SF68E 

Bit 7 gelöscht, dann 

Programn-Hode 

F693 

AO 51 


LOY «851 

Offset für 'SAVIHG' 

F695 

20 2F 

Fl 

JSR 8F12F 

Heldixtg ausgeben 

F698 

n 

n 

F5 

JHP SF5C1 

Fi lenamen ausgeben, 

Rücksprung 
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UDTtH Time erhöhen und 
STOP-Teste abfregen 


Einsprung von SFFEA 


F69B 

A2 

00 

LOX 

«soo 

F690 

E6 

A2 

INC 

SA2 

F69F 

00 

06 

BNE 

SF6A7 

F6A1 

E6 

AI 

INC 

SA1 

F6A3 

00 

02 

BNE 

SF6A7 

F6A5 

E6 

AO 

INC 

SAD 

F6A7 

38 


SEC 


F6AS 

AS 

A2 

LOA 

tA2 

F6AA 

E9 

01 

SBC 

«SOI 

F6AC 

AS 

AI 

LOA 

SAI 

F6AE 

E9 

1A 

SBC 

#S1A 

F6B0 

AS 

AO 

LOA 

SAO 

F6e2 

E9 

6F 

SBC 

«S4F 

F6B6 

90 

06 

BCC 

SF6BC 

F6B6 

86 

AO 

STX 

SAO 

F6B8 

66 

At 

STX 

SA1 

F6BA 

86 

A2 

STX 

SA2 




Einspna>g von SF8CA, SFE5E 


F6BC 

AD 

01 

DC 

LDA SDC01 

F68F 

CD 

01 

DC 

CNP SDC01 

F6C2 

00 

f8 


BNE SF6SC 

F6C6 

AA 



TAX 

F6CS 

30 

13 


BMI SF6DA 

F6C7 

A2 

BD 


LDX «SBD 

F6C9 

BE 

00 

DC 

STX SDCOO 

F6CC 

AE 

01 

DC 

LDX SDC01 

F6CF 

EC 

01 

DC 

CPX SDC01 


X-REG auf Null setzen 
Sekundenzeiger erhöhen 
verzweige falls kein Überlauf 
Minutenzeiger erhöhen 
verzweige falls kein Überlauf 
Stundenzeiger erhöhen 
Carry für Subtraktion löschen 
Stundenzeiger laden 
feststellen 
ob 
26 

Stunden 

erreicht 

falls kleiner, dann verzweige 

alle 

Zeiger 

auf Null setzen 

Abfrage auf STOP-Taste direkt 
vom Port 


Port B laden 
und 

entprellen 

Wert ins X-REG schieben 
verzweige falls STOP-Taste 
nicht gedrückt 
Bitinuster ztr Abrage der 
Reihe mit SHIFT-Tasten 
in Port A schreiben 
Port B laden 
und 
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F602 

DO F8 

BNE SF6CC 

entprellen 

F604 

6D 00 OC 

STA SDCQO 

Akku in Port A schreiben 

F607 

E8 

IHX 

Inhalt von Port B erhöhen 

F608 

DO 02 

BNE SF60C 

verzweige falls ungleich Null 
(SHIFT-Taste gedrückt) 

F60A 

85 91 

STA S91 

Flag für Stop-Taste setzen 

FÖDC 

60 

RTS 

Rücksprung 

Einsprung von SFFDE 

TIME holen 

F6DD 

78 

SEI 

Interrupt verhindern un Uhr 

anzuhalten 

F60E 

A5 A2 

LDA SA2 

Stunden 

F6E0 

A6 AI 

LDX SA1 

Minuten 

F6E2 

A4 AO 

LOT SAO 

Sekunden holen 

Einsprung von SFFDB 

TIME setzen 

F6E4 

78 

SEI 

Interrupt verhindern us Uhr 

anzuhal ten 

F6E5 

85 A2 

STA SA2 

Stunden 

F6E7 

86 AI 

STX SA1 

Minuten 

F6E9 

84 AO 

STT SAO 

Sekunden schreiben 

F6EB 

58 

CLI 

Interrupt wieder ermöglichen 

F6EC 

60 

RTS 

Rücksprung 

******•••••*•••••********** 

Einsprung von SFFE1 

STOP-Taste abfragen 

F6ED 

A5 91 

LOA S91 

STOP-Flag laden 

F6EF 

C9 7F 

CFP »S7F 

auf Code für STOP testen 

F6F1 

DO 07 

BNE SF6FA 

verzweige falls nicht 

F6F3 

08 

PHP 

Statusregister retten 

F6F4 

20 CC FF 

JSR SFFCC 

Ein-Ausgabe zurüeksetzen 

CLRCH 
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F6F7 

Si C6 

STA SC6 

Anzahl der gedruckten Tasten 

F6F9 

26 

PLP 

Statusregister holen 

FdFA 

60 

RTS 

ROckspnng 


Heldkvtgen des Betriebs 
systesis eusoeben 


Einsprung von SF35F 


F6FB A9 91 

F6FD 2C 

LOA iSOI 

.BYTE S2C 

■TOO NAHY FILES* 
Skip zu SFTOO 

Einsprung von $F3S6 


F6FE A9 02 

F70O 2C 

LDA iS02 

.BYTE S2C 

■FILE OPEN’ 

Skip zu SF703 

Etnsprung von 

$F213, »F255 


F701 A9 03 

F703 2C 

LDA «603 

.BYTE S2C 

■FILE NOT OPEH^ 

Skip zu SF706 

Einsprung von 

SF3tAC. SF530 


F704 A9 06 

F706 2C 

LOA m04 

.BYTE S2C 

■FILE NOT FOUND^ 

Skip zu SF709 

Einsprisig von 

$F26D, SF28E, 

SF3F3 

F707 A9 05 
F709 2C 

LOA «SOS 

.BYTE S2C 

•DIVICE MOT PRESENT 
Skip zu SF7DC 

Etnsprung von SF230, $F36E 


FTtM A9 06 

F70C 2C 

LOA «S06 

.BYTE SEC 

■NOT «IPUT FILE^ 

Skip ZU SF70F 
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Einsprung von SF25F 


F70D 

A9 07 

LOA «$07 

■NOT OUTPUT FILE' 

F70F 

2C 

.BYTE S2C 

Skip zu $F712 

Einsprurig von SF4BC, SF602 


F710 

A9 06 

LOA «$08 

■NtSSIHG FILENAME' 

F712 

2C 

.BYTE $2C 

Skip zu $F715 

Einspncig von SF390, SF4AF, 

$F536. $F53E, $F5F1, $F65C 

F713 

A9 09 

LOA «$09 

■ILLEGAL OEVICE NUMBER' 

F715 

46 

PHA 

FehternuMcer merken 

F716 

20 CC FF 

JSR SFFCC 

Ein-Ausgabe zurücksetzen 

CLRCH 

F719 

AO 00 

LOY «$DD 


F71B 

24 90 

BIT $90 

Flag auf Direkt-Hode testen 

F71D 

50 OA 

BVC $F729 

nicht gesetzt, dann übergehen 

F71F 

20 2F F1 

JSR $F12F 

■1/0 ERROR «' ausgeben 

F722 

66 

PLA 

Fehlernunner holen 

F723 

46 

PHA 

und wieder merken 

F724 

09 30 

DRA «$30 

nach ASCII wandeln 

F726 

20 02 FF 

JSR $FFD2 

und ausgeben 

F729 

66 

PLA 

Fehlernunner holen 

F72A 

36 

SEC 

Carry >1 (Fehlerkennzeichen) 

F72B 

60 

RTS 

Rücksprung 




Programn Header vorn Band 

lesen 

Einspncig von SF3AF, SF5S6, 

$F7EA 

F72C 

AS 93 

LOA $93 

Load/Verify Flag laden 

F72E 

46 

PHA 

ictd retten 

F72F 

20 41 F8 

JSR $FB41 

Block vom Band lesen 

F732 

66 

PLA 

L/V Flag wiederholen 

F733 

65 93 

STA $93 

urxl speichern 

F735 

BO 32 

BCS $F769 

Fehler, dann beenden 

F737 

AO 00 

LOY «$00 

Zähler auf Null stellen 
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F739 

Bl 

BZ 

LOA (tB2),V 

Header*Typ testen 

F73B 

C9 

05 

CMP «$05 

EOT 7 

F730 

FO 

2A 

BEO SF769 

verzweige falls ja 

F73F 

C9 

01 

CHP »S01 

BASlC'Prograan ? 

F761 

FO 

08 

BEQ SF74B 

verzweige falls ja 

F743 

C9 

03 

CHP #$03 

Hasehfnenprograniii ? 

F765 

FD 

04 

BEO SF74B 

verzweige falls ja 

F747 

C9 

04 

CHP #$04 

Daten-Header ? 

F749 

00 

El 

BME $F72C 

kein Reader gefunden, dann 

erneut suchen 

F74B 

AA 


TAX 

Kennzeichen merken 

F74C 

24 

90 

BIT SW 

Oirektmodus 7 

F74E 

10 

17 

BPL SF767 

nein, dann weiter 

F750 

AO 

63 

LOY #S6S 

Offset fOr 'FOUHD' 

F752 

20 

2F Fl 

JSR SF12F 

Held(v>g ausgeben 

F755 

AO 

05 

LOY «$05 

Zeiger euf Filenemen 

F757 

Bl 

B2 

LOA (SB2),Y 

Filenatnen holen 

F759 

20 

02 FF 

JSR $FF02 

und auegeben 

F7SC 

C8 


INY 

Zeiger erhöhen 

F7S0 

CO 

15 

CPY #S15 

schon eile Buchstaben 

F75F 

00 

F6 

BNE SF757 

verzweige wenn nein 

F761 

AS 

A1 

LOA SA1 

Akku mit mittelwertigem 

Ti me-Byte laden 

F763 

SO 

EO E4 

JSR SE4E0 

wartet auf CoMiiodore-Taste 
oder Zeitschleife 

F766 

EA 


MOP 

no Operation 

F767 

IS 


CLC 

Carry >0 (ok Kennzeichen) 

F7&B 

es 


DEY 

Y-REG euf $FF zur Kennzefch 





nu>g, daS kein EOT 

F769 

so 


RTS 

Rückspr^ 


He«(t*r generieren und euf 
Bend schreiben 


Einsprung von SF2E8, SF3BF, SF677, sr689 


F76A 

85 9E 

STA S9E 

Header-Typ speichern 

F76C 

20 OO F7 

JSR SF7D0 

Bandpufferadresse holen 

F76f 

90 5E 

BtX $F7CF 

verzweige falls Adresse 
ungültig 
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F771 

AS 

CZ 

LDA 

SCZ 

F773 

4a 


PHA 


Fm 

A5 

CI 

LDA 

SCI 

F776 

48 


PHA 


F777 

AS 

AF 

LDA 

SAF 

F779 

48 


PHA 


f77A 

AS 

AE 

LDA 

SAE 

F77C 

48 


PHA 


F77b 

AO 

BF 

LDV 

MBF 

F77F 

A9 

20 

LDA 

M20 

F781 

91 

B2 

STA 

<SB2>,Y 

F7B3 

88 


DEt 


F7M 

DO 

FB 

BNE 

SF781 

F786 

AS 

9E 

LDA 

S9E 

F788 

91 

B2 

STA 

(SB2).Y 

F78A 

C8 


INY 


F788 

AS 

CI 

LDA 

SCI 

F79D 

91 

BZ 

STA 

(SBZ),Y 

F78F 

C8 


INT 


F7W 

AS 

C2 

LDA 

SCZ 

Fm 

91 

BZ 

STA 

(SB2),Y 

F794 

C8 


INT 


F795 

AS 

AE 

LDA 

SAE 

F797 

91 

82 

STA 

(SBZ>.Y 

A799 

C8 


IHY 


F79* 

AS 

AF 

LDA 

SAF 

F7VC 

91 

BZ 

STA 

(SB2).Y 

F79B 

C8 


IHY 


F79F 

84 

9F 

STY 

S9F 

F7A1 

AO 

00 

LDY 

«soo 

F7A3 

84 

9E 

STY 

S9E 

F7A5 

A4 

9E 

LDY 

S9E 

F7A7 

C4 

87 

CPY 

SBT 

F7A9 

FO 

oc 

BEO 

Sf7B7 


Startadres&e 
laden 
und i n 

Stack schreiben 
Endadresse 
laden 
und in 

Stack schreiben 
Pufferlänge für Schleife 
holen 

Code für • ' laden 
und speichern 
Zähler verringern 
verzweige falls Puffer noch 
nicht alles geläscht 
gespeicherten Header'Typ 
holen 

ird in Puffer schreiben 
Zähler erhüben 
Startadresse LOU holen 
und in Puffer schreiben 
Zähler erhüben 
Startadesse HICH holen 
uid in Puffer schreiben 
Zahler erhöhen 
Endadresse LOU holen 
und in Puffer schreiben 
Zähler erhöhen 
Endadresse HIGH holen 
und in Puffer schreiben 
Zähler erhöhen 
Zähler speichern 
Zähler für Pilenaiten auf Null 
setzen 

und speichern 
Zähler holen 

und Mit Länge des Fllcnanens 
vergleichen 

verzweige felis alle Buchsta* 
ben geholt 
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F7AB 

Bl 

BB 

LDA 

(SBB},Y 

F7A0 

A4 

9F 

LDV 

S9F 

F7AF 

91 

B2 

STA 

(SB2),Y 

F7B1 

E6 

9E 

INC 

S9E 

F7B3 

E6 

9F 

INC 

S9F 

F7B5 

DO 

EE 

BNE 

SF7A5 

F7B7 

20 

07 F7 

JSR 

$F7D7 

F7BA 

A9 

69 

LDA 

il«69 

F7BC 

85 

AB 

STA 

SAB 

F7BE 

20 

68 F8 

JSR 

SF86e 

F7C1 

A8 


TAT 


F7C2 

68 


PLA 


F7C3 

85 

AE 

STA 

SAE 

Frc5 

68 


PLA 


F7C6 

85 

AF 

STA 

SAF 

F7C8 

68 


PLA 


F7C9 

85 

CI 

STA 

SCI 

F7CB 

68 


PLA 


F7CC 

85 

C2 

STA 

$C2 

F7CE 

98 


TYA 


F7CF 

60 


RTS 



••••••••••••••••••••••••••• 


FilenaMen holen 
Pufferzeiger laden 
und Zeichen in Puffer schrei¬ 
ben 

Zähler für Filenamen erhähan 
Zeiger auf Bandpuffer erhöhen 
iF^dingter Sprung 

Start* und Endadresse auf 
Bandpuffer holen 

Checksume für Header bzw. 

Datenblock « S69 

Block auf Band schreiben 

Akku retten 

Endadresse 

von Stack 

holen iivf 

in SAE/SAF speichern 
Startadresse 
von Stack 
holen (fid 

in SC1/C2 speichern 
Akku wiederholen 
Rückspruitg 

Bandpuffer Startadresse holen 
und prüfen ob gültig 


Einspri«>g von SF2CE, SF38B, SF539 ,SF6SF, SF76C, SF7D7 
sfbod 


F7D0 

A6 B2 

LDX 

SB2 

F7D2 

A4 B3 

LDY 

SB3 

F7D4 

CO 02 

CPY 

tllS02 

F706 

60 

RTS 



Anfang Bancpuffer LOW in X 
Anfang Bandpuffer HIGH in Y 
Adresse kleiner S200 ? 
Rücksprung 




Das ROM-Lisiing 


53J 


tafidpuffereodadresse = Puf¬ 
ferstartedresse + SCO (192> 


Efnsprur« von »F7B7, SFB47. SF866 


F7tl7 

20 DO F7 

JSR $F7D0 

Ban^ffersAdresse holen 

F7DA 

BA 

TXA 

Pufferanfang LCW in Akku 

F7De 

95 CI 

STA SCI 

und speichern 

FTDD 

16 

CLC 

Carry für Addition Löschen 

FTtE 

69 CO 

ADC «SCO 

Endadresse = Startadresse * 
länge SCO (192} 

F760 

65 AE 

STA SAE 

und Endadresse speichern 

F7t2 

98 

TVA 

Pufferanfang HIGH in Akku 

F7E3 

65 C2 

STA SC2 

und speichern 

F7E5 

69 00 

ADC «SOO 

mit Übertrag addieren 

F7E7 

65 AF 

STA SAF 

und speichern 

F7e9 

60 

RTS 

kticksprvsTg 


Bandheader nach Namen suchen 


Efnsprung von $F3AS. BF54D 


F7E* 

20 

2C F7 

JSR 

SF72C 

nächsten Bandheeder suchen 

FTO) 

BO 

10 

BCS 

SF80C 

verzweige falls EQT (fertig) 

F7EF 

AO 

05 

LOT 

«S05 

Offset für FiLcnanen im 

Header 

F7F1 

84 

9F 

STY 

S9F 

und speichern 

F7F3 

AO 

00 

LOY 

«SOO 

Zähler für Länge des Fi Lena- 

mens auf Hüll setzen 

F7f5 

64 

9E 

STY 

S9E 

und Zähler speichern 

F7F7 

C4 

B7 

CPT 

SB7 

mit Länge des gesuchten 
Namens vergleichen 

F7F9 

FO 

10 

BE9 

SFBOB 

gleich, dann gefunden 

F7fB 

Bl 

BB 

LOA 

(SBB},Y 

Buchstaben des Filenamens 

F7FD 

A4 

9F 

LOY 

S9F 

Position fm Header laden 

F7FF 

01 

B2 

CHP 

(SB2),T 

mit Fitenenen im Header 

vergleichen 

F601 

OO 

Er 

BHE 

SF7EA 

verzweige falls ungleich, 

dann nächsten Header testen 

F803 

E6 

9E 

INC 

S9E 

Zähler für Filenamen erhöhen 
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F805 

E6 9F 

INC S9F 

F807 

A4 9E 

LOY S9E 

FS09 

00 EC 

BHE SF7F7 

F80B 

18 

CLC 

F80C 

60 

RTS 


•••••••••••••••••••••••••••• 


Einsprung von SF199, SF1E5 


F800 

20 00 F7 

JSR SF7O0 

F810 

E6 A6 

INC SA6 

F812 

A4 A6 

LOY $A6 

F814 

CO CO 

CPY «SCO 

F816 

60 

RTS 


Einsprung von SF399, SF541, 


F817 

20 

2E 

F8 

JSR 

SF82E 

F81A 

FO 

1A 


BEQ 

SF836 

F81C 

AO 

1B 


LOY 

IIIS18 

F81E 

20 

2F 

Fl 

JSR 

SF12F 

F821 

20 

00 

F8 

JSR 

SF8D0 

F824 

20 

2E 

F8 

JSR 

SF62E 

F827 

00 

F8 


BHE 

SF821 

F829 

AO 

6A 


LOY 

IIIS6A 

F82B 

4C 

2F 

Fl 

JHP 

SF12F 




Zeiger auf Position in Header 
erheben 

Zähler für Filenanen laden 
irfbedingter Sprung 
Carry «0 (ok Kennzeichen) 
Rücksprung 

Sandpufferzeiger erhöhen 


Bandpufferadresse holen 

Zeiger erhöhen 

und laden um 

mit Haximaiwert (192) zu 

vergleichen 

Rücksprung 

Wartet auf Bandtaste 

SFS6A 

fragt BandtTaste ab 
gedrückt, dann fertig 
Offset für 'PRESS PLAY ON 
TAPE' 

und ausgeben 

testet auf STOP-Taste 

fragt BandtTaste ab 

nicht gedrückt so erneut 

abfragen 

Offset für 'OK' 

und ausgeben, Rücksprung 

Abfrage ob Band-Taste 
gedrückt 


Einsprung von SF617 ,SFS24, SFS38 


FS2E A9 10 


LOA #S10 Bit 4 testen 
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Faso 

26 01 

BIT S01 

mit Port vergleichen 

m2 

DO 02 

BNE $F836 

verzweige wenn Bandtaste 
nicht gedrückt 

F834 

26 01 

BIT f01 

nochmal abfragen (Entprellen) 

F836 

16 

CLC 

Carry *0 (ok Kennzeichen) 

Fe37 

60 

RTS 

RCickspriaig 


Wartet auf Bandtaste für 
Schrefben 


Einsprung von $F3BS, SF664, $F868 


F838 

20 

2E F8 

JSR $F62E 

fragt Bandtaste ab 

F83B 

FO 

F9 

BEO $F836 

gedrückt, dann fertig 

F830 

AO 

2E 

LDT lll$2E 

Dffset für 'PRESS RECDRD 6 





PlAY ON TAPE' 

F83F 

DO OD 

BHE SF61E 

unbedingter Sprung 


r***B 



Block vom Band lesen 

Einsprung von SF19E, SF72F 


F861 

A9 

00 

LDA «$00 

Status 

Fe63 

65 

90 

STA S90 

und Verify-Flag 

Fe6S 

65 93 

STA S93 

löschen 

Fe67 

20 D7 F7 

JSR SF7D7 

Bandpijfferadresse holen 




Programn vom Band laden 

Einsprung 

von BF5A5 


F86A 

20 

17 F8 

JSR SF617 

wartet auf Play*Taste 

F86D 

BD 

1F 

BCS SF86E 

STDP-Taste gedrückt ? 

F86F 

78 


SEI 

Interrupt verhindern 

F650 

A9 

00 

LDA «SOO 

Arbeitsspeicher für IRQ- 





Routine löschen 

F852 

85 

AA 

STA SAA 

Eingabebvtespeicher <read) 

F856 

65 

B6 

STA SB6 

Band Hilfszeiger 

F656 

65 

BD 

STA SBO 

Kassetten Zeitkonstante 

F6S8 

65 

9E 

STA $9E 

Korrekturtühler Pass 1 
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FBSA 

85 9F 

STA S9F 

FB5C 

es 9C 

STA S9C 

F85E 

A9 90 

LOA «S90 

F660 

A 2 OE 

LDX «$0E 

F662 

DO 11 

BNE SFB75 


Einsprung von SP1EA, SF2D7 


FSM 

20 07 F7 

JSR 

SF7D7 

Einsprung von SF67C 


F867 

A9 16 

LOA 

«816 

F869 

85 AB 

STA 

SAB 


Einsprung 

von $F7BE 


F86B 

20 

38 FB 

JSR 

SF838 

FB6E 

BO 

6C 

BCS 

SF8DC 

F870 

78 


SEI 


Fa7i 

A9 

82 

LOA 

«S82 

FB73 

A2 

08 

LDX 

«SOS 

FB75 

AO 

7F 

LOY 

#S7F 

FB77 

8C 

00 OC 

STY 

SDCOO 

FB7A 

80 

OO OC 

STA 

SOCQO 

F87D 

AO 

OE OC 

LOA 

SOCOE 

FS80 

09 

19 

ORA 

IIIS19 

F882 

80 

OF OC 

STA 

SOCOF 

FBes 

29 

91 

AND 

#891 

F887 

80 

A2 02 

STA 

S02A2 


Xorrekturzahler Pass 2 
Flag für Byte emfngen 
BitMert IRQ an Pin 'Flag' 
HuMier des IRQ-Vektors« $F92C 
laibedingter Spriaig 

Bendpuffer auf Bend schreiben 


Bendpufferadresse holen 


Linge des Vorspems vor URIIE 
speichern 

Block bzu. Progrann auf Band 
schreiben 


wartet auf Record B Play 
Taste 

verzweige falls STOP*Taste 
gedrückt 

Interrupt verhindern 
Bitwert für IRQ bei Unterlauf 
von Tiner B 

Numer des IRQ-Vektors, SFC6A 
Bitwert für alle IROs sperren 
Wert schreiben 
und neu setzen 
Control Register A laden 
Bitwert für one shot, starten 
und ins Steuerregister für 
Tiner B 

Vergleichszeiger für Bandope¬ 
rationen entsprechend setzen 
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F88A 

20 

AA FO 

J8R 

SF0A4 

F880 

AD 

11 00 

LOA 

S0011 

F890 

29 

EF 

AND 

«SEF 

FB92 

80 

11 00 

STA 

SO011 

F895 

AD 

14 03 

LDA 

S031A 

F89S 

80 

9F 02 

STA 

S029F 

F896 

AO 

15 03 

LDA 

S0315 

F89E 

80 

AO 02 

STA 

S02A0 

F8A1 

20 

BO FC 

JSR 

SFCBD 

F8AA 

A9 

02 

LDA 

«S02 

F8A6 

85 

BE 

STA 

SBE 

FftAS 

20 

97 FB 

JSR 

SFB97 

FflAS 

AS 

01 

LDA 

S01 

F&IO 

29 

IF 

AND 

IFSIF 

FBAF 

85 

01 

STA 

SOI 

F8B1 

85 

CO 

STA 

SCO 

F8B3 

A2 

FF 

LOK 

IVSFF 

F&BS 

AO 

FF 

LOY 

IVSFF 

FBB7 

88 


DET 


F868 

DO 

FD 

BNE 

SF8B7 

F8BA 

CA 


DEX 


F8BB 

00 

F8 

BNE 

SF8B5 

F860 

58 


CLI 





Einsprung von $F8C0 


FOSE 

AD 

AO 

02 

LDA S02A0 

F8C1 

CD 

15 

03 

CMP S0315 

F8CA 

18 



CLC 

F8C5 

FO 

15 


BEQ SF80C 

F8C7 

20 00 

F8 

JSR SF8D0 

F8CA 

20 BC 

F6 

JSR SF6BC 

F8CD 

AC 

BE 

F8 

JHP SF8BE 


auf Ende RS-232 Übertragung 

warten 

Bildsehimi 

diiikel 

Tasten 

IRO-Vector 

nach S029F 

und SOZAO 

speichern 

IRO-Vektor für Band I/O 
setzen (X-Indiziert) 

Anzahl der 
zu lesenden Blöcke 
serielle Ausgabe vorbereiten 
Bit-Zihler setzen 
Prozessorport laden 
Banclnotor einschalten 
und wieder speichern 
Flag für Bandnoter setzen 
HIGH-Byte für Zähler 
LOU-Byte für Zähler 
Verzögerungsschieif e 
für Bandhechlaufzeit 
HICH-Byte veringern 
verzweige falls nicht Null 
Interrupt für Band I/O 
freigeben 

I/O AbechluB abwarten 


Band IRQ Vector mit normalem 
IRQ Vector vergleichen 
Carry =0 (ok Kennzeichen) 
verzweige falls ja (fertig) 
Testen auf Stop-Taste 
bei gedrückter Stop-Taste 
Flag setzen 
weiter warten 
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Ein$pri«)S von SFS21, SF8C7 


F8O0 

20 E1 FF 

JSR BFFEI 

F803 

18 

CLC 

Feo4 

00 OB 

BHE SF6E1 

F806 

20 93 FC 

JSR SFC93 

FÖDQ 

38 

SEC 

F80A 

68 

PLA 

F80B 

68 

PLA 

F80C 

A9 00 

LDA «$00 

F8DE 

60 AO 02 

STA S02AO 

F8E1 

60 

RTS 




Einsprung von SF9CB, SFAOA, 


F8E2 

86 B1 

STX 

SBI 

F8E4 

AS BO 

LDA 

SBO 

F8E6 

OA 

ASL 

A 

F8E7 

OA 

ASl 

A 

F8E6 

16 

CLC 


F8E9 

65 BO 

ADC 

SBO 

F8EB 

16 

ac 


F8EC 

65 Bl 

ADC 

SBI 

F8EE 

85 B1 

STA 

SBI 

F8F0 

A9 00 

LDA 

«soo 

F8F2 

24 BO 

BIT 

SBO 

F8F4 

30 01 

BMI 

SF8F7 

F8F6 

2A 

ROL 

A 

F8F7 

06 Bl 

ASL 

SBI 

F8F9 

2A 

ROL 

A 

F8FA 

06 Bl 

ASL 

SBI 

F8FC 

2A 

ROL 

A 


testet euf Stop-Teste 


Stop'Taste abfregen 
Carry »0 (ok Kennzeichen) 
verzweige wenn Taste nein 
gedrückt 

Band-Hotor aus, nornalen 
IRQ uiederherstellen 
Kennzei chen für Abbruch 
ROcksprung 
Adresse löschen 
Kennzei chen für noraialen 
IRQ setzen 
Rücksprtrg 

Band für Lesen vorbereiten 

$FA2A, $FA67 

X-Register speichern 

Timing-Konstante laden 

mit vier 

multiplizieren 

zur Addition Carry löschen 

mit altem Wert addieren (*5) 

zur Addition Carry löschen 

alten X Wert dazuaddieren 

und im Hilfszeiger speichern 

Akku löschen 

prüfe Timing'Konstante 

verzweige, falls gröBer 128 

Carry in die unterste 

Position des Akkus schieben 

und Timer A 

Initialisierung 

mit vier 

multiplizieren 
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f8fd 

AA 



TAX 


F0FE 

AD 

06 

OC 

LDA 

S0C06 

F901 

C9 

16 


CHP 

M16 

F903 

90 

F9 


BCC 

SF8FE 

F905 

65 

Bl 


ADC 

SB1 

F907 

BD 

04 

oc 

STA 

SDC04 

F9CtA 

aA 



TXA 


F90B 

60 

07 

OC 

ADC 

$DC07 

F90E 

80 

05 

oc 

STA 

SDC05 

F911 

AD 

A2 

02 

LDA 

$02A2 

F914 

80 

OE 

DC 

STA 

SOCOE 

F917 

80 

A4 

02 

STA 

S02A4 

F91A 

AD 

00 

DC 

LDA 

SOCDD 

F91D 

29 

10 


AND 

«S10 

F91F 

FO 

09 


BEO 

SF92A 

f921 

A9 

F9 


LDA 

«SF9 

F923 

AS 



PHA 


F924 

A9 

2A 


LDA 

«S2A 

F926 

48 



PHA 


F927 

4C 

43 

FF 

JHP 

SFF43 

F92A 

58 



CLI 


F92B 

60 



RTS 





F92C 

AE 07 OC 

LDX SOC07 

F92F 

AO FF 

LOT ASFF 

f931 

98 

TVA 

F932 

EO 06 OC 

SBC S0C06 

F93S 

EC 07 DC 

CPX SDC07 

F938 

00 F2 

BNE SF92C 

F93A 

86 B1 

STX S61 

F93C 

AA 

TAX 

F93D 

BC 06 OC 

8TY S0C06 

F940 

BC 07 PC 

STY SOC07 

F943 

A9 19 

LDA M19 


Akku fns X*B«9ister 
LOM'Byte Tiner B laden 
mit Si6 versleichen 
verzueige, wenn kleiner 
LOW-Byte fOr Initialisierif« 
addieren 

Timer A LOU speichern 
NISll'Byte für Initialisierung 
zu Timer B HICH eddieren 
und in Timer A HIGH schreiben 
Init. Uert für Band Zeitkon. 
zum Starten von Timer A 
Timer A Flag zurllcksetzten 
ICR laden 
Bit isolieren 

verzueige uenn IRQ nicht von 
Pin Flag 

Rücksprunosdresse 

auf 

Stack 

schieben 

zun Interrupt 

alle Interrupts freigeben 

Rücksprung 

Interri^t-Routine für Band 
lesen 

Tiner g HIGH laden 
y-Register mit SFF laden (für 
Tiner) 

in Akku schieben 
Tiner B von SFF abziehen 
Tiner B mit altem Wert 
vergleichen 

verzueige, falls vermindert 
Tiner B HIGH ablegen 
und in Akku schieben 
Timer B LOW und 
Tiaier B HIGH auf SFF setzen 
Arbeitsmo^ für Timer B 
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F945 

80 

OF DC 

STA 

SDCOF 

F948 

AD 

00 DC 

LOA 

SOCOO 

F94B 

80 

A3 02 

STA 

S02A3 

F94E 

98 


TYA 


F96F 

B 

Bl 

SBC 

S81 

F951 

86 

Bl 

STX 

S81 

F953 

4A 


LSR 

A 

F9S4 

66 

Bl 

ROR 

S81 

F956 

4A 


LSR 

A 

F957 

66 

Bl 

ROR 

SBI 

F959 

AS 

BO 

LOA 

SBO 

F95B 

18 


CLC 


F95C 

69 

3C 

AOC 

iK3C 

F95E 

CS 

81 

CMP 

SSI 

F960 

BO 

4A 

BCS 

SF9AC 

F962 

A6 

9C 

LDX 

S9C 

F964 

FO 

03 

BEQ 

SF969 

F966 

4C 

60 FA 

JHP 

SFA60 

F969 

A6 

A3 

LOX 

SA3 

F966 

30 

16 

BHI 

SF988 

F96D 

AZ 

00 

LOX 

«SOO 

F96F 

69 

30 

AOC 

«SSO 

F971 

6S 

BO 

AOC 

SBO 

F973 

CS 

Bl 

CNP 

S61 

F97S 

BO 

IC 

BCS 

SF993 

F977 

E8 


INX 


F97Ö 

69 

26 

AOC 

«S26 

F97A 

6S 

BO 

AOC 

SBO 

F97C 

CS 

61 

CMP 

SBI 

F97E 

BO 

17 

BCS 

SF997 

F980 

69 

2C 

AOC 

«S2C 

F982 

6S 

BO 

AOC 

SBO 

F984 

C5 

Bl 

CHP 

SBI 


festlegen und starten 
Interrupt Control Register 
laden und nach S02A3 
Y-REG in Akku (SFF) 
Errechnung von vergangener 
Zeit seit letzter Flanke 
vergangene Zeit LOU nach $B1 
vergangene Zeit 
HIGH 
geteilt 
durch vier 

Tiningkonstante laden 
und mit 
S3C addiert 

errechnete Zeit gröSer als 
die Zeit bei letzten Flanken 
verzweige, wenn gröBer 
Flag für ecnpfangenes Byte 
laden 

verzweige, falls Null (Byte 
nicht geladen) 
ansonsten nach SFA60 

Byte vollständig gelesen 
verzweige, falls ja 
Code für kurzer Impuls (XsO) 
zu errechneter Zeit mit SSO 
und mit Zeitkonstante 
addieren 

gröBer als Zeit beim letztem 
Flanken 7 

verzweige wenn gröBer 
sonst lartger lapuls (Xsl) 
und wieder S26 und 
Zeitkonstanten addieren 
jetzt gröBer 7 
verzweige, falls ja 
sonst wieder SZc und 
Zeitkonstante addieren 
vergangene Zeit noch länger 7 
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F986 

90 

03 

BCC 

$F98B 

F9S6 

4C 

10 FA 

JKP 

SFAIO 

F9BB 

AS 

B4 

LDA 

SB4 

F9a> 

FO 

ID 

BEO 

$F9AC 

F96F 

85 

A8 

STA 

SA8 

F991 

DO 

19 

BNE 

SF9AC 

F993 

E6 

A9 

INC 

SA9 

F995 

BO 

02 

BCS 

SF999 

Einsprung 

von SFA1C 


F997 

C8 

A9 

DEC 

SA9 

F999 

38 


SEC 


F99A 

E9 

13 

SBC 

#$13 

F99C 

ES 

Bl 

SBC 

$B1 

F99E 

65 

92 

ADC 

S92 

F9A0 

85 

92 

STA 

S92 

F9A2 

AS 

A4 

LOA 

SA4 

F9A4 

49 

01 

EOR 

«SOI 

F9A6 

85 

A4 

STA 

U4 

F9A8 

FO 

2B 

BEO 

SF9D5 

F9AA 

86 

D7 

STX 

SD7 

F9AC 

AS 

B4 

LDA 

SB4 

F9AE 

FO 

22 

BEO 

SF902 

F9B0 

AD 

A3 02 

LDA 

S02A3 

F9B3 

29 

01 

AND 

«S01 

F985 

00 

05 

BNE 

SF9BC 

F9B7 

AD 

A4 02 

LDA 

S02A4 

F9eA 

DO 

16 

BNE 

SF9D2 

F9BC 

A9 

00 

LDA 

«SOO 

F9BE 

85 

A4 

STA 

SA4 

F9C0 

80 

A4 02 

STA 

S02A4 


verzNetge, wenn jetzt kürzer 
zu wpfangenes Byte verarbeiten 

Flag für Tiner A laden 
verzweige, wenn Timer A nicht 
freigegeben 

Zeiger auf 'READ ERROR' 
setzen 

unbedingter Sprung 

Zeiger auf Inpulswechsel »1 
ifibedingter Sprung 


Zeiger auf Impulswechsel -1 
Carry für Subtraktion setzen 
Anfangswert ($13) und 
vergangene Zeit subtrahieren 
und mit Flag für Timing 
Korrektur addieren 
Ergebnis dort speichern 
Flag für Enpfang beider 
Iipulse invertieren 
und abspeichern 
verzweige wenn beide Inputse 
empfangen 

eapfangenes Signal speichern 
Flag für Timer A laden 
verzweige wenn Timer gesperrt 
ICR in Akku 
Bit 0 isolieren 
verzweige wenn Interrupt von 
Timer A 

Timer A abgelaufen 

nein, dann zum Interruptende 

Inpulszähler 

löschen ml 

Zeiger auf Timeout setzen 
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F9C3 

AS 

A3 

LDA 

SA3 

F9C5 

10 

30 

BPL 

SF9F7 

F9C7 

30 

BF 

BMI 

SF9B8 

F9C9 

AZ 

A6 

LDX 

MA6 

F9CB 

20 

E2 FS 

JSR 

BF8E2 

F9C6 

AS 

96 

LOA 

S9B 

F900 

00 

B9 

6HE 

$F98B 

F902 

AC 

BC FE 

JHP 

SFEBC 

F9D5 

AS 

92 

LDA 

S92 

F907 

FO 

07 

BEO 

$F9E0 

F909 

30 

03 

BMI 

BF90E 

F90B 

C6 

BO 

DEC 

sbo 

F9DD 

2C 


.BYTE B2C 

F9D£ 

E6 

60 

INC 

SBO 

F9E0 

A9 

00 

LDA 

«$00 

F9E2 

8S 

92 

STA 

$92 

F9EA 

EA 

07 

CPX 

$07 

F9E6 

DO 

OF 

BNE 

$F9F7 

F9E8 

8A 


TXA 


F9E9 

00 

AO 

BNE 

$F98B 

F9EB 

AS 

A9 

LOA 

$A9 

F9£0 

30 

60 

BMI 

$F9AC 

F9EF 

C9 

10 

CHP 

«S10 

F9F1 

90 

B9 

BCC 

$F9AC 

F9F3 

SS 

96 

STA 

$96 

F9F5 

BO 

B5 

BCS 

$F9AC 

F9F7 

SA 


TXA 


F9FS 

AS 

9B 

EOR 

$96 

F9FA 

SS 

9B 

STA 

$96 

F9FC 

AS 

BA 

LDA 

$BA 

F9FE 

FO 

D2 

BEQ 

$F902 

FAÜO 

C6 

A3 

DEC 

$A3 


pt-üfe ob Byte vollständig 
gelesen 

verzweige falls nein 
tfibedingter Spriaig 

Initialisierungsuert für 
Timer A 

Band zun Lesen vorbereiten 
Paritätsbyte in Akku 
verzweige falls parit. Fehler 
Rückkehr von Internet 

Timing Korrekturzeiger laden 

verzweige wenn Flag gelöscht 

verzweige wenn kleiner Nult 

Timing Konstante -1 

Skip ZU BF9E0 

Timing Konstante 

Timing 

Korrekturzeiger löschen 
Vergleiche enpfangenen Impuls 
mit vorherigem 
verzweige falls ungleich 
Prüfe ob kurzer logxils 
enpfangen 

falls nein, verzweige 
Inpulswechselzeiger laden 
verzweige wenn negativ 
vergleiche mit BIO 
verzweige wenn kleiner S10 
sonst E06 Flag enpfangen 
unbedingter Sprung 

Enpfangenes Bit in Akku 
mit Band'Parität verknüpfen 
in Band'Parität speichern 
Flag für Timer A laden 
verzweige wenn nicht frei ge¬ 
geben 

Speicher für Bitzähler -1 
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FA02 

30 

CS 

BHI 

SF9C9 

FA04 

66 

D7 

LSR 

SD7 

FA06 

66 

BF 

ROR 

SBF 

FA08 

A2 

DA 

LOX 

MDA 

FADA 

20 

oo 

04 

UJ 

JSR 

SF8E2 

FAOO 

6C 

BC FE 

JHP 

SFEBC 

Einspri^ 

von SF988 


FA10 

AS 

96 

LDA 

S96 

FA12 

FO 

06 

BEQ 

SFA1B 

FAU 

AS 

B6 

LDA 

SB6 

FA16 

FO 

07 

BEQ 

SFA1F 

FA18 

AS 

A3 

LDA 

SA3 

FA1A 

30 

03 

BMI 

SFA1F 

FA1C 

6C 

97 F9 

JHP 

SF997 

FA1F 

66 

Bl 

LSR 

SB1 

FA21 

A9 

93 

LDA 

#S93 

FA23 

38 


SEC 


FA26 

ES 

Bl 

SBC 

SB1 

FA26 

6S 

BO 

ADC 

SBO 

FA28 

OA 


ASL 

A 

FA29 

AA 


TAX 


FA2A 

20 

E2 F8 

JSR 

SF8E2 

FA2D 

E6 

9C 

INC 

S9C 

FA2F 

AS 

B6 

LDA 

S86 

FA31 

DO 

11 

BNE 

SFA66 

FASS 

AS 

96 

LOA 

S96 

FASS 

FO 

26 

BEQ 

SFA5D 

FAS7 

8S 

A8 

STA 

SAB 

FA39 

A9 

00 

LDA 

BSOO 

FA3B 

85 

96 

STA 

S96 


verzweige wem Parititsbit 
eMpf engen 

gelesenes Bit ins Carry und 
dann in SBF rollen 
Initialisierungsuert für 
limer A ins X-Register 
zur Kassettensynchronisetion 
Rückkehr von Interrupt 


Prüfe ob eOB enpfangen 
falls nein, verzweige 
Prüfe ob Tiner A freige. 
wenn nein, überspringe Bit 
Zähler Test 
Bitzähter laden 
verzweige falls negatv 
langen lepuls verarbeiten 

vergangene Zeit seit letzten 

Flangen halbieren 

und diesen Wert 

von S93 

abziehen 

dazu dam Tining-Konstante 
addieren 

und Ergebnis verdoppeln 
Ergebnis ins X-Register 
Timing initialisieren 
Flag für Byte empfangen 
setzen 

Flag für Tiner A laden 
verzweige falls freigegeben 
wurde EOB emfangen ? 
verzweige wem nicht 
empfangen 

Flag für Lesefehler setzen 

Flag für 

EOB rücksetzen 





542 


64 Intern 


FA30 

A9 

81 

LOA 

l»81 

FA3F 

80 

00 DC 

STA 

SOCOD 

FA42 

85 

B4 

STA 

BB4 

FA44 

AS 

96 

LOA 

S96 

FA46 

85 

B5 

STA 

SB5 

FA48 

FO 

09 

BEQ 

SFA53 

FA4A 

A9 

00 

LOA 

«$00 

FA4C 

85 

84 

STA 

SB4 

FA4E 

A9 

01 

LDA 

«SOI 

FASO 

80 

00 oc 

STA 

SDCOO 

FA53 

AS 

BF 

LDA 

SBF 

FASS 

65 

BO 

STA 

SBO 

FA57 

AS 

AB 

LOA 

SAB 

FA59 

05 

A9 

ORA 

SA9 

FASB 

85 

B6 

STA 

SS6 

FASO 

4C 

BC FE 

JHP 

SFEBC 

EinsprunB 

von SF966 


FA60 

ZO 

97 FB 

JSR 

SFB97 

FA63 

85 

9C 

STA 

S9C 

FA65 

AZ 

DA 

LOX 

«SOA 

FA67 

20 

E2 FB 

JSR 

SF8E2 

FA6A 

AS 

BE 

LDA 

SBE 

FA6C 

FO 

02 

BEO 

SFA70 

FA6E 

85 

A7 

STA 

SA7 

FA70 

A9 

OF 

LDA 

«SOF 

FA7Z 

24 

AA 

BIT 

SAA 

FA74 

10 

17 

BPL 

SFABO 

FA76 

AS 

BS 

LDA 

SBS 

FA78 

00 

OC 

BNE 

SFA86 


Interrupt für 

Timer A freigeben 

und Fleg für Timer A setzen 

Fleg für EOB laden 

und nach $B5 kopieren 

verzweige wem kein EOB 

Flag für Timer A 

löschen und auch 

InterrMptflag 

wieder löschen 

Shift Register für Read laden 
und nach BBO bringen 
Flag für Lesefehler leden 
mit Impijlswechselzeiger 
verknüpfen und in Fehlercode 
des Bytes ablegen 
Rückkehr von InterriPt 


Bitzähler für serielle 
Ausgabe setzen 
Zeiger auf Byte eapfangen 
rücksetzen 

Initialisierungswert Timer A 
Kassettensynchronisation 
Anzahl der verbliebenen 
Blöcke laden 
verzweige wem Null 
Blockanzahl neu setzen 
Haskenwert für Zählung vor 
dem Lesen 

Prüfe Zeiger für Lesen von 
Band 

verzweige wenn alle Zeichen 
eapfangen (Ende) 

Flag für EOB laden 
verzweige wenn gültiges EOB 
anpfangen 
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FA7A 

A6 

BE 

LDX 

SBE 

FA7C 

CA 


DEX 


FA7D 

00 

OB 

BHE 

SFASA 

FA7F 

A9 

06 

LDA 

«SOS 

FA81 

20 

IC FE 

JSR 

SFElC 

FA66 

DO 

04 

BNE 

SFASA 

FAe6 

A9 

00 

LDA 

«soo 

FASS 

SS 

AA 

STA 

SAA 

FA8A 

6C 

BC FE 

JHP 

SFEBC 

FASO 

70 

31 

BVS 

SFACO 

FASF 

DO 

16 

BNE 

SFAA9 

FA91 

AS 

BS 

LDA 

SBS 

FA93 

00 

F5 

BnE 

SFASA 

FA95 

AS 

B6 

LDA 

SB6 

FA97 

00 

Fl 

BNE 

SFASA 

FA99 

AS 

A7 

LOA 

SA7 

FA9e 

4A 


LSR 

A 

FA9C 

AS 

BD 

LDA 

SBO 

FA9E 

30 

03 

BMI 

SFAA3 

FAAO 

90 

16 

BCC 

SFASA 

FAA2 

IS 


ClC 


FAA3 

BO 

IS 

BCS 

SFABA 

FAA5 

29 

OF 

AND 

«SOF 

FAA7 

SS 

AA 

STA 

SAA 

FAA9 

C6 

AA 

DEC 

SAA 

FAAB 

DO 

00 

BNE 

SFASA 

FAAO 

A9 

40 

LDA 

«$40 

FAAF 

SS 

AA 

STA 

SAA 


Anzahl der verbliebenen 
Blöcke laden 
Anzahl -1 

verzweige wenn nicht Null 
■LONG BLOCK' error 
Status setzen 
unbedingter Sprung zmi 
normalen IRQ 

Flag für Lesen von Band auf 
Abtastung setzen 
Rückkehr von Interrupt 

verzweige wenn Bandzeiger auf 
lesen 

verzweige wenn Bandzeiger 
auf Zahlen 
Flag für EOB laden 
verzweige wenn EOB enpfangen 
Flag für Lesefehler laden 
verzweige falls Fehler 
aufgetreten 

Anzahl der noch zu lesenden 

Blöcke holen 

Bit 0 ins Carry schieben 

hole gelesenes Byte 

verzweige wenn es ZBhlbyte 

ist 

verzweige wenn mehr als ein 
Block zu lesen 
lösche Carry lm nicht zu 
verzweigen 

verzweige falls nur ein Block 
zu lesen 

Bits 0 bis 3 isolieren 
und für Zahlung speichern 
alle Synchrrnisationsbytes 
empfangen 

wenn nein verzweige 
Bandzeiger auf 
lesen stellen 
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FAB1 

20 

6E FB 

JSR 

SFB8E 

FABA 

A9 

OO 

LOA 

RSOO 

FAB6 

SS 

AB 

STA 

SAB 

FASS 

FO 

00 

BEQ 

SFA8A 

FABA 

A9 

SO 

LOA 

«SSO 

FABC 

8S 

AA 

STA 

SAA 

FABE 

DO 

CA 

BNE 

SFA8A 

FACO 

AS 

BS 

LOA 

$85 

FAC2 

FO 

OA 

BEQ 

SFACE 

FACA 

A9 

OA 

LOA 

#SOA 

FAC6 

20 

IC FE 

JSR 

SFE1C 

FAC9 

A9 

00 

LOA 

«too 

FACB 

AC 

AA FB 

JNP 

SFBAA 

FACE 

20 

01 FC 

JSR 

SFCD1 

FA01 

90 

03 

BCC 

SFAD6 

FAD3 

AC 

AS FB 

JNP 

SFBAS 

FA06 

A6 

A7 

LDX 

SA7 

FA06 

CA 


DEX 


FAD9 

FO 

20 

BEQ 

SFB08 

FADB 

AS 

93 

LOA 

$93 

FADO 

FO 

OC 

BEQ 

SFAEB 

FAOF 

AO 

00 

LOT 

«SOO 

FAE1 

AS 

BO 

LOA 

$B0 

FAE3 

01 

AC 

CMP 

(SAC) 

FAE5 

FO 

04 

BEQ 

SFAEB 

FAE7 

A9 

01 

LOA 

$$01 

FAE9 

SS 

B6 

STA 

$B6 

FAEB 

AS 

B6 

LOA 

$B6 

FAED 

FO 

AB 

BEQ 

$FB3A 

FAEF 

A2 

30 

LDX 

«$30 

FAF1 

EA 

9E 

CPX 

$9E 

FAF3 

90 

3E 

BCC 

$FB33 

FAF5 

A6 

9E 

LDX 

$9E 

FAF7 

AS 

AD 

LOA 

SAD 


Ein/Ausgabe Adresse kopferen 
Flag für 

Leseprüfsunae löschen 
ia4>ed{ngter Sprung 

Baridzefger 

auf Ende stellen 

ia4>edingter Sprung 

Flag für EOS laden 
verzweige wem nicht gesetzt 
■SHOftT BLOCK' error 
Status Sätzen 
Code für Lesezeiger auf 
"Abtasten" 

setzen, unbedingter Sprung 

Endsdresse schon erreicht ? 
nein dam verzweige 
zu Read Ende für Block 
nur noch 

ein Block zu lesen 
verzweige wenn ja (Pass 2) 
Load/Verif y-Flag 
verzweige wem Load 
Zöhler auf Null setzen 
gelesenes Byte 
vergleichen 

verzweige wem Uberelnstin- 
flung 

Fehlerflag 

setzen 

Fehlerflag laden 
verzweige wem kein Fehler 
■ufgetreten 
bereits 31 Fehler 
aufgetreten 

verzweige wem weniger Fehler 
Index für Lesefehler 
laufender Adressbyte HIGH 
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FAF9 

90 

01 01 

STA 

SOIOl.X 

FAFC 

AS 

AC 

LOA 

SAC 

FAFE 

90 

00 01 

STA 

S0100,X 

FB01 

E8 


INX 


FB02 

E8 


IHX 


FB03 

86 


STX 

S9E 

FBOS 

6C 

3A FB 

JMP 

SFB3A 

FB08 

A6 

9F 

LOX 

S9F 

FBOA 

E4 

9E 

CPX 

S9£ 

FBOC 

FO 

35 

BEO 

SFB43 

FBOE 

AS 

AC 

LDA 

SAC 

FB10 

DD 

00 01 

CMP 

S0100.X 

FB13 

DO 

2E 

BNE 

SFB43 

FB1S 

AS 

AO 

LDA 

SAD 

FB17 

DO 

01 01 

CMP 

S0101,X 

FB1A 

00 

27 

BNE 

SFB43 

FB1C 

E6 

9F 

INC 

S9F 

FBlE 

E6 

9F 

INC 

S9F 

FB20 

AS 

93 

LDA 

S93 

FB22 

FO 

OB 

BEQ 

SFB2F 

FB26 

AS 

BO 

LDA 

SBD 

FB26 

AO 

00 

LOY 

«SOO 

FB28 

Dl 

AC 

CMP 

(SAC>,Y 

FB2A 

FO 

17 

BEQ 

SFB43 

FB2C 

C8 


INT 


FB20 

84 

B6 

STY 

S86 

FB2F 

AS 

B6 

LOA 

SB6 

FB31 

FO 

07 

BEQ 

SfB3A 

FB33 

A9 

10 

LOA 

«S10 

FB3S 

20 

IC FE 

JSR 

SFE1C 

FB38 

DO 

09 

BNE 

ID 


<(* Stack speichern 
Adressbyte LOU 
für spätere Korrektur 
ebenfalls in Stack speichern 
Zeiger auf nachfolgende 
freie Stelle setzen 
und abspeichern 
weiterniBchen 

bereits alle Lesefehler 
korrigiert ? 
verzweige falls ja 
Adressbyte LOU laden 
nit fehlerhaftem Adressbyte 
LOU vergleichen 
verzweige falls nicht 
gefunden 

Adressbyte HIGH laden 
mit fehlerhaftem Adressbyte 
HIGH vergleichen 
verzweige wenn nicht gefurtden 
Kerrekturzähler 
Pass 2 um zwei erhöhen 
Verify-Flag gesetzt 
verzweige wenn nicht gesetzt 
gelesenes Byte laden 
Zahler auf Null setzen 
mit Speicherinhalt verglei¬ 
chen 

verzweige wenn gleich, dann 
nächstes Byte 
Flag für 
Fehler setzen 
Fehlerflag testen 
verzweige wenn kein Fehler 
■SECOND PASS' error 
Status setzen 

und nächstes Byte verarbeiten 
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Einsprung 

von SFBOS 



FB3A 

AS 

93 


LDA 

S93 

Verify-Flag leden 

FB3C 

DO 

OS 


BHE 

SFB43 

verzNeige wem gesetzt 

FB3E 

AB 



TAT 


2 eiger löschen 

FB3F 

AS 

BD 


LOA 

SBD 

gelesenes Byte 

FB41 

91 

AC 


STA 

(SAC).Y speichern 

FB43 

20 

DB 

FC 

JSR 

SFCDB 

Adresszeiger erhöhen 

FB46 

DO 

43 


BHE 

sfbsb 

Rückkehr vom Interrupt 

Einsprung 

vor 

1 SFAD3 



FB48 

A9 

80 


LDA 

ITBBO 

Flag für Lesen 

Einspr<.v)g 

vor 

1 SFACB 



FB4A 

BS 

AA 


STA 

SAA 

auf Ende 

FB4C 

78 



SEI 


Interrupt varhindarn 

FB4D 

A2 

01 


LDX 

«SOI 

IRO von 

FB4F 

SE 

OD 

oc 

STX 

socn 

Timer A verhindern 

FB52 

AE 

OD 

DC 

LDX 

socoo 

IRO-Flag löschen 

FBS5 

A6 

BE 


LOX 

SBE 

Pass-Zahler 

FB57 

CA 



OEX 


erniedrigen 

FB58 

30 

02 


BMI 

SFBSC 

verzweige wenn Null gewesen 

FB5A 

86 

BE 


STX 

SBE 

PasszBhler merken 

FB5C 

C6 

A7 


OEC 

SA7 

BlockzBhler vermindern 

FB5E 

FO 

08 


BEO 

SFB68 

verzweige wenn Null 

FB60 

AS 

9E 


LDA 

S9E 

Fehler in Pass 1 aufgetre- 







ten ? 

FB62 

DO 

27 


BHE 

SF68B 

ja, Rückkehr vom Interngit 

FB64 

8S 

BE 


STA 

SBE 

kein Block mehr zu verarbei¬ 







ten 

FB66 

FO 

23 


BEO 

SFB8B 

Rückkehr vom Interrupt 

FB68 

20 

93 

FC 

JSR 

SFC93 

ein Pass beendet 

FBBB 

20 

8E 

FB 

JSR 

SFB8E 

Adresse wieder auf Pregraaw- 







anfang 

FB6E 

AO 

00 


LOY 

«soo 

Zähler auf Null setzen 

FB70 

84 

AB 


STY 

SAB 

Checksume löschen 

FB72 

B1 

AC 


LDA 

<8AC). 

Y Progrsaw 
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FB74 

45 

AB 

EOR 

SAB 

FB76 

85 

AB 

STA 

SAB 

FB78 

20 

DB FC 

JSR 

SFC06 

FB7B 

20 

Dl FC 

JSR 

SFCS1 

FB7E 

90 

F2 

BCC 

SFB72 

FB80 

AS 

AB 

LOA 

SAB 

FB82 

45 

BO 

EOR 

SBC 

FB84 

FO 

05 

BEO 

SFB8B 

FB6Ö 

A9 

20 

LOA 

»20 

FB8B 

20 

1C FE 

JSR 

SFE1C 

FB88 

4C 

BC FE 

JHP 

SFEBC 




Einsprung von SF617, SFAB1, 


fbbe 

AS C2 

LOA SC2 

FB90 

85 AD 

STA SAD 

FB92 

A5 CI 

LOA SC1 

FB94 

85 AC 

STA SAC 

FB96 

60 

RTS 


ChecksuiiK berechnen 
und speichern 
Adresszeiger erhöhen 
Eridadresse schon erreicht 7 
nein, weiter vergleichen 
berechnete Checksmne 
mit Checksuime vom Band 
vergleichen 

Checksunre gleich , dann ok 
■CHECKSUH' error 
Status setzen 
Rückkehr vom Interrupt 

laufenden Zeiger auf 
Prograamtart 

$FB6B, SFC68 

Startadresse 
$C1/SC2 
nach SAC/SAO 
speichern 
Rücksprung 


Bitzahler für serielle 
Ausgabe setzen 


Einsprung von $F8A6, SFA60, $FC16, SFC75 


FB97 

A9 

08 

LOA 

»08 

FB99 

85 

A3 

STA 

SA3 

FB9B 

A9 

00 

LOA 

o 

o 

FB90 

85 

A4 

STA 

SA4 

FB9F 

85 

A8 

STA 

SA8 

FBA1 

85 

9B 

STA 

S9B 

FBA3 

85 

A9 

STA 

SA9 

FBA5 

60 


RTS 



Zahler fir 8 Bits 
Nach SA3 

Akku mit SOO laden 
Bft-Inpuls-Flag löschen 
Lesefehler Byte löschen 
Parity-Bit löschen 
Insajlswechsel-Flag löschen 
Rücfcsprung 
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Ein Bit auf Bend schreiben 


Einsprung 

von 

BFBFO 


FBAö 

A5 

BO 


LOA 

$BD 

FBA8 

4A 



LSR 

A 

FBA9 

A9 

60 


LOA 

«$60 

fBAB 

90 

02 


6CC 

SFBAF 

Einsprung 

von 

$FBE7 


FBAO 

A9 

BO 


LDA 

MBO 

Einsprung 

von 

$FC6C 


FBAF 

AZ 

00 


LDX 

«soo 

Elnsprimg 

von SFBD5 


FBBt 

80 

06 DC 

STA 

$OC06 

FBB4 

8E 

07 OC 

STX 

$OC07 

FBB7 

AO 

00 OC 

LDA 

SOCOD 

FBBA 

A9 

19 


LOA 

«$19 

FBBC 

80 

OF DC 

STA 

SOCOF 

FBBF 

AS 

01 


LDA 

$01 

FBC1 

49 

08 


EOR 

«$08 

FBC3 

85 

01 


STA 

$01 

FBCS 

Z9 

08 


AND 

«$08 

FBC7 

60 



RTS 


FBC8 

36 



SEC 


F8C9 

66 

86 


ROR 

$86 

FBCB 

30 

3C 


BMI 

SFC09 


FBCD 

AS 

A8 

LOA 

SAB 

FBCF 

DO 

12 

BME 

SFBES 

FBD1 

A9 

10 

LOA 

«$10 


Bit in $60 
Bit 0 in Carry 
Zeit für 'O' Bit 
verzweige falls Carry>0 


Zeit für M' Bit 


HIGH-Byte Tiierwert laden 


Timer B LOW 
Timer B HIGH 
Interrupt-Flag löschen 
Timer 
B starten 

Tape-Urite-Bit laden 
Awsgabe-Bit für Band 
invertieren 
und speichern 

augenblicklichen Pegel merken 


Block-Write-Flag 

Negativ 

Rückkehr von Interrupt 

Interrupt-Routine für Band 
schreiben 

falls 'Byte'-lMpuls ge¬ 
schrieben, dann verzweige 
Tiner auf 
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FB03 

A2 

01 


LDX 

«SOI 

FB05 

20 

Bl 

FB 

JSR 

SFBB1 

FBOfi 

00 

2F 


BNE 

$FC09 

FBOA 

E6 

A8 


INC 

$A8 

FBOC 

A5 

B6 


LOA 

SB6 

FBOE 

10 

29 


BPL 

$FC09 

FBED 

AC 

57 

FC 

JHP 

$FC57 

FBE3 

A5 

A9 


IDA 

SA9 

FBES 

00 

09 


BNE 

SFBFO 

FBE7 

20 

AO 

FB 

JSR 

SFBAD 

FBEA 

00 

ID 


BNE 

SFC09 

FBEC 

E6 

A9 


INC 

$A9 

FBEE 

00 

19 


BNE 

SFC09 

FBFD 

20 

A6 

FB 

JSR 

SFBA6 

FBF3 

00 

14 


BNE 

SFC09 

FBF5 

AS 

A4 


LDA 

$A4 

FBF7 

49 

01 


EOR 

«SOI 

FBF9 

85 

A4 


STA 

SA4 

FBFB 

FO 

OF 


BEO 

SFCOC 

FBFD 

AS 

BD 


LOA 

SBD 

FBFF 

49 

01 


EOR 

«S01 

FC01 

SS 

BO 


STA 

SBD 

FC03 

29 

01 


AND 

«SOI 

FCOS 

45 

9B 


EOR 

S96 

FC07 

SS 

9B 


STA 

S9B 

FC09 

4C 

BC 

FE 

JHP 

SFEBC 

FCOC 

46 

BD 


LSR 

SBD 

FCOE 

C6 

A3 


DEC 

$A3 

FC10 

AS 

A3 


LDA 

SA3 

FC12 

FO 

3A 


BEO 

SfC4E 

FCK 

10 

F3 


BPL 

SFC09 

FC16 

20 

97 

FB 

JSR 

SFB97 

FC19 

58 



CLI 


FC1A 

AS 

AS 


LDA 

SA5 

FC1C 

FO 

12 


BEO 

SFC30 

FC1E 

A2 

00 


LDX 

«SOO 

FC20 

86 

07 


STX 

S07 

FC22 

C6 

AS 


DEC 

SAS 


$110 (272} 

Takt auf Band schreiben 
Rückkehr von Interrupt 
'1* Byte-Wrlte-Flag setzen 
falls Bloek-Urite*Flag 
positiv, dann 
Rückkehr vcn Interrupt 
zweiten Block schreiben 
falls '1' Bit gesezt 
dann verzweige 
'1' Bit schreiben 
Rückkehr von Interrupt 
'1' Bit'Flag setzen 
Rückkehr von Interrt^tt 
Bit auf Band schreiben 
Rückkehr von Interrupt 
Bit-Inpulsflag laden 
Bit 0 invertieren 
und speichern 
falls null, dann verzweige 
Bit-SHIFT-Reglster laden 
Bit für Ausgabe invertieren 
i*id speichern 
Bit holen ur>d nit 
ParityBIt verknüpfen 
und speichern 
Rückkehr von Interrupt 
nächstes Bit in Position 0 
Bitzühler erniedrigen 
und laden 

nächstes Bit ausgeben 
Rückkehr vom Interrupt 
Bitzähler wieder auf S setzen 
Interrupt frefgeben 
Falls Synchronbytes geschrie¬ 
ben 

dann verzweige 

Prüfsuene 

löschen 

Zähler vermindern 
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FC24 

A6 

BE 

LDX 

SBE 

FC26 

EO 

02 

CPX 

no2 

FC28 

00 

02 

BNE 

SFC2C 

FC2A 

09 

80 

ORA 

«SBO 

FC2C 

85 

BO 

STA 

SBO 

FC2E 

00 

09 

BNE 

SFC09 

FC30 

20 

01 FC 

JSR 

SFCOl 

FC33 

90 

OA 

BCC 

SFC3F 

FC3S 

00 

91 

BNE 

SFBC8 

FC37 

E6 

AO 

INC 

SAD 

FC39 

A5 

07 

LOA 

SD7 

FC3B 

85 

BO 

STA 

SBO 

FC30 

BO 

CA 

BCS 

SFC09 

FC3F 

AO 

00 

LOY 

iSOO 

FC41 

BI 

AC 

LDA 

(UC),Y 

FC43 

85 

BO 

STA 

SBO 

FC45 

45 

07 

EOR 

$07 

FC47 

85 

07 

STA 

S07 

FC49 

20 

OB FC 

JSR 

SFCOB 

FC4C 

00 

BB 

BNE 

$FC09 

FC4E 

AS 

9B 

LOA 

S9B 

FC50 

49 

01 

EOR 

«SOI 

FC52 

85 

BO 

STA 

SSO 

FC54 

4C 

BC FE 

JHP 

SFEBC 

Einsprung 

von SFBEO 


FC57 

C6 

BE 

OEC 

SBE 

FC59 

00 

03 

BNE 

SFC5E 

FC5B 

20 

CA FC 

JSR 

SFCCA 

FC5E 

A9 

50 

LDA 

«SSO 

FC60 

85 

A7 

STA 

M7 

FC&2 

A2 

08 

LDX 

«SOS 

FC64 

78 


SEI 


FC6S 

20 

BO FC 

JSR 

SFCBO 

FC66 

00 

EA 

BNE 

SFC54 


noch zu schreibende 

BlKkenzahl laden 

felis erster Block nicht 

Beschrieben, dann verzweige 

Bit 7 setzen 

und speichern 

Rückkehr von Internet 

Endadresse schon erreicht 7 

falls kleiner, darvf 

Heiterschreiben 

falls ungleich, dam 

Block-Write*Flag setzen 

HIGH'Byte ungleich mechen 

Prüfsuime laden 

und in SHIFT*Flag speichern 

Rückkehr von Interrupt 

Zähler auf Null 

zu schreibendes Byte laden 

in SHIFT-Flag bringen 

Prüfsisnae 

bilden 

Adresszeiger erhöhen 
Rückkehr vom Interrupt 
Parity-Bit 
invertieren 

und ir» SHIFT-Flag speichern 
Rückkehr vom Internet 


Zähler für Blocks erniedrigen 
falls noch ein Block, 
dann Bandnotor aus 
SO 

Zähler für («pulse 
Offset für IRO 
Interrupt verhindern 
IRO auf SFC6A 
Rückkahr vom Interrupt 
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FC6A 

A9 78 

LDA M78 

FC6C 

20 AF FB 

JSR SFBAF 

FC6F 

00 E3 

BNE SFC56 

FC71 

C6 A7 

DEC SA7 

FC73 

DO OF 

BHE SFC54 

FC75 

20 97 FB 

JSR SFB97 

FC78 

C6 AB 

DEC SAB 

FC7A 

10 D8 

BPL SFC54 

FC7C 

A2 OA 

LOX «SOA 

FC7E 

20 BO FC 

JSR SFCBO 

FC81 

S8 

CLI 

FC82 

E6 AB 

INC SAB 

FC84 

AS BE 

LOA S6E 

FC86 

FO 30 

BEQ SFCBS 

FC88 

20 8E FB 

JSR SFB8E 

FC86 

A2 09 

LDX IFS09 

Fceo 

66 AS 

STX SA5 

FC8F 

66 B6 

STX SB6 

FC91 

DO 83 

BHE SFC16 


•••••••••••••••••***•••**•• 


Einsprung von SF806, SFB6&. 


FC93 

08 



PHP 

FC94 

78 



SEI 

FC95 

AO 

11 

00 

LDA SD011 

FC98 

09 

10 


ORA «S10 

FC9A 

80 

11 

00 

STA SD011 

FC90 

20 

CA 

FC 

JSR SFCCA 

FCAO 

A9 

7F 


LOA ll>S7F 

FCA2 

80 

00 

DC 

STA SDCOD 


Interrupt'Routint für Band 
sehreiban 
120 

Bit auf Band schreiben 
Rückkehr vo« Interrupt 
Zähler erniedrigen 
nicht null, dann Rückkehr 
vtm Interrupt 
Bitzähler für serielle 
Ausgabe setzen 
falls Datenende nicht er¬ 
reicht, dann 
Rückkehr von Intem 4 >t 
IRQ 

IRQ auf tFBCD 
Interrupt ernöglichan 
Shortdauer 

Zähler für Anzahl der Blocks 
alle Blocks geschrieben 7 
Adresse Mieder auf Anfang 
setzen 
Zähler für 
Synchronisation 
Flag fik* Block geschrieben 
unbedingter Sprung 

Rekorderbetrieb beenden 

SFCBS 

Status merken 
Interri^it verhindern 
Bildschirm 
Mieder 
einschalten 

Rekordersiotor ausschalten 

Interruptmöglichkeiten 

löschen 
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FCA5 

20 DO FD 

JSR SFOOD 

CIA Mieder auf Standardwerte, 
1/60 s Timing 

FCA6 

AD AO 02 

LDA S02A0 

Interruptvektor schon auf 

Standardwert ? 

FCAB 

FO 09 

BEO SFCB6 

falls ja, dann fertig 

FCAD 

80 15 03 

STA $0315 

ansonsten zurücksetzen 

FCBO 

AO 9F 02 

LDA $029F 

geretteten IRQ zurückholen 

FCB3 

80 16 03 

STA $0316 

und speichern 

FCB6 

2B 

PIP 

Status zurüekholen 

FC87 

60 

RTS 

Rüeksprung 




IRQ-Vektor setzen 

X-indiziert 

Fcie 

20 93 FC 

JSR $FC93 

IRQ auf Standard 

Fces 

FO 97 

BEO $FCS6 

AbschluB IRQ 

Einsprung von SF3A1, tFC65, tFC7E 

FCBD 

BO 93 FD 

LDA $F093,X 

IRQ-Vektor 

FCCO 

80 16 03 

STA $0316 

aus Tabelle setzen 

FCC3 

BO 96 FD 

LDA $FD96.X 

IRQ-Vektor 

FCC6 

SD 15 03 

STA $0315 

aus Tabelle setzen 

FCC9 

60 

RTS 

Rücksprung 


Einsprung von $FC5B, SFC9D 


FCCA 

A5 01 

LDA $01 

Rekorder- 

FCCC 

09 20 

ORA «$20 

motor 

FCCE 

85 01 

STA $01 

aussehalten 

FCOO 

60 

RTS 

RQckspruig 


••••••••••••••••••••••••••• prQft auf Erreichen der 

Endadresse 

Einsprung von $F624, IFACE, SFB7B, SFC30 

FC01 38 SEC Carry für Sifctraktion 

vorbereiten 
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FCD2 

AS AC 

LOA $AC 

laufende Adresse 

FCD4 

ES AE 

SBC $AE 

$AC/$AD 

FC06 

AS AD 

LDA $AD 

Endadresse 

FCD8 

ES AF 

SBC $AF 

$AE/$AF 

FCDA 

60 

RTS 

RücXsprung 

Einspriaig von $F63A, $FB63, 

$FB78, $FC49 

FCOB 

E6 AC 

(HC $AC 

AdreBzeiger 

FCDD 

DO 02 

BNE SFCEI 

er- 

FCOF 

E6 AD 

INC $AO 

höhen 

FCE1 

60 

RTS 

Rücksprung 




r**< 




RESET 

FCE2 

A2 

FF 


LDX 

8$FF 

Wert für StapelzelBer 

FCE4 

78 



SEI 


Interrupt setzen 

FCES 

9A 



TXS 


Stapelzeiger initialisieren 

FCE6 

d8 



CLD 


Dezimalflag zurCJcksetzen 

FCE7 

20 

02 

FD 

JSR 

$F002 

prüft auf ROM in $8000 

FCEA 

DO 

03 


BNE 

SFCEF 

kein Autostart-Hodul ? 

FCEC 

6C 

00 

8D 

JHP 

($8000) Sprung auf Hodut-Start 

FCEF 

8E 

16 

oo 

STX 

$D016 

Videocontroller Steuerreg. 2 

FCF2 

20 

A3 

FD 

JSR 

$FDA3 

Interrupt vorbereiten 

FCFS 

20 

SO 

FD 

JSR 

$FD50 

Arbeitsspeicher initialisieren 

FCF8 

20 

IS 

FD 

JSR 

$FD15 

Hardware und I/O Vekt. setzen 

FCFB 

20 

SB 

FF 

JSR 

SFFSB 

Video-Reset 

FCFE 

S8 



CLI 



FCFF 

6C 

00 

AO 

JHP 

(SAOOO) zua BASIC Kaltstart 


prüft auf ROH in $8000 


Einsprung von tFCE7, SFE56 

FD02 A2 OS LDX *$05 Zeiger setzen 

FD06 BO OF FD LOA $FD0F,X Uert aus Tabelle holen und 

F007 DD 03 80 Ofp $8003,X ab $8000 vergleichen (CBM8D) 
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fdoa 

00 03 

BNE SFDOF 

FDOC 

CA 

DEX 

FOOD 

00 F5 

BNE tFD04 

FDDF 

60 

RTS 


FOIO C3 C2 CO 38 30 


Einsprmg 

von SFCF8. ' 

(FE66. 

FD15 

A2 

30 

LDX 

•830 

F017 

AD 

FD 

LOY 

•CFD 

F019 

18 


ac 


Eireprung 

von SFF8D 


FDlA 

86 

C3 

STX 

8C3 

FDiC 

84 

C4 

STY 

$C4 

FD1E 

AD 

1F 

LOY 

•81F 

F020 

B9 

14 03 

LOA 

80314, 

F023 

BO 

02 

BC$ 

SFD27 

F02S 

Bl 

C3 

lOA 

(8C3>, 

FD27 

91 

C3 

STA 

(8C3), 

FD29 

99 

14 03 

STA 

80314, 

F02C 

88 


DEY 


FOZO 

10 

Fl 

BPL 

8FD2D 

F02F 

60 


RT8 



•••< 


FD30 

31 

EA 

66 

FE 

47 

FE 4A 

FD3e 

91 

F2 

DE 

F2 

50 

F2 33 

F040 

57 

Fl 

CA 

Fl 

ED 

F6 3E 

F048 

2F 

F3 66 

FE 

A5 

F4 ED 


verzweige wem letgleich 
Zeiger vermindern 
weiter wenn nicht S Bytes 
Rucksprung 

ROK-Nedul Identifizierung 
■CBM80' 

Hardwsre und I/O Vektoren 
•etzen/hslcn 

SFF8A 

LOW- und HIGH-Byte des 
Zeigers auf Tabelle $F030 
Flag für 'Vektoren setzen' 


LOW- ind KIGK-Byte 
des Zeigers setzen 
Zeiger setzen (16 Vektoren) 

Y Wert aus Tabelle holen 
C^l holen,CeO setzen 

Y Tabellenwert holen 

Y Tabellenwert setzen 

Y Wert in Tabelle ablegen 
Zähler vermiridern 

Fertig? nein; nächster Wert 
Rüeksprung 

Tabelle der Hardware 
und I/O-Vektoren 
F3 
F3 
Fl 
F5 
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ArbeitsspcI. inftfalfsferen 


Einsprung 

von $FCF5, SFF87 

fOSO 

A9 

00 

LOA 

«soo 

FD52 

AS 


TAY 


F053 

99 

02 00 

STA 

S0002.Y 

F056 

99 

00 02 

STA 

$0200, Y 

F059 

99 

00 03 

STA 

$0300,1 

F05C 

08 


IHY 


FOSO 

00 

F4 

BHE 

$F053 

FDSF 

A2 

3C 

LOX 

»SC 

F061 

AO 

03 

LOY 

»03 

F0Ö3 

86 

B2 

STX 

$B2 

FMS 

64 

B3 

STY 

$B3 

FD6r 

AB 


TAY 


FD66 

A9 

03 

LOA 

»03 

FOÖA 

8S 

C2 

STA 

SCZ 

FOÖC 

E6 

C2 

!MC 

$C2 

FOÖE 

Bl 

CI 

LOA 

CSCD.T 

F070 

AA 


TAX 


Fon 

A9 

55 

LOA 

»55 

F073 

91 

CI 

STA 

($C1),Y 

nrs 

01 

CI 

CMP 

CSCD.Y 

FD77 

00 

of 

BHE 

$FD88 

FD79 

ZA 


ROL 


FD7A 

91 

CI 

STA 

(SCD.T 

F07C 

01 

C1 

CMP 

($C1),Y 

FOTE 

00 

08 

BNE 

SFDSS 

FD80 

SA 


TXA 


F0S1 

91 

Ci 

STA 

(SCD.V 

FD83 

C8 


IHY 


FDe4 

00 

ES 

BHE 

$FD6E 

FD86 

fo 

E4 

BEQ 

$FD6C 

FDS8 

98 


TYA 


F0B9 

AA 


TAX 


FDBA 

A4 

C2 

LOY 

$C2 

FbBC 

18 


CLC 


FOSO 

20 

20 FE 

JSR 

$FE20 

F090 

A9 

08 

LOA 

»08 


Uert zun Löschen laden 
als Zth Ler nach Y 
Zeropage, 

Page 2 wd 
Page 3 löschen 
Zähler vermindern 
weiter wenn nicht fertig 
Uerte für Startadresse 
des Bandpuffers laden 
Bandpuffer Zeiger 
auf S033C setzen 
Zeiger in Y auf 0 setzen 
Uert für RAM testen ($04-1) 
Startadresse (HIGH) des RAM 
setzen und auf S0400 erhöhen 
Wert holen 
Uert merken 
X01010101 ($55) 
abspeichern und über¬ 
prüfen. ob Wert drin ist 
ungleich dann kein RAK 
X10101010 

Wert abspeiehern und 
überprüfen, ob Wert drin (st 
irigleich dann kein RAH 
Wert wieder zurückholen 
und wieder zurOciwchreiben 
Zeiger erhöhen 
pageende? nein: weiter 
sonst Zeiger-HIGH erhöhen 
Zeiger-LOU ins 
X-Register bringen 
Zeiger-HIGH holen 
c-0 (Flag für setzen) 

Hetsory (RAM) TOp setzen 
HIGH-Byte der Startadresse 
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FD92 

80 82 02 

STA $0282 

Memory (RAM) Start auf $800 

FD95 

A9 04 

LOA «S04 

KIGK-Byte der Startadresse 

FD97 

80 88 02 

STA S02e8 

Video'RAM auf $400 

FD9A 

60 

RTS 

Rücksprung 


****•*••»••••••••**••••••••• iRO Vektoren 

FD9S 6A FC CD FB 31 EA 2C F9 SFC6A. SFBCD, SEA31, SF92C 

••«•***«**•»•»•••••••«•***** Interrupt InitielisieriA^ 


Einsprung von SFCF2, SFE69, SFFM 


FDA3 

A9 

7F 


LOA 

ili$7F 

Interri^it Löschen 

FDA5 

80 

00 

DC 

STA 

SOCDO 

ICR CIA 1 

FDA8 

80 

OO 

DD 

STA 

$0000 

ICR CIA 2 

FDAB 

60 

00 

DC 

STA 

SOCOO 

Port A CIA 1 







Tastatur Matrijczeile 0 

FDAE 

A9 

08 


LOA 

#S08 

Wert laden 

FOBO 

80 

OE 

oc 

STA 

SOCOE 

CRA CIA 1 Timer A 'one shot' 

FD83 

80 

OE 

DD 

STA 

SOODE 

CRA CIA 2 Timer A 'one shot' 

FDB6 

80 

OF 

oc 

STA 

SDCOF 

CR8 CIA 1 Tiner B 'one shot' 

FDB9 

80 

DF 

00 

STA 

SDDOF 

CRB CIA 2 Tiner B 'one shot' 

FDBC 

A2 

DO 


LDX 

#$00 

Eingangs‘Modus 

FDBE 

SE 

03 

DC 

STX 

SDC03 

Datenrichtungsreg. B CIA 1 

F0C1 

8E 

03 

DD 

STX 

$DDD3 

Datenrichtungsreg. B CIA 2 

F0C4 

8E 

18 

04 

STX 

$D418 

Lautstärke für SIO auf Null 

F0C7 

CA 



DEX 


Ausgabe-Modus 

FDC6 

8E 

02 

DC 

STX 

$DC02 

Datenrichtungsreg. A CIA 1 

FOCB 

A9 

07 


LOA 

#$07 

Videocontrol ler auf 







unterste 16 K 

FDCO 

80 

00 

DD 

STA 

soooo 

Port A CIA 2, ATM löschen 

FDDO 

A9 

3F 


LOA 

«$3F 

Bit 0 bis 5 auf Ausgabe 

FDD2 

80 

02 

DD 

STA 

$0002 

Datenrichtungsreg. A CIA 2 

FODS 

A9 

E7 


LOA 

#$E7 

Mormalwert laden und 

FDD7 

es 

01 


STA 

$01 

Speicheraufteilung neu setzen 

FDD9 

A9 

2F 


LOA 

#$2F 

Bit 0*3 und 5 Ausgang, 







Bit 4 Eingang 

FDDB 

es 

00 


STA 

$00 

Datenrichtung Prozessorport 
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Einsprung 

von SFCAS, SFF6B 

FOOD 

AD 

A6 

02 

LOA 

S02A6 

FDEO 

FO 

OA 


BEQ 

SFDEC 

FDE2 

A9 

25 


LDA 

IIS25 

FDE4 

80 

04 

DC 

STA 

SOC04 

FDE7 

A9 

40 


LDA 

M40 

FDE9 

4C 

F3 

FD 

JHP 

SFDF3 

FOEC 

A9 

95 


LDA 

#$95 

FDEE 

80 

04 

oc 

STA 

SOC04 

FDF1 

A9 

42 


LOA 

«S42 

Einsprung 

von SF0E9 


F0F3 

80 

05 

oc 

STA 

SOC05 

FDF6 

4C 

6E 

FF 

JHP 

SFF6E 




Einsprung von SFFBD 


FDF9 

85 B7 

STA SB7 

FDFB 

86 BB 

STX SBB 

FDFD 

84 BC 

STY SBC 

FDFF 

60 

RTS 


HTSC-Version 7 

J» 

Wert für PAL-Version 
Tiaer für PAL-Version setzen 
SA02S « 16421 Zyklen 
NTSC-Version übergehen 
Uert f(r NTSC-Version 
Timer für NTSC-Version setzen 
S429S « 17045 Zyklen 


Timer-HIGH setzen 
Internet durch Tiner setzen 

Paraneter f. FUefWKn setzen 


Länge speichern 
Adresse-LOU speichern 
Adresse-KIGH speichern 
Rücksprung 


Parameter für aktives 
File setzen 


Einsprung von SFFBA 


FEOO 

85 B8 

STA SB8 

logische Filenumer 

FE02 

86 BA 

STX SBA 

Geräteadresse 

FE04 

84 B9 

STT SB9 

Sekundaradresse 

FE06 

60 

RTS 

Rücksprung 
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••***«••»•*•••••••••••••••••• Status holen 


Einsprung von SFFB7 


FE07 

AS BA 

LOA 

S8A 

FE09 

C9 02 

CHP 

«S02 

FE08 

00 00 

BHE 

SFE1A 

FEOO 

AD 97 02 

LOA 

S0297 

FE10 

48 

PHA 


FE11 

A9 00 

LOA 

»00 

FE13 

80 9 7 02 

STA 

S0297 

FE16 

68 

PIA 


FE17 

60 

RTS 



•••••••••••••••••MM******* 


Einsprung von $FF90 

FE18 8S 90 STA S9D 

FEIA AS 90 LOA S90 


Einsprung von SE0B2, SEE4F, 
SFB35, SFBS8 


FEIG 

05 90 

ORA S90 

FEIE 

8S 90 

STA S90 

FE20 

60 

RTS 


•••••••••••••M*********M** 

Einsprung von $FFA2 

FE21 80 85 02 STA S028S 

FE24 60 RTS 


Gerütenunwr holen 
gleich 2 ? (RS 232) 
nein 

RS 232-Status holen 
und auf Stapel retten 
Status 
Löschen 

und StatusMert zurückholen 
Rücksprurtg 

Flag für BetriebssysteM* 
meldmgen setzen 


Ausgabeflag (Direktnodus) 
Statusflag holen 

Status setzen 

SF18A. SF518. SFA81, SFAC6 

Statusflag testen und 
wieder abspeiehern 
Rücksprung 

Timeout-Flag für lEC setzen 


Tineout-disable 

Rücksprur >9 
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NEWHJP, Obersrenze des 
BAStC-RAM holer/setzen 


Elnspru>g von $FF99 


FE25 

90 

06 


BCC *fE2t> 

C«0: Adresse setzen 

Einspruig 

von iF2S2, SF468 


FE27 

AE 

83 

02 

LOX S0283 

Carry gesetzt 

FE2A 

AC 

84 

02 

LOY $0284 

Adresse nach X/Y holen 

Einsprung 

von iF480, SFD80 


FE20 

8E 

83 

02 

STX $0283 

Carry gelöscht 

FE30 

8C 

84 oe 

STY $0284 

X/Y nach Adresse setzen 

FE33 

60 



RTS 

ROcksprung 


HEHBOT, Untergrenze des 
BAStC-RAM holen/setzen 


Einsprw^ von $FF9C 


FE34 

90 

06 

BCC $FE3C 

C«0: Adresse setzen 

FE36 

AE 

81 02 

LDX $0261 

Carry gesetzt 

fE39 

AC 

82 02 

LDY $0262 

Adresse nach X/Y holen 

FE3C 

8E 

81 02 

STX $0281 

Carry gelöscht 

FE3F 

8C 

82 02 

STY $0282 

Adresse aus X/Y setzen 

FE42 

60 


RTS 

Rücksprung 





NHI Einsprung 

FE43 

78 


SEI 

Interrdpt setzen 

FE44 

6C 

18 03 

JHP ($0318) 

JHP $FE47, HHl'Vektor 

Einsprung 

von $FE44 


FE47 

43 


PM 

Akku wf Stapel retten 

FE48 

8A 


TXA 

X nach Akku 

FE49 

48 


PHA 

X retten 

FE4A 

98 


TYA 

Y nach Akku 
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FE6B 

68 



PHA 


FE6C 

A9 

7F 


LDA 

«$7F 

FE4E 

80 

00 

00 

STA 

SODOD 

FE51 

AC 

00 

00 

LOY 

SDDOD 

FE56 

30 

IC 


BMI 

SFE72 

FE56 

20 

02 

FD 

JSR 

SFD02 

FE59 

00 

03 


BNE 

SFESE 

FE5B 

6C 

02 

80 

JHP 

(S8002) 

FESE 

20 

BC 

F6 

JSR 

SFöBC 

FE61 

20 

El 

FF 

JSR 

SFFE1 

FE64 

00 

OC 


BHE 

SFE72 

Einsprung 

von SFF55 


FE6Ö 

20 

15 

FD 

JSR 

SFD15 

fE69 

20 

A3 

FD 

JSR 

$FDA3 

FE6C 

20 

18 ES 

JSR 

$E518 

FE6F 

6C 

02 AO 

JHP 

(SA002} 


Y retten 
Wert laden 

NHI-Höglichkeften löschen 
Flags lesen und Löschen 
RS 232 aktiv ? 

Prüft auf ROM-Modul in $8000 

nein: weiter 

ja: Sprung auf Modul'NMI 

Flag für Stop-Taste setzen 
Stop-Taste abfragen 
nicht gedrückt 7 


Standard-Vektoren für 
Interrupt und I/O setzen 
I/O initialisieren 
Bildschirnreset 
ziM BAStC-Warnstart 


FE72 

98 



TYA 


FE73 

20 

AI 

02 

AND 

S02A1 

FE76 

AA 



TAX 


FE77 

29 

01 


AND 

«SOI 

FE79 

FO 

28 


BEO 

SFEA3 

FE7B 

AD 

00 

00 

LDA 

SDDOO 

FE7E 

29 

FB 


AND 

«SFB 

FE80 

05 

B5 


ORA 

SBS 

FE82 

80 

00 

00 

STA 

SDDOO 

FE85 

AD 

AI 

02 

LDA 

S02A1 

FE88 

80 

OD 

00 

STA 

SDOÜD 

FE8B 

8A 



TXA 


FE8C 

29 

12 


AND 

«S12 

FE8E 

FO 

W 


BEO 

SFE9D 

FE90 

29 

02 


AND 

«S02 

FE92 

FO 

06 


BEO 

SFE9A 

FE96 

20 

D6 

FE 

JSR 

SFE06 


NHt-Routine für RS 232 
ICR-Register 

mit RS 232 NMI-Flag verknüp. 
nach X retten 
Sendebetrieb aktiv ? 
nein 

Datenport lesen 

Bit 2 TXO löschen 

zu sendendes Bit übergeben 

und wieder in Datenport spei 

RS-232 NHt-Flag 

wieder in ICR schreiben 

Wert aus X zurückholen 

Bit 1 laid 6 isolieren 

Bit 1 und 6s0: Bit enpfangen 

Bit 1, Aufruf von Tiner B 

nein: verzweige zu Startbit 

enpfangenes Bit verarbeiten 
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FE97 

6C 90 FE 

JNP tFE90 

Vorbereitung für Byte uagehen 

FE9A 

20 07 FF 

JSR $FF07 

Vorbereitung für Etipfang 




des nScFisten Bytes 

Einsprung von $FE97 


FE90 

20 BB EE 

JSR SEEBB 

Enpfang des nächsten Bits V. 

FEAO 

6C B6 FE 

JHP tFEB6 

Rückkehr von Internet 

FEA3 

8A 

TKA 

X nach Akku 

FEA4 

29 02 

AND «S02 

Datenempfans 7 

FEA6 

FO 06 

BEQ SFEAE 

verzweige wenn kein Enpfang 

FEA8 

20 06 FE 

JSR SFE06 

espfangenes Bit verarbeiten 

FEAB 

6C B6 FE 

JHP SFEB6 

Rückkehr von Interrupt 

FEAE 

SA 

TXA 

X nach Akku 

FEAF 

29 10 

AHO MIO 

warten auf Startbit ? 

FEB1 

FO 03 

BEQ SFEB6 

verzweige wenn kein Startbit 

FEB3 

20 07 FF 

JSR SFF07 

Vorbereitung für Enpfang 




das nächsten Bytes 

Etnsprws von SFEAO, SFEAB 


FEB6 

AD A1 02 

LOA t02A1 

RS-232 NMI-FLag 

FEB9 

80 OO DD 

STA soon 

wieder in tCR 

FEBC 

68 

PLA 

V'Register von Stapel 

FEBP 

A8 

TAT 

zurückholen 

FEBE 

68 

PLA 

X-Register 

FEBF 

AA 

TAX 

zurückholen 

FECO 

68 

PLA 

Akku zurückholen 

FEC1 

40 

RTI 

Rücksprwp 



Tinerlconstonten Für RS 232 Baud-Rate, 



MTSC-Version 

FEC2 

CI 27 

I27C1 ■ 

10177 50 Baud 

FEC6 

3A 1A 

I1A3E = 

6718 75 Baud 

FEC6 

C5 11 

$1105 • 

4549 110 Bald 

FEC8 

74 OE 

S0E74 > 

3700 134.5 Baud 

FECA 

ED OC 

SOCED - 

3309 150 Baud 

FECC 

4S 06 

$0645 = 

1605 300 Baud 

FECE 

FO 02 

S02F0 - 

752 600 Baud 

FEOO 

46 01 

$0146 - 

326 1200 Baiid 
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FED2 B 8 00 SOOB 0 « 194 1800 Baud 

FED« 71 00 S0071 ■ 113 2400 Baud 


NHl-Boutlne für RS-232 

Eingab« 


Einsprung von tFE94, SFEA 8 


FED 6 

AD 

01 

X 

LOA SDOOI 

FED9 

29 

01 


AND «SOI 

FEDB 

85 

A7 


STA U7 

FEDD 

AD 

06 

DD 

LOA tD006 

FEEO 

E9 

IC 


SBC «SIC 

FEE2 

60 

99 

02 

AK S0299 

FEES 

80 

06 

00 

STA SD006 

FEE 8 

AD 

07 

00 

LOA SDD07 

FEEB 

60 

9A 

02 

ADC S029A 

FEEE 

80 

07 

00 

STA SDD07 

FEF1 

A9 

11 


LDA #S11 

FEF3 

80 

OF 

00 

STA SODOF 

FEF 6 

AD 

A1 

02 

LOA S02A1 

FEF9 

80 

X 

X 

STA SXX 

FEFC 

A9 

FF 


LOA «SFF 

FE FE 

80 

06 

X 

STA SX06 

FF01 

SD 

07 

X 

STA S0007 

FF04 

4C 

59 

EF 

JHP SEF59 


r*»*« 




Einsprung 

von SFE9A, SFEB3 

FF07 

AD 

95 

02 

LDA $0295 

FFOA 

80 

06 00 

STA SD006 

FFOD 

AD 96 02 

LOA $0296 

FF10 

80 

07 DD 

STA $0007 

FF13 

A9 

11 


LOA «$11 

FF15 

80 

OF 

00 

STA $DXF 

FF18 

A9 

12 


LOA «$12 

FF1A 

40 

AI 

02 

EOft S02A1 


Port Register B 

Bit für Receive Data isolie* 

ren 

und speichern 
Tiner B LOW 
minus 28 

+ LOU-Byte der Baudrate 

wieder abspeichern 

RS 232 Tinerkon. für Baudrate 

HIGK-Byte addieren 

in Tiner schreiben 

Tiner B starten 

Control Register B 

CIA 2 NMI-Flag holen 

Interrupt Control Register 

Wert laden 

und damit 

T iiser setzen 

Bit holen 

NNI-Routine RS 232 Ausgabe 


LOW- und HIGH-Byte 
holen und in 

RS 232 Tinerkonstanten für 

Baudrate 

Tiner B starten 

Control Register B 

Bit 1 und 4 für Verknüpfung 

mit NMt-Flag für CIA 2 
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FFID 

8D AI 02 

STA S02A1 

FF20 

A9 FF 

LDA «SFF 

FF22 

06 DO 

STA $DD06 

FF25 

8D 07 DD 

STA $0007 

FF28 

AE 98 02 

LDX $0298 

FF2B 

66 A8 

STX $A8 

FF2D 

60 

RTS 


Einsprung von SF44A 

FF2E 

AA 

TAX 

FF2F 

AD 96 02 

LDA $0296 

FF32 

2A 

ROL 

FF33 

AS 

TAY 

FF34 

SA 

TXA 

FF35 

69 C8 

ADC l$C6 

FF37 

80 99 02 

STA $0299 

FF3A 

98 

TTA 

FF3B 

69 00 

AOe *$00 

FF3D 

60 9A 02 

STA S029A 

FF40 

60 

RTS 

FF41 

EA 

NOP 

FF42 

EA 

HOP 




Efnsprmg von iF927 


FF43 

06 

PHP 

FF44 

68 

PLA 

FF4S 

29 EF 

AND «BEF 

FF47 




FP6e 48 PHA 

FF49 8A TKA 


Wert Mieder speichern 
höchsten Wert laden 
und in Latch von 
Titaer B laden 

Anzahl der zu sendenden Bits 
in Zöhler für WortUnge 
Rücksprung 

TiinerHert für Sendriteudrate 
eraitteln 


Baudrate aus Tabelle nach X 
hIGH-Byte holen 
mal 2 

nach Y retten 
L0U-8yte holen 
plus 200 

nach Tieeruert LOW 
HIGH-Byte zurückhoten 
Übertrag addieren 
nach T inerwert HIGH 
RQcksprung 

Ho Operation 
No Operation 

Einsprung aus Bandroutine 


Statusregister auf Stapel 
Statusregister in Akku 
Break-Flag löschen 
ind wieder auf Stapel legen 

IRQ-E {nspri/ig 

Akku auf Stapel retten 

X nach Akku 
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FF4A 

48 


PHA 


X'Register retten 

FF4B 

98 


TYA 


y nach Akku 

FF4C 

48 


PHA 


Y'Register retten 

FF4D 

BA 


TSX 


Stapelzeiger als Zihler in X 

FF4E 

BD 04 

01 

LDA 

>0104,X Break-Fteg vom Stapel holen 

FF51 

29 10 


AND 

«>10 

und testen 

FF53 

FO 03 


BEQ 

>FF58 

nicht gesetzt 

FF55 

6C 16 

03 

JHP 

00316) BREAK - Routine 

FFS8 

6C 14 

03 

JHP 

00314) 

Interrupt - Routine 


•••••••••••••*•••••*«•••**• Video*R6S6t 


Einsprif« von SFCFB, $FFS1 


FF5B 

20 

18 ES 

JSR >E518 

VideocontroUer Initialisie¬ 





ren 

FF5E 

AD 

12 00 

LOA >0012 

Rasterzeile 

FFÖ1 

00 

FB 

BNE >FF5E 

wartet auf Ende Videozeile 

FF63 

AD 

19 00 

LOA >0019 

Interrifjt durch Rasterzeile? 

FF66 

29 

01 

AND #>01 

Bit 0 isolieren und als Flag 

FF68 

80 

A6 02 

STA S02A6 

PAL/NTSC-Version merken 

FF6B 

4C 

00 FD 

JHP SFDDD 

Interrupttimer setzen 


••••••••••••••••••••••••••• Tiiser für Intem 4 >t setzen 

Einsprtf>9 von $F0F6 


FF6E 

A9 

81 

LOA #S81 

Timer A Unterlauf 

FF70 

80 

00 DC 

STA SOCOO 

Interrupt Control Register 

FF73 

AD 

OE DC 

LOA SOCOE 

Control Register A 

FF76 

29 

80 

AND «>80 

Bit 7 retten 

Uhrzeittrigger (50/60 Hz) 

FF78 

09 

11 

ORA «>11 

Timer A starten 

FF7A 

80 

OE DC 

STA SOCOE 

Control Register A 

FF7D 

4C 

8E EE 

JHP SEE8E 

seriellen Takt aus 

FF80 

00 


BRK 

BReaK 
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••••••••••••••••••••••••••• 


FF81 

4C SB 

FF 

JHP SFF5B 

FF84 

4C 

A3 

FD 

JHP SF0A3 

FF87 

4C 

50 fO 

JHP SFOSO 

FF8A 

4C 

15 

FD 

JHP SF015 

FFeO 

4C 

1A 

FO 

JHP SFD1A 


'••••••Ml 


FF90 

4C 18 FE 

JHP SFE18 

FF93 

4C B9 ED 

JHP SEDB9 

FF96 

4C C7 ED 

JHP SEDC7 

•««••«*•****••««*«««******* 

FF99 

4C 25 FE 

JHP tFE25 

FF9C 

4C 34 FE 

JHP SFE34 

FF9F 

4C 87 EA 

JHP $EA87 

FFA2 

4C 21 FE 

JHP SFE21 

FFA5 

4C 13 EE 

JHP SEE13 

FFA8 

4C 00 ED 

JHP SEDOO 


Sprungtsbelle für 
Betriebssystm-Rout <n*n 

Video'Reset 

CIAs initialisieren 

RAH löschen bzw. testen 

I/O initialisieren 

I/O Vektoren initialisieren 

Einsprung von SA47D. $AS74 

Status setzen 

Sekundäradresse 
nach LISTEN senden 

Sekuiidsradresse 
nach TALK senden 

Einsprung von SE40B 

RAH-Ende setzen/holen 

Einsprurfl von SE403 

RAM-Anfang setzen/holen 

Tastatur abfragen 

Time-out*Flag für 
lEC'Bus setzen 

Eingabe vo« lEC-Bus 

Ausgabe voa lEC-Bus 








566 


64 Inlern 


FFAB 4C EF ED JHP SEOEF UNTALK senden 

FFAE 4C FE ED JHP SEDFE UHLISTEN Senden 

FFBl 4C DC ED JHP SEDOC LISTEN senden 

FFB4 4C D9 ED JHP SEDD9 TALK senden 

Einsprung von SABDD, $AF9A. SE180, $EI95 

FFb 7 4C 07 FE JHP BFE07 Status holen 

Einspru^g von SElDD, SEIFO, SE1F0, $E22B, 
SE23F, SE24E 

FFBA 4C 00 FE JHP SFEOO Fileparaneter Betzen 

•<e*«*ik*************M*M** Einspnrg von $£106, $£21B. $E26i 

FFBD 4C F9 FD JHP SF0F9 Filefianenparaiaeter setzen 

•••••••••••••••••••••••I»«« Einsprung von SEICI 

FFCO 6C 1A 03 JHP (S031A} SF34A OPEN 
••••••••••••••••■•••••••••• Einsprung von SEICC 

FFC3 6C 1C 03 JNP (S031C1 tP291 CLOSE 

g insppung von SEHE 

FFCd 6C IE 03 JHP (S031E} SF20E CHKIN Eingabeg. Betzen 

Einspruig von $E4AE 

FFC9 6C 20 03 JHP (S0320} SF25D CKOUT Ausgabegerät Set. 




Einsprung von $A447, SABB7. SE37B, SF6F4. 
SF716 
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••••••••••••••••••••••••••• Einsprung von $E112 

FFCF 6C 24 03 JHP ($0324) tF157 BASIN Eingabe 

eines 2eichens 

Einsppun* von SEIOC. $F135. $F5C9. $F726. 
$F759 

FF02 ’ 6C 26 03 JHP ($0326) $Fia( BSOUT Ausgabe 

eines Zeichens 

>»*>»*»»»»»»»••••• Einsprung von $E175 

FFD5 4C 9E F4 JMP $F49E LOAD 

>•>•>•>•>»»»»»»»**•> Einsprung von $E15F 
FFOB 4C DD FS JHP $F5DD SAVE 

»•■•••>•••****«*««**•••««•• Einsprung von $AA1A 
FFOB 4C E4 F6 JHP $F6E4 Tine setzen 

•••••••••••••••••••••>•••>* EinsprMTtg von $AF84 

FFDE 4C DD F6 JMP $F60D Time holen 

»••••••••*****•••••••»»»»»» Einsprung von $A82C, $f4F9. $F62E, $F800, 

$FE61 

FFE1 6C 28 03 JHP ($0328) $F6ED STOP-Taste abfragen 

••••••••••••••*•••••**■•■•* Einsprung von $E124 

FFE4 6C 2A 03 JHP ($032A) $F13E 6ET 

*>»•>*>•>•>•>*>•>»*>»•» Einsprung von $A660 

FFE7 6C 2C 03 JHP ($0320 $F32F CLALL 
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Einspr««)g von SEA31 

FFEA 

4C 9B F6 

JHP SF69B 

Time erhöhen 

FFED 

4C 05 ES 

JHP SE505 

SCREEH Anzahl Zellen 

und Spalten holen 




Einsprtng von SAAE9, SAAFA, SB39F 

FFFO 

4C OA E5 

JHP SE50A 

Cursor setzen ! 

Cursorposftien holen 




Einsprung von tE09E 

FFF3 

4C 00 ES 

JHP SE500 

Startedresse des 

I/O-Bausteins holen 

FFF6 

SZ SZ 4Z S9z 




Hardware Vektorenz 

FFFA 

43 FE 

SFE43 

NHI Vektor 

FFFC 

E2 FC 

SFCE2 

RESET Vektor 

FFFE 

48 FF 

SFF48 

IRQ Vektor 


SX-'64 Betriebssystem 

Im folgenden sind die Abweichungen des SX 64 Betriebssystems 
gegenüber dem normalen C64 aufgelistet. Sie beziehen sich 
hauptsächlich auf geänderte Einschaltmeldung, andere Farbkom- 
binationen nach dem Einschalten sowie auf das Fehlen des An¬ 
schlusses für die Datasette (Geräteadresse 1) 

•*•••**••••••••••••••••••••• Einschaltnieldung 

E479 20 ZA 2A 2A 2A 2A 20 20 ***** 

E481 53 58 20 36 34 20 42 41 SX-64 BA 
E489 53 49 43 20 56 32 2E 30 SIC V2.0 
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E491 20 20 2A 2A 2A 2A 2A 00 
EAAC B3 


E6D3 

85 

A9 

STA 

SA9 

E6D5 

A9 01 

LOA 

#S01 

E6D7 

85 AB 

STA 

SAB 

E6D9 

60 


RTS 


E60A 

AO 86 02 

LDA 

S0286 

E534 

A9 

D6 

LOA 

«SOö 






E57C 

20 

FD E9 

JSR 

SE9F0 

E57F 

A9 

27 

LOA 

«S27 

E581 

e8 


INX 


E582 

B4 

D9 

LDY 

S09,X 

E586 

30 

06 

BMI 

SE58C 

E586 

18 


CLC 


E587 

69 

28 

AOC 

«S28 

E589 

E8 


INX 


ES8A 

10 

F6 

BPL 

SE582 

Esac 

85 

DS 

StA 

SD5 

ESSE 

6C 

26 EA 

JMP 

SEA26 

ES91 

E6 

C9 

CPX 

SC9 

E593 

FO 

03 

BEQ 

SE598 

E595 

6C 

ED E6 

JMP 

SE6ED 

E598 

60 


RTS 


ES99 

EA 


HOP 


E5EE 

A2 

OF 

LDX 

«SOF 

E5F0 

78 


SEI 


E5F1 

86 

C6 

STX SC6 

E5F3 

BO 

D7 FO 

LOA SF007,: 

E5F6 

90 

76 02 

STA S0276.: 


RS-232 Routinen 
fn Speicher für Band 
Wert Laden und 
in Speicher für Band 
Rücksprung 

H fntergruridfarbe setzen 
aktuelle Textfarbe 
EinschaLtfarbe blau 

Cursorposition berechnen 
Zeiger auf Videoratn setzen 
39 

Zeiger erhöhen 

MSB der Startadresse der 

Zeile 

Nsi ; $E58C 

Carry Löschen (Addition) 

60 addieren 
Zeiger erhöhen 
Fertig? nein: nächste Zeile 
Länge der Zeile speichern 
Zeiger auf Farbratn berechnen 
mit CursorzeiLe für Eingabe 
vergleichen, gleich: RTS 
MSB's für Zeile berechnen 
Rücksprung 
No Operation 

Text nach Drücken von 
Shift RUHfSTOP 
15 Zeichen 
Interrupt setzen 
Anzahl der Zeichen in 
Tastaturpuffer 

Text L0AD":*".8 <CR» RUN <CR» 
in Tastaturpuffer schreiben 
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E621 

20 91 

ES 

JSR SE591 

EA07 

20 DA 

**** 

E4 

JSR SE60A 

EAOA 

A9 20 


LDA l»20 

EAOC 

91 Dl 


STA (SOI),' 

EAOE 

88 


DET 

EAOF 

10 F6 


BPL SEA07 

EA11 

60 


RTS 

EA12 

EA 


NOP 

EC09 

03 01 



*•***«*•**•1»« 



EF96 

6C D3 

E6 

JMP SE603 

Fns 

6C 6F 61 

u 

22 3A 2A 22 

FOEO 

2C 38 OD 

< 52 

8 

UJ 


F386 

DO 

08 

BNE 

SF390 

F6F6 

90 

85 

BCC 

SF670 

F5F8 

90 

F7 

BCC 

SFSF1 


Cursorposition Bildschirm 

Bildschirnizeile Löschen 
Cursorferbe setzen 
' ' Leerzeichen 
in VideorEMS schreiben 
Zöhler vermindern 
Fertig? nein: weiter 
ROcksprung 
No Operation 


zur geänderten RS 232-Routine 

Text nach Shift RUN/STOP 
LOW)":*" 

,8 RUN 

Ignorieren der Ceräte- 
adresse 1 (Datasette) 
zu 'ILLEGAL DEVICE NUNBER' 

Memory top setzen 

zu 'ILLEGAL DEVICE NUNBER' 


FF80 63 
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7. Der Schaltplan 

7.1 Die Dokumeatation des Schallplans 

Zu Anfang dieses Kapitels einige Vorbemerkungen: 

Leider können die folgenden Seiten keine Einführung in die 
Digital- oder Computertechnik bieten. 

Wir müssen einige elementare Kenntnisse dieser Technik vor¬ 
aussetzen. So sollten Sie den Unterschied zwischen einem AND- 
und einem OR-Gate kennen, oder sich beispielsweise in der Be¬ 
nutzung der Hexadezimalzahlen auskennen. Wenn Sie diese 
Grundkenntnisse bereits haben, bisher aber mit der Hardware 
von Microcomputern nichts zu tun hatten, so sollten Sie sich von 
der etwas verwirrenden Anzahl der Leitungen, Gatter und 
anderen ICs im Schaltplan nicht beeindrucken lassen. 

Nach der Lektüre dieses Kapitels werden Sie die Hardware Ihres 
Computers recht gut verstehen. Den Spezialisten und Treaks’ 
unter Ihnen wird die Beschreibung sicher zu ausführlich er¬ 
scheinen. Sie sollten dies Kapitel trotzdem in Ruhe durchlesen. 
Um die Funktionen der einzelnen Stufen nur an Hand des 
Schaltplans im Detail zu verstehen, ist wesentlich mehr Zeit er¬ 
forderlich, als zum Lesen dieses Kapitels benötigt wird. 


Den kompletten Schaltplan finden Sie im Anhang dieses Buchesl 

Jeder technisch interessierte Computerbesitzer hat sicher den 
Wunsch, sein Gerät einmal zu öffnen und hineinzuschauen. 
Vielleicht haben auch Sie schon einmal das Innenleben betrach¬ 
tet. Sollten Sie aber aus Vorsicht, den C64 nicht zu beschädigen, 
diesem Wunsch nicht nachgegeben haben, dann seien Sie beru¬ 
higt. Lösen Sie zuerst alle Leitungen zum C64, also Netzteil, 
Fernseher und alle anderen angeschlossenen Geräte. Dann kön¬ 
nen Sie unbesorgt zu einem passenden Kreuzschlitz¬ 
schraubenzieher greifen, die auf der Unterseite befindlichen drei 
Schrauben lösen und vorsichtig die beiden Gehäusehälften tren¬ 
nen, um einen Blick in den Computer zu werfen. 
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Lösen Sie aber unbedingt zuvor die Steckverbindung zum Netz¬ 
teil, um versehentliche Kurzschlüsse zu vermeiden. 

Das Foto zeigt den Blick in einen C64. Wenn Sie feststellen, daß 
Ihr C64 ein etwas anderes Innenleben aufweist, dann liegt das 
daran, daß das Layout der Leiterplatte im Lauf der Zeit öfter 
geändert worden ist. Die abgebildete Platine stellt den zur Zeit 
der Drucklegung gültigen Stand dar. 
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Ein Blick ins Innere 



1. SID 6311 

2. Character-ROi 

3. Kernal-ROH 
i. Basic-ROH 

5. CIA U2, USER-Port, opt. RS-232, teil«, serieller 
lEC-Bus, VideohUfsadressen 

6. CIA Ul, Tastaturabfrage, Control-Ports Cass-Read 


7. Anschluß für die Tastatur 
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1. Henory-Hanager 

2. Farb-RAH 

3. Prozessor 6510 

i. Transistorstufe zur Hotorsteuerung der Datasette 


5. (AK RAH Multiplexer 
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1. 5 Volt Festspaorxinssregler 

2. 12 Volt Festspannunasregler 

3. Control-Ports 

4. Sicherung 

5. Eln-ZAus-Schalter 

6. StroKiversorgungstecker 

7. Expansion-Port 
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1. Quarz 

2. VJC 656V 

3. Modulator 

4. Efnstellregler für Kanalfrequenz des Modulators. 
Kann bei Bedarf verstellt werden, wenn ein 
starker Fernsehsender auf dem Kanal liegt. 
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7.2 Liste der verwendeten Halbleiter 

Für die Spezialisten unter Ihnen hier noch eine Aufstellung der 
im CBM 64 verwendeten ICs mit Herstellerangaben. Damit 
haben Sie die Möglichkeit, Ihr Gerät selbst zu reparieren. 


U3 

U4 

US 

U6 


Hersteller 
Ceemodore HOS 
Connodore HOS 
Connodore HOS 
Connodore HOS 
ComoJore HOS 
diverse Hersteller 
HSH 21HL'3 
2IUL-3 
HH2114L-3 
HPS2114L-30 
HCM2114I.-30 
uPD2114l-t 

6510 HPU Ccrmodore HOS 

7406 diverse Hersteller 

4164 RAH diverse Hersteller 


Bei. Typenbez. 

Ul 6526 CIA 
U2 6526 CIA 

2364A BASIC 
2364A KERNAL 
2332A CKARACTER 
2114L-3 COLOR RAH 
Z.B. OKI 
FAIRCNAIID 
HITACHI 
HOS 

HOTOROLA 
NEC 
U7 
US 
U9 
U10 
U11 
U12 
U21 
U22 
U23 
U24 
U13 
U14 
U15 
U16 
U17 

U1S 
U19 
U20 
U25 


Z.B. NEC 
HOSTEK 


uPD4164'2 

HK4164M0 


SN74LS257 

SN74LS278 

SN74LS139 

HC4066 

S25100 

6581 SID 
6589 VIC 
556 

SN74LS257 


diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
Signetlcs, proBrsnniert durch 
Comnodore 
CoMModore HOS 
Connodore HOS 
diverse Hersteller 
diverse Hersteller 
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U26 

SN74LS373 

U27 

SN74LS08 

U2S 

HC4066 

U29 

SH74LS74 

USO 

SN74LS193 

U31 

SK74LS629 

U32 

HC4044 

VR1 

7812 12V Regler 

VR2 

7805 5V Regler 


diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
diverse Hersteller 
Notorola 

diverse Hersteller 
diverse Hersteller 


7.3 Die Stromversorgung 

Obwohl die Stromversorgung zu den einfachen Schaltkreisen in 
einem Computer gehört, hat der Entwickler doch einige Tricks 
angewendet, um mit minimalem Aufwand einen größtmöglichen 
Effekt zu erzielen. 

Den Anschluß an das Lichtnetz übernimmt der Trafo. Dieser 
Trafo befindet sich zusammen mit einer Gleichrichterschaltung 
im Trafogehäuse und wird über einen 7-poligen DIN-Stecker an 
die mit CN7 bezeichnete Buchse angeschlossen. Im Trafo wird 
eine Wechselspannung von 9 Volt erzeugt, die auf die Pins 6 
und 7 von CN7 geführt werden. Die Gleichrichterschaltung im 
Trafogehäuse erzeugt Über eine zweite Trafowicklung eine sta¬ 
bilisierte Gleichspannung von 5 Volt. Diese 5 Volt liegen auf 
dem Pin 5 von CN7, die Masseleitung auf den Pins 1, 2 und 3. 
Die von den Buchsenkontakten kommenden Spannungen werden 
zur Beseitigung von Netzstörungen über die Spulen L2 und L4 
und die Kondensatoren C20, C21, C98, C99 und ClOO geführt 
und gefiltert. 

Der mit SWl bezeichnete doppelpolige Schalter ist der an der 
rechten Seite befindliche Einschalter. Die 9 Volt Wechselspan¬ 
nung wird mit der Sicherung Fl (1 Ampere) abgesichert und 
steht am Userport an den Kontakten 11 und 12 zur Verfügung. 
Diese Spannung können Sie nach Gleichrichtung und Siebung 
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für externe Geräte verwenden; belasten Sie diese Stromquelle je¬ 
doch nur mit maximal 100 mA, die Sicherung wird es Ihnen 
danken. 

Apropos Sicherung: 

Wenn sie defekt ist, leuchtet die LED am 64, auch eine ange¬ 
schlossene Floppy macht beim Einschalten des Rechners einen 
Reset, auf dem Bildschirm ist aber nichts zu sehen. Vergewis¬ 
sern Sie sich aber zuerst, ob der Fernseher auf dem richtigen 
Kanal steht und das HF-Kabel angeschlossen ist. Wenn alles 
richtig erscheint, kontrollieren Sie die Sicherung. Ist diese 
durchgebrannt, dann ersetzen Sie sie durch eine Sicherung mit 
dem Wert 1.25 Ampere. Sollte auch die neue Sicherung ihren 
*Geist' aufgeben, liegt mit einiger Wahrscheinlichkeit ein Defekt 
vor. 

Nach der Sicherung kommt eine Gleichrichterschaltung , welche 
5 Volt stabilisiert, 9 Volt ungeregelt sowie 12 Volt stabilisiert 
zur Verfügung stellt. 

Die Gleichrichterschaltung besteht aus dem Brückengleichrichter 
CR4 und den Dioden CNS und CN6. Hinter dem Brückengleich¬ 
richter stehen die ungeregelten 9 Volt, die mit VR2, einem inte¬ 
grierten 5V-Festspannungsregler, auf 5 Volt stabilisiert werden. 
Über die Dioden CNS und CN6 wird die Wechselspannung auf 
eine ungeregelte Gleichspannung von ca. 16 Volt gleichgerichtet, 
die mit dem Spannungsregler VRl auf 12 Volt stabilisiert wird. 

Die aus dem Trafogehäuse kommenden 5 Volt sind mit einem 
eigenen Spannungsregler schon im Trafogehäuse stabilisiert. Dies 
hat den Vorteil, das die erzeugte Verlustwärme nicht den Com¬ 
puter aufheizt, der erzeugt schon genug eigene Wärme. Diese 
Spannung übernimmt die Versorgung der meisten ICs in Ihrem 
C64 und liegt am Pin 2 des Userports CN2. Damit steht Ihnen 
für kleinere Projekte schon eine geeignete Spannung zur Verfü¬ 
gung. Aber auch diese Spannungsquelle sollten Sie nicht überla¬ 
sten. Der Maximalstrom ist mit 100 mA angegeben, sicherlich 
für einige ICs ausreichend. Erfreulicherweise ist diese Spannung 
kurzzeitig kurzschlußfest. Dieser Kurzschlußfall ist sehr einfach 
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feststellbar. In diesem Fall erscheint kein Bild auf dem ange¬ 
schlossenen Fernseher und die Leuchtdiode leuchtet nicht, da 
auch sie von dieser Spannung versorgt wird. 

Die im C64 erzeugte Spannung von 5 Volt trägt die Bezeichnung 
CAN+5. Diese Spannung versorgt den Videocontroller (weiterhin 
kurz als VIC bezeichnet), die Videoausgangsstufe und alle zur 
Takterzeugung benötigten ICs. Der VIC bekommt die 5 Volt 
direkt, zur Videoausgangsstufe wird die Spannung über die 
Spule LI und die Kondensatoren C6I, C63 und C64 gefiltert. 
Alle der Takterzeugung zugehörigen Bauteile bekommen die 
Spannung über L2, C6S, C66 und C67 gesiebt zugeführt. 

Da die Datasette kein eigenes Netzteil hat, muß der Computer 
auch den benötigten ’Saft’ hierfür liefern. Die von der Datasette 
benötigten Spannungen sind 6 Volt für den Recordermotor und 
5 Volt für die eingebaute Elektronik. Der Antriebsmotor be¬ 
kommt die Spannung über die Transistorschaltung Ql, Q2 und 
Q3 auf die Kontakte 3 und C des Kassettenportsteckers CN3 
geschaltet. Wenn der Prozessor das Portbit 5 auf HIGH legt, 
wird der Transistor Q2 durchgeschaltet. Damit ist die Zenerdi¬ 
ode CR2 kurzgeschlossen, der Transistor Ql bekommt keine 
Basisvorspannung, Ql und Q3 sperren. Der Recordermotor 
stoppt. Wird das Portbit dagegen LOW, dann ist der Transistor 
Q2 gesperrt. An der Basis von Ql liegt die Zenerspannung von 
7.5 Volt und steuert die Transistoren Ql und Q3 an. Am Emitter 
von Q3 liegt die um die beiden Basis-Emitterspannungen der 
Tranistoren (ca l.S Volt) reduzierte Zenerspannung, das ergibt 
ca. 6 Volt. Durch diese Stabilisierung der Motorschaltstufe wird 
eine konstante Drehzahl des Motors erreicht. 

Die Elektronik der Datasette wird über die Kontakte 2 und B 
des Steckers CN3 versorgt. Bleiben noch die 12 Volt. Diese 
Spannung wird für den VIC, den SID (Sound Interface Device) 
und die Audioausgangsstufe mit dem Transistor Q8 benötigt. 

Nicht direkt zur Stromversorgung gehörend ist die kleine Schal¬ 
tung rund um das Gatter U27. Trotzdem soll sie hier erläutert 
werden, da sie ihre Signale aus dem Netzteil bekommt. Das 
Gatter U27 stellt eine UND-Verknüpfung dar. Der Eingang Pin 
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13 liegt fest an 5 Volt, der Eingang Pin 12 über den Widerstand 
RS an den 9 Volt Wechselspannung. Am Pin 12 würde sich die 
Spannung also mit der Netzfrequenz von SO Hertz ändern. Nun 
ist einen Spannung von 9 Volt für einen TTL-Eingang nicht 
sehr verträglich und eine negative Spannung von -9 Volt sollte 
an einem solchen Eingang unbedingt vermieden werden, um das 
IC nicht zu zerstören. Um die Eingangsspannung zu begrenzen, 
ist die Zenerdiode CRI an den Eingang geschaltet. Wenn die 
Wechselspannung über Volt steigt, so wird sie von der 

Zenerdiode auf diesen Wert begrenzt. Damit ist ein logisches 
HIGH-Signal gegeben. Die negative Spannung wird von der 
Zenerdiode auf -0.7 Volt begrenzt, ein Wert, den der TTL-Ein- 
gang noch gut verkraftet, und der als logisches LOW-Signal er¬ 
kannt wird. Die Spannung schwankt also im Rythmus der Netz¬ 
frequenz am Pin 12 des U27 zwischen LOW und HIGH. Damit 
ändert sich der Ausgang im selben Takt. 

Der Widerstand R37 stellt eine Mitkopplung dar, er beschleunigt 
die Anstiegs- und Abfallzeiten, um saubere Rechteckimpulse für 
die weitere Verwendung zur Verfügung zu stellen. 

Woraus besteht nun die weitere Verwendung? 

Im Schaltplan kann man erkennen, das diese SO Hertz an die ICs 
Ul und U2, die beiden CIAs, gehen. Auf die ClAs wird im 
weiteren Verlauf der Schaltplanbeschreibung noch näher einge¬ 
gangen. Jetzt nur so viel: 

Die Netzfrequenz ist das am einfachsten zu erzeugende fre¬ 
quenzkonstante Signal. Darum eignet es sich besonders für An¬ 
wendungen, in denen Zeiten gemessen werden sollen. Das ist 
auch Aufgabe des Signals in den ClAs. Diese enthalten soge¬ 
nannte Echtzeituhren, die ihren Takt von der Netzfrequenz be¬ 
ziehen. 
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7.4 Die Takterzeugung 

Für ein ordnungsgemäßes Funktionieren eines Computers ist 
eine stabile und störungsfreie Stromversorgung sehr wichtig. Die 
Konstanz und Stabilität der Taktsignale ist für die Funktion aber 
sicher genau so maßgebend. Dieser Takterzeugung wollen wir 
uns jetzt zuwenden. 

Wenn Sie auf die Leiterplatte des CBM 64 schauen und mit dem 
Schaltplan auf IC-Suche gehen, so werden Sie vermutlich das 
eine oder andere IC nicht auf den ersten Blick finden, genauso¬ 
wenig wie die für die Taktversorgung zuständigen ICs. Diese 
befinden sich zusammen mit dem VIC (Video Interface Con¬ 
troller) in dem Blechkasten in der Mitte der Platine (nicht der 
Kasten mit dem Fernsehanschluß, das ist der UHF-Modulator). 
Dieses Blechgehäuse schirmt die bei der Takterzeugung entste¬ 
hende hochfrequente Störstrahlung ab. Bei Rechnern ohne aus¬ 
reichende Abschirmung kann man beobachten, daß alle im 
näheren Umkreis befindlichen Radios nur Pfeif- und Zischlaute 
von sich geben. Schlimmer noch, auch Fernsehgeräte werden von 
solchen Störstrahlungen beeinflußt. Wenn der 64 nicht über 
ausreichende Entstörmaßnahmen verfügen würde, wäre der Be¬ 
trieb mit einem Fernseher wenn auch nicht unmöglich, so doch 
sehr gestört. 

Die alles bestimmende Taktfrequenz wird vom Quarz Yl er¬ 
zeugt. Doch vorab noch eine Erläuterung. Alle jetzt folgenden 
Angaben beziehen sich auf ein für den deutschen Markt produ¬ 
ziertes Gerät mit PAL-Ausgang. 

Der Quarz Yl schwingt mit einer Frequenz von 17.734472 MHz. 
Er ist über C70 an das IC U31 angeschlossen. Das IC U31, ein 
TTL-IC mit der Bezeichnung 74LS629, enthält 2 unabhängige 
VCOs. Ein VCO ist ein spannungsgesteuerter Oszillator. Durch 
eine am Steuereingang angelegte Gleichspannung kann die Fre¬ 
quenz in einem bestimmten Bereich verändert werden. Dieser 
Steuereingang ist für den VCO 1 der Pin 1. Das Poti R27 an 
diesem Eingang erlaubt eine wenn auch geringfügige Änderung 
der Ausgangsfrequenz. Da auch Quarze eine gewisse Toleranz 
haben, läßt sich die Soll-Frequenz mit dem Poti genau einstellen. 
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Der Ausgang des VCO I ist der Pin 10. Die hier anliegende Fre¬ 
quenz wird direkt als Signal OCOLOR an den VIC geführt. 
Gleichzeitig gelangt das Signal an das IC U30. Dieses IC, ein 
74LS193, ist als Frequenzteiler geschaltet. Dieser Teiler hat ein 
einstellbares Teilerverhältnis. In Abhängigkeit der Pegel an den 
Pins I, 9, 10 und 15 läßt sich jedes Teilerverhältnis zwischen i:i 
und 15:1 einstellen. In unserem Fall ist das Teilerverhältnis auf 
9:1 eingestellt. Die 17.734 MHz werden also durch 9 geteilt. Da¬ 
mit steht am Ausgang Pin 6 eine Frequenz von 1.9704 MHz zur 
Verfügung. Diese Frequenz wird auf den Pin 11 des IC U29 
geführt. U29 enthält 2 Flipflops. Mit jeder positiven Flanke des 
Öock-Signals an Pin 11 wird die am Dateneingang Pin 12 des 
Flipflops 1 liegende Information auf den Q-Ausgang Pin 9 wei¬ 
tergegeben. Der Ausgang -Q (Pin 8) hat dann auch die Ein¬ 
gangsinformation, nur mit invertierter Polarität. In der vorlie¬ 
genden Beschaltung liefert die durch 9 geteilte Quarzfrequenz 
das Clocksignal für FFl. Der Dateneingang ist mit dem Ausgang 
-Q verbunden. Wenn dieser -Q-Ausgang HIGH ist, wird das 
HIGH-Signal mit der nächsten positiven Flanke an Pin 11 auf 
den Q-Ausgang gegeben. Gleichzeitig wird der -Q-Ausgang 
LOW. Mit der nächsten positiven Taktflanke wird das LOW an 
Q gelegt, -Q hat jetzt wieder ein HIGH und so weiter. 

Mit jedem zweiten Taktimpuls wechseln also die Ausgänge ihren 
Zustand. Das kommt einer Frequenzteilung durch den Faktor 2 
gleich, am Ausgang erscheint eine Frequenz von 985,248 KHz. 
Das ist die Taktfrequenz des Prozessors. Dieses Signal wird aber 
nicht direkt als Takt verwendet, die ganze Sache ist etwas kom¬ 
plizierter. Das Signal Dot Clock mit der Frequenz 7,88198 MHz 
läßt sich durch Frequenzteilung nicht aus der Quarzfrequenz 
ableiten. Darum muß ein anderer Weg beschritten werden, die 
Frequenzsynihese mit einer PLL-Schaltung. PLL bedeutet Phase 
Locked Loop, übersetzt etwa phasengeregelte Schleife. Der PLL 
im 64 ist mit den ICs U32, U31 und dem VIC auf gebaut. Wich¬ 
tigster Bestandteil eines PLL ist ein Phasencomparator mit zwei 
Eingängen. Dieser Phasencomparator liefert an seinem Ausgang 
eine Gleichspannung, die proportional der Phasenlage der beiden 
Signale ist. Diese Funktion ist mit dem IC U32 und dem Transi¬ 
stor Q7 aufgebaut. Im Detail funktioniert die Sache etwa so: 



584 


64 Intern 


Am Eingang Pin I des U32 liegt eine Frequenz von 985 KHz, 
geliefert vom Ausgang des Flipflop U29. Am zweiten Eingang 
des PLL Pin 3 liegt das Signal Oo, das vom VIC gelieferte Takt¬ 
signal für den Prozessor, mit noch unbestimmter Frequenz. Die¬ 
ses Signal Oo vom VIC stellt das durch 8 geteilte Ausgangssignal 
des VCO 2 im U31 dar. Die Frequenzteilung durch 8 findet 
direkt im VIC statt. Die Frequenz des VCO 2 wird nicht durch 
einen Quarz, sondern durch einen Kondensator, den C86, be¬ 
stimmt. Die Steuerspannung des VCO 2 wird jetzt durch den 
Ausgang des Phasencomparators U32 geliefert. Wenn die Steu¬ 
erspannung des VCO 2 ca. 3 Volt beträgt, schwingt er auf einer 
Frequenz von 7,88198 MHz. Wenn wir jetzt den Fall annehmen, 
daß die Frequenz des Flipflops U29 höher als die Frequenz Oo 
ist, der VCO 2 also beispielsweise nur mit 7.7 MHz schwingt, 
dann liefert der Ausgang Pin 8 des Phasencomparators eine 
Spannung kleiner 3 Volt, die den VCO mit einer höheren Fre¬ 
quenz schwingen läßt. Damit erhöht sich auch die Frequenz am 
Pin 3 des Phasencomparators, sie nähert sich der Referenzfre¬ 
quenz am Pin I, die Steuerspannung nähert sich den 3 Volt. 
Wenn die Frequenzen an Pin I und Pin 3 gleich sind, wird der 
VCO noch so lange geregelt, bis die Signale nicht nur frequenz-, 
sondern auch phasengleich sind. Derselbe Vorgang läuft ab, 
wenn der VCO mit zu hoher Frequenz schwingt. Dann wird die 
Steuerspannung größer 3 Volt. Jetzt schwingt der VCO lang¬ 
samer und die Steuerspannung nimmt ab, bis die Signale fre¬ 
quenz- und phasengekoppelt sind. Dann liegt das Signal Dot 
Clock richtig an. Die geschilderten Regelvorgänge brauchen nur 
kurze Zeit. Nach spätestens 100 Millisekunden stehen alle Fre¬ 
quenzen zur Verfügung. 

Zum Abschluß noch eine kurze Schilderung der Funktion des 
FF2 und der Abläufe in einem 64 mit NTSC-Farbausgang. In 
diesen für den amerikanischen Markt produzierten Geräten ist 
zum einen ein 14.31818 MHz-Quarz eingebaut. Des weiteren ist 
ein anderer VIC-Chip, ein 6567, in der NTSC-Version einge¬ 
setzt. Bei der PAL-Version ist dies ein 6569. 

Als drittes Merkmal ist die Drahtbrücke zwischen den Punkten 
El und £2 oder E3 anders gelegt. Bei Pal-Geräten ist diese 
Brücke zwischen El und E2 geschaltet. Damit liegen die Pins 1 
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und 10 des Teilers U30 an +5 Volt. Auch der Pin 4 des IC U29 
liegt an HIGH. Dieser Pin 4 ist der sogenannte Preset-Eingang 
an FF2. Clock-, Daten- und Clear-Eingang dieses FFs sind an 
Masse gelegt. Ein LOW-Signal Eun Clear-Eingang versetzt das 
Flipflop in einen definierten Zustand. Unabhängig von den 
anderen Eingangssignalen wird der Q-Ausgang LOW, -Q dage¬ 
gen HIGH. Wie bei so vielen anderen Gelegenheiten gibt es aber 
eine wichtige Einschränkung zu dem zuvor Gesagten: Um diesen 
Zustand zu erhalten, muß der Preset-Eingang auf HIGH-Pegel 
liegen. 

Diese Bedingung ist bei einem PAL-Gerät über die Draht¬ 
brücke erfüllt. Die Eingänge 1, 9, 10 und 15 des Zählers U30 
bestimmen binär codiert den Startwert des Zählers. Da der Zäh¬ 
ler immer bis 16 zählt, kann man mit dem Startwert das Teiler¬ 
verhältnis einstellen. Er beginnt dann nicht bei 0, sondern mit 
dem programmierten Wert. Der Eingang A stellt das niederwer¬ 
tige Bit dar, Eingang D das höchstwertige Bit. An diesen Ein¬ 
gängen liegt dezimal ausgedrOckt eine 7. Der Zähler zählt bis 16 
weiter und beginnt dann wieder bei 7. Für diesen Durchlauf 
benötigt er 9 Zählimpulse, er teilt also durch 9. Damit stellt das 
FF2 nichts anderes als einen einfachen Inverter dar. Wenn der 
Eingang HIGH ist, so ist der Ausgang LOW und umgekehrt, die 
normale Inverterfunktion. Bei NTSC liegt der Preset-Eingang 
des U29 auf LOW. Laut Datenblatt haben jetzt sowohl Q- wie 
auch -Q-Ausgang HIGH-Pegel, eigentlich ein ungewöhnlicher 
Zustand, der das IC aber nicht beschädigt. Jetzt ist das Teiler¬ 
verhältnis von U30 7:1, mit dem nachfolgenden Flipflop 14:1, 
und die Taktfroquenz des Prozessors beträgt damit 1.0227 MHz, 
ist also geringfügig höher als die PAL-Arbeitsfrequenz. 


7.5 Der Prozessor 

Wie schon erwähnt ist der Prozessor des C64 der 6510. Dieser 
neue Prozessor unterscheidet sich von dem bekannten 6502 in 
der Hauptsache durch einen im Prozessorchip integrierten Port. 
Dieser Port verfügt über 6 programmierbare IO-Leitungen(IO » 
Abkürzung für Input Output; Leitungen, die wahlweise als Ein¬ 
gänge oder Ausgänge geschaltet sind). 
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Die Zahl 6 ist im Zusammenhang mit 8-Bit-Prozessoren sicher 
etwas ungewöhnlich. Bei dem zur Verfügung stehenden 40-poli- 
gen Gehäuse waren aber nicht mehr Leitungen frei, um einen 
vollen 8-Bit-Port zu realisieren. 


Die 40 Pins des 6S10 sind wie folgt belegt: 


Pfn 

Bez. 

Fulktien 

1 

OIN 

Eingang, Systeaitakt vom VIC Pin 17 

2 

ROY 

Eingang, Ready von U27 Pin 3 

3 

-IRQ 

Eingang, Interrupt Request 

4 

-NMI 

Eingang, Non Naskable Interrupt 

5 

AEG 

Eingang, Adress Enable Control 

6 

VCC 

Betriebsspannung «SV 

7 

AO 

Ausgang, AdreBbit 0 

bis 



20 

A13 

Ausgang, AdreBbit 13 

21 

GND 

Betriebsspannung Nasse 

22 

A14 

Ausgang, AdreBbit 14 

23 

AIS 

Ausgang, AdreBbit IS 

24 

PB5 

Ein-Ausgang, Portbit S 

bis 



29 

PBO 

Ein-Ausgang, Portbit 0 

30 

07 

Ein-Ausgang, Datenfait 7 

bis 



37 

00 

Ein-Ausgang. Datenbit 0 

38 

R/'W 

Ausgang. Read/-Vrite 

39 

02 

Taktausgang Phase Two, in folgenden 02 genannt 

40 

-RES 

Eingang. Reset 


Wie viele andere Prozessoren hat also auch der 6510 einen 8- 
Bit-Daten- und einen 16-Bit-Adreßbus. Somit kann der 6510 
einen Speicherbereich von 64 K direkt adressieren. 

Die Signale OIN und 02 sind die Taktsignale des Systems, sozu¬ 
sagen der Herzschlag des Rechners. Das Signal OIN wird vom 



VIC erzeugt und hat eine Frequenz von ungefähr 985 KHz. Aus 
diesem Signal wird im Prozessor das Signal 02 erzeugt. 02 ist für 



Abb. 7.6.1; Die 6610 
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MODUL-STECKPLATZ : 


222120191817161514131211108 8766432 1 
ZY XWVUTSRPNMLKJHFEDCBA 



Abb. 7.S.3; Expamioa-Port 
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das Zusammmenspiel von Prozessor und Peripherie sehr wichtig, 
es stellt den Bezugstakt für alle Operationen des Prozessors dar. 

Das Signal -RES wird benutzt, um den Prozessor und andere ICs 
in einen definierten Anfangszustand zu versetzen. Dieser Reset 
findet im Einschaltmoment statt. Schauen wir uns diesen Ein¬ 
schaltmoment einmal etwas näher an. 

Das -RES-Signal wird vom IC U20 erzeugt. Dies IC, ein NES56, 
enthält 2 identische Timer-Bausrufen. Mit diesen Timern kann 
man durch einfache externe Beschaltung Oszillator- oder Im- 
pulsgeberbaustufen aufbauen. In unserem Fall ist das IC als Im¬ 
pulsgeber geschaltet. Mit dem Anlegen der Betriebsspannung 
wird der Kondensator ClOS über den Widerstand RSO aufgela¬ 
den. Gleichzeitig wird der Kondensator C24 über den Wider¬ 
stand R34 auf geladen. Wenn nun nach einiger Zeit (einigen 10 
Millisekunden) die Spannung am CIOS den Wert von 1.6 Volt 
(1/3 der Betriebsspannung ) übersteigt, wird der eigentliche Im¬ 
puls gestartet. Der Kondensator C24 wird Ober den Anschluß 13 
schlagartig entladen. Gleichzeitig wird der Pin 9, der Ausgang 
des Timers, auf 5 Volt gelegt. Danach wird C24 über den 
Widerstand R34 wieder aufgeladen. Aber jetzt wird die Span¬ 
nung durch den Eingang Pin 12 überwacht. In dem Moment, wo 
die Spannung 2/3 der Betriebsspannung (ca. 3.3 Volt) übersteigt, 
wird der Ausgang wieder Low. Dieser Zeitpunkt ist nach etwa .5 
Sekunden erreicht. Der am Ausgang Pin 9 des Timers befind¬ 
liche Inverter macht aus diesem positiven Impuls einen Negati¬ 
ven. An seinem Ausgang steht das eigentliche -Res-Signal zur 
Verfügung. Im Moment des Wechsels von High nach Low startet 
der Prozessor seine Arbeit. Als erstes holt er von den Adressen 
SFFFC und SFFFD (genannt Reset-Vektor) die Adresse des 
nächsten zu verarbeitenden Befehls. Auf dieser Adresse beginnt 
nun das eigentliche Betriebssystem. 

Der Pin mit der Bezeichnung R/-W signalisiert, ob der Prozessor 
einen Lese- oder einen Schreibzugriff vornimmt. Wenn diese 
Leitung High ist, liest der Prozessor Daten aus RAM, ROM oder 
Interfacechips. Bei einem Low auf dieser Leitung schreibt der 
Prozessor, d.h. er speichert Daten im Jeweils adressierten Bau¬ 
stein. Dieses Schreiben ist natürlich nur dann sinnvoll, wenn der 
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adressierte Baustein diese Daten auch speichern kann. Auf ein 
ROM zu schreiben ist wenig sinnvoll, da die Daten des ROM 
schon bei der Herstellung festgelegt werden und nicht veränder¬ 
bar sind. 

Der Pin mit der Bezeichnung -NMl (Non Maskable Interupt = 
nicht maskierbare oder ausblendbare Unterbrechnung) gestattet 
die Unterbrechung eines gerade laufenden Programms. Nicht 
maskierbar bedeutet, daß der Interrupt immer zugelassen ist. Er 
ist durch Software nicht auszuschließen. Wann immer dieser 
Anschluß nach Masse gezogen wird, wird mit der Beendigung 
des gerade abgehandelten Maschinensprachebefehls das laufende 
Programm verlassen. Der Prozessor holt vom NMI-Vektor 
(SFFFA und SFFFB) die Adresse der Interrupt-Routine, und 
verzweigt auf diese. Der NMI kann im CBM 64 durch drei ver¬ 
schiedene Ereignisse ausgelöst werden. 

Der erste Fall ist das Drücken der RESTORE-Taste. Wird diese 
Taste gedrückt, dann erzeugt der zweite Timer des U20 einen 
geeigneten Impuls. Das Drücken der Taste entlädt den Konden¬ 
sator C38 schlagartig. Über den Widerstand R35 wird der Kon¬ 
densator wieder aufgeladen, auch wenn die RESTORE-Taste 
noch gedrückt ist. Sobald die Spannung am Pin 6 des U20 1.6 
Volt übersteigt, wird der eigentliche NMI-Impuls gestartet. Der 
Ausgang des Timers Pin S wird High, am Ausgang des Inverters 
U6 erscheint ein Low-Pegel, der Kondensator C23 wird über 
den Pin I von U20 entladen und beginnt sich über R33 wieder 
aufzuladen. 

Nach ca. 18 Microsekunden ist der C23 auf 2/3 der Betriebs¬ 
spannung auf geladen und der Ausgang Pin 5 wird wieder Low, 
der -NMI-Eingang des Prozessors ist wieder High. 

Der zweite Fall wird durch die CIA U2 erzeugt. Der Pin 21 
dieses ICs kann beim Eintreffen bestimmter Ereignisse einen 
Low-Pegel annehmen. Die Erzeugung dieses -NMI wird im 
Abschnitt über die ClAs behandelt. 
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Der dritte Fall ist das Kurzschließen des Anschluß D der 
Cartridge Expansion. Hier können externe Bausteine einen In¬ 
terrupt auslösen. 

Dem -NMI ähnlich ist der -IRQ (Interrupt ReQuest). Als 
wesentlicher Unterschied zum -NMI ist zum einen der Inter¬ 
ruptvektor des -IRQ zu sehen. Dieser Vektor liegt auf den 
Adressen SFFFE und SFFFF. Des weiteren ist dieser Interrupt 
softwaremäßig ausschaltbar. 

Wenn im Prozessorstatusregister das I-Flag (Bit 2) gesetzt ist, 
werden alle auftretenden Interrupts ignoriert. 

Ein weiterer Unterschied zum -NMI ist die Tatsache, daß der - 
IRQ nicht flankengesteuert ist. Der Interrupt muß also minde¬ 
stens so lange anliegen bis der Prozessor diesen Anschluß prüft. 
Erzeugt wird der -IRQ auch wieder auf drei verschiedene 
Arten. 

Die CIA UI erzeugt an seinem Pin 21 genau wie die CIA U2 
einen Low-Pegel beim Erreichen bestimmter programmierbarer 
Zustände. Dieser Low-Pegel erzeugt einen -IRQ am Prozessor. 

Die zweite Möglichkeit der Interrupterzeugung ist der VIC. Am 
Pin 8 des VIC erscheint genau wie bei den CIAs beim Erreichen 
bestimmter, vorher durch Programmierung festgelegter Ereig¬ 
nisse ein Lowpegel und damit der -IRQ. 

Die dritte Möglichkeit der -IRQ-Erzeugung besteht im Kurz¬ 
schließen des Anschlusses 4 des Cartridge Expansion Steckers 
(CN6). Somit haben auch externe Schaltungen die Möglichkeit 
der -IRQ-Generierung. 

Der RDY-Pin zeigt dem Prozessor, ob die auf dem Datenbus 
liegenden Informationen gültig sind oder nicht. 

Immer wenn dieser Pin Low ist, wird dem Prozessor signalisiert, 
daß er die Daten noch nicht übernehmen kann. Der Prozessor 
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geht dann in einen sogenannten Wartezustand und stellt seine 
Aktivitäten ein. Er prüft nur mit jedem Taktimpuls, ob der 
RDY'Pin wieder High ist. 

ln älteren Prozessorsystemen wurde diese Möglichkeit genutzt, 
um langsame Speicher- und Peripheriebausteine am Prozessor 
anzuschließen. Im CBM 64 wird dies Signal vom VIC genutzt. 
Normalerweise geschieht der Zugriff des VIC auf das RAM nur 
in den vom Prozessor nicht genutzten Taktlücken (02 s Low). 

Bei bestimmten Operationen des VIC, z.B. Darstellung der 
Sprites, benötigt der VIC mehr Zeit, als in den Taktlücken zur 
Verfügung steht. Dann erzeugt der VIC am Anschluß BA (Bus 
Available) ein Low, welches über das AND-Gatter U27 an den 
RDY-Eingang des Prozessors geführt wird, worauf der Prozessor 
den Bus dem VIC für die benötigte Zeit zur Verfügung stellt. 

AEC ist ebenfalls ein in der Grundkonfiguration vom VIC er¬ 
zeugtes Signal. 

Immer wenn der VIC den Bus belegt, wird dieser Anschluß 0. 
Dieses Low-Signal wird an den AEC-Pin des Prozessors geführt 
und bewirkt, daß der Prozessor seine Busleitungen in einen 
hochohmigen, den sogennanten Tri-State versetzt. In der Praxis 
wirkt das, als ob der Prozessor gar nicht in seinem IC-Sockel 
säße. Solange AEC Low ist, bleibt dieser Zustand erhalten und 
andere ICs, z.B ein externer Prozessor oder der VIC, können den 
Systembus belegen. 

Der im Prozessor integrierte Port belegt die Pins 24 bis 29. Im 
CBM 64 werden verschiedene Aufgaben von diesem Port über- 
nommen.lm Einzelnen sind das die folgenden Funktionen: 

Das Portbit 0 trägt die Bezeichnung -LOWRAM. Dieses Bit 
schaltet im Adreßbereich SAOOO bis SBFFF zwischen RAM und 
ROM,d.h. bei Low-Pegel ist in diesem Adreßbereich RAM ein¬ 
geschaltet. 

Portbit I mit der Bezeichnung -HIRAM übernimmt dieselbe 
Funktion im Adreßbereich von $£000 bis SFFFF. 
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Portbit 2 mit der Bezeichnung -CHAREN selektiert, wenn es 
einen Low-Pegel hat, das Character-ROM. 

Character-ROM und der sogenannte lO-Bereich belegen den 
selben Adreßbereich von SDOOO bis SDFFF. Über -CHAREN 
wird also entschieden, ob das Character-ROM oder die den 
gleichen Adreßbereich benutzenden lO- oder Peripherie-Bau¬ 
steine VIC, SID oder CIAs selektiert sind. 

Die drei verbleibenden Bits sind für den Betrieb der Datasette 
reserviert. 

Die Schreibdaten für die Datasette werden vom Portbit 3 gelie¬ 
fert. Dieser Prozessorpin wird direkt auf die Anschlüsse E und 5 
des Cassettenports geführt. 

Portbit 4 (Cass Sense) überprüft, ob an der Datasette die Play- 
Taste gedrückt ist. Dieses Bit liegt direkt an den Anschlüssen F 
und 6 des Cassettenports. 

Die Motorsteuerung des Recorders wird von Bit 5 übernommen. 
Die Funktion der Motorsteuerung wurde schon im Kapitel 
Stromversorgung erläutert. 


Adreßdekodierung 

Da der 6S10 nur einen Adreßraum von 64 K verwalten kann, 
dieser aber schon von den 64 K RAM belegt wird, muß eine 
zusätzliche Logik die Verwaltung der sich teilweise überlappen¬ 
den Speicherbereiche übernehmen. Diese Verwaltung ist in der 
Hauptsache in einem speziellen IC integriert, dem sogenannten 
Adreß-Manager. Im Schaltplan trägt dies IC, ein FPLA (Field 
Programmable Logic Array), die Bezeichnung UI7. Erst durch 
die Programmierung hat dies IC seine besonderen Logikeigen¬ 
schaften erhalten und ersetzt eine große Anzahl verschiedener 
Gatter, die nötig wären, wollte man die Funktion des AM mit 
herkömmlichen ICs nachbilden. 
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Die Pin-Belegung dieses 28-poligen ICs sieht folgendermaßen 
aus: 


Pin 

Bez. 

Funktion 


1 

FE 

Nicht benutzt 

2 

17 

Eingang, 

A13 von 6510 Pin 20 

S 

16 

Eingang, 

A14 vom 6510 Pin 22 

4 

15 

Eingang, 

A15 vom 6510 Pin 23 

S 

14 

Eingang, 

•VA14 von CIA 2 Port A Bit 0 Pin 2 

6 

13 

Eingang, 

•CHAREN vom 6S10-Port Bit 2 Pin 27 

7 

12 

Eingang, 

-HIRAM von 6510-Port Bit 1 Pin 28 

« 

11 

Eingang, 

-LOURAM von 6S10-Port Bit 0 Pin 29 

9 

10 

Eingang, 

-CAS von VIC Pin 19 

10 

F7 

Ausgang, 

-ROHN zun Expansion Slot Pin B 

11 

F6 

Ausgang, 

-ROML zu« Expansion Slot Pin 11 

12 

F5 

Ausgang, 

-170 zin Decoder U15 Pin 1 

13 

F4 

Ausgang. 

CR/-W zm Farbran U6 Pin 10 

14 

GHD 

Betriebsspannung Nasse 

15 

F3 

Ausgang, 

-CHARCM zua Character-ROH US Pin 20 

16 

F2 

Ausgang, 

•ICERNAL zua ICernal>R0H U4 Pin 20 

17 

Fl 

Ausgang. 

•BASIC zun Basic-ROH U3 Pin 20 

10 

FO 

Ausgang. 

-CASRAN zu den RAHs Pin 15 

19 

-OE 

Eingang, 

Output Enable an Nasse 

20 

115 

Eingang, 

-VA12 von VIC Pin 28 

21 

114 

Eingang, 

-VA13 von VIC Pin 29 

22 

113 

Eingang, 

-GAME von Expansion Slot Pin 8 

23 

112 

Eingang, 

-EXRCM von Expansion Slot Pin 9 

24 

111 

Eingang, 

R/-U vom 6510 Pin 38 

25 

110 

Eingang, 

•AEC vom VIC Pin 16 

26 

19 

Eingang, 

BA vom VIC Pin 12 

27 

18 

Eingang, 

A12 vom 6510 Pin 19 

28 

Vcc 

Betrfebsspanntng «5 V 


Was bewirken jetzt die verschiedenen Eingangssignale an den 
Ausgängen des AM? Bei 16 Eingangsleitungen sind ja immerhin 
65536 verschiedene Eingangskombinationen möglich. Da der AM 
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jedoch nur 8 Ausgänge besitzt, ist schon ersichtlich, daß jeweils 
mehrere Eingangskombinationen eine bestimmte Ausgangskom¬ 
bination bewirken. 

Aber auch unter den 256 möglichen Ausgangskombinationen 
sind nur wenige für den Computer wirklich sinnvoll. 

Übrigens, wenn jede mögliche Eingangskombination und die 
dazugehörige Ausgangskombination eine Zeile einer Seite bele¬ 
gen würde, dann hätte eine vollständige Liste bei dem von uns 
verwendeten Druckformat immerhin einen Umfang von 1093 
Seiten. 


7.6 Der VIdeoconIroller 6569 

Die beiden wichtigsten Peripheriegeräte eines Computers sind 
Eingabe- und Ausgabeeinheiten, da sie die Möglichkeit schaf» 
fen, mit dem Computer in Verbindung zu treten. Die Ausgabe¬ 
einheit des C64 ist in der Regel der Fernseher oder ein Monitor. 

Der VIC stellt im C64 alle für den Betrieb eines Fernsehers oder 
Monitors benötigten Signale zur Verfügung. Dies sind die Sync- 
und Helligkeitsimpulse und die für Farbdarstellung benötigten 
Farbwerte. 

Zusätzlich übernimmt der VIC aber noch andere Aufgaben. So 
erzeugt er den von der CPU benötigten Takt, übernimmt den 
bei den verwendeten dynamischen RAMs notwendigen Refresh 
und liefert Steuersignale für den Betrieb der dynamischen 
RAMs. 

Diese Funktionen sind alle in einem 40-poligen Gehäuse unter¬ 
gebracht. Die Belegung der Pins ist in der folgenden Tabelle 
dargestellt. 
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Pin Bez. 


1 

06 

Prozessordaterbus 

bis 



7 

DO 

Prozessordaterbus 

S 

-IRO 

Ausgang, Interrupt Request 

9 

-LP 

Eingang. Light Pen 

10 

-CS 

Eingang. Chip Select 

11 

R/'W 

ReadZ-Write 

12 

BA 

Bus Avai Lebte 

13 

VDO 

Betriebsspannung *12 Volt 

14 

COLOR 

Ausgang. Farbinformation 

15 

SYNC 

Ausgang. Zeilen- md Bildsynchrenisationsimpulse 

16 

AEC 

Ausgang, Adress Enable Control 

17 

OOUT 

Ausgang, Systemtakt 

18 

-RAS 

Ausgang, Rou Adress Select 

19 

-CAS 

Ausgang, Colin Adress Select 

20 

GND 

Betriebsspannung Nasse 

21 

OCOLOR 

Eingang, Farbfreqiienz 

22 

OIN 

Eingang, Dotfrequenz 

23 

All 

ProzessoradreBbus 

24 

A0/A6 

gemultiplexter (Video*) RAH-Adreßbus 

bis 



29 

A5/A13 

gesultiplexter (Video-) RAH-Adreßbus 

30 

A6 

(Video-) RAM-Adreßbus 

31 

A7 

(Video-) RAH-AdreBbus 

32 

AS 

Prozessoradreßbus 

bis 



34 

A10 

ProzessoradreBbus 

35 

011 

Ostenbus Farbram 

bis 



38 

08 

Ostenbus Farbram 

39 

07 

Prozessordatenbus 

40 

vcc 

Betriebsspannung *5 Volt 


Wenn Sie sich die verschiedenen Pin-Bezeichnungen am VIC 
anschauen, dann treffen Sie auf einige bekannte Bezeichnungen. 
So sind BA, AEC, 02, und R/-W schon beim Prozessor erläutert 
worden. Völlig neu sind z.B. die Signale -CS, -RAS, -CAS und 
die Datenleitungen D8 - Dil. Auch der gemultiplexte Adreßbus 
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ist neu hinzugekommen, da am Prozessor ja alle Adreßignale 
getrennt an einzelnen Pins zur Verfügung standen. 

Doch kommen wir zuerst zu den verschiedenen Taktsignalen. 

Das den ganzen Zeitablauf im Rechner bestimmende Signal ist 
der Dot-Clock. Dieses Signal hat in Ihrem C64 eine Frequenz 
von ca. 7.85 MHz. Im VIC befindet sich eine Stufe, die diese 
Frequenz durch 8 teilt. Damit erhalten wir eine neue Frequenz 
von ca. 980 KHz. Diese Frequenz steht am Pin 17 als Systemtakt 
OOut zur Verfügung. 

Aus dem Dot-Clock werden weiterhin die Signale zur Synchro¬ 
nisation des Bildes auf dem Fernseher gewonnen. Der Dot-Clock 
selbst bestimmt die Zeit, mit der die einzelnen Punkte, aus 
denen alle Zeichen dargestellt werden, auf dem Bildschirm er¬ 
scheinen. 

Die Frequenz des Signals OCOLOR beträgt in Ihrem C64 
17.734472 MHz. Das ist die Frequenz, mit der der Quarz Y1 
schwingt. Sie wird zur Erzeugung der Farbinformation benötigt. 

Diese Frequenzen beziehen sich alle auf den Normalfall, d.h. der 
Rechner ist für den Betrieb mit einem PAL-System-Fernseher 
ausgestattet. 

Immer wenn der Prozessor auf die Register des VIC zugreifen 
will, muß der VIC adressiert werden. Dazu muß als wichtigstes 
die Leitung mit der Bezeichnung -CS auf Low gehen. Erst dann 
kann der Prozessor über die auf dem Adreßbus liegende Adresse 
das gewünschte Register ansprechen. Wie wird nun aber die 
Leitung -CS Low? 

Da der VIC im sogenannten lO-Bereich (SDOOO bis SDFFF) die 
Adressen von SDOOO bis $D3FF belegt, erzeugt der AM bei 
einem Zugriff auf diesen Adreßbereich einen Low-Pegel an sei¬ 
nem Pin 12 (-I/O-Signal). Dieser Low-Pegel gelangt an den De¬ 
koder UlS Pin 1. Damit ist der Dekoder freigegeben und in Ab¬ 
hängigkeit von den Adreßleitungen A 10 und All an den Pin 2 
und 3 wird der entsprechende Ausgang des Dekoders Low. 



598 


64 Intern 


Wenn man die Basisadresse und Endadresse des VIC einmal bi¬ 
när darstellt, so erhält man das folgende Bitmuster: 

AIS A16 AIS Atz All A10 A9 AS A7 A6 AS A4 A3 AZ AI AO 

1 1 0 1 0 0 000000000 0=SD000 

1 1 0 1 0 0 lllllltll 1*<03FF 


Man sieht sofort, das die Adreßbits AlO und All in diesem 
Adreßbereich Low bleiben. Damit ist der Ausgang YO des De¬ 
koders auf Low, der VIC ist adressiert. 

Erst bei der nächsten Adresse $D400 wird AIO High. Damit 
wird YO High, Yl des Dekoders wird Low und nun ist der SID 
adressiert. 

Der VIC kann nur einen Adreßraum von 16 K adressieren, er 
hat nur die Adreßbits AO bis A13. Außerdem liegen die Adreß¬ 
leitungen nicht wie beim Prozessor einzeln an den Pins an, son¬ 
dern sind gemultiplext. Der Pin 24 ist also nicht nur Adreßbit 0, 
sondern auch Adreßbit 8. Wie kann das funktionieren? 

Die Antwort ist ganz einfach. Der Anschluß ist erst das eine 
Adreßbit, danach das andere. Um jetzt zu einem bestimmten 
Zeitpunkt sagen zu können, welche Bedeutung der Anschluß 
hat, werden Hilfssignale benötigt. Diese Hilfssignale heißen - 
CAS und -RAS. Sie werden unter anderem auch zur Steuerung 
der dynamischen RAM-Bausteine benötigt, da diese auch einen 
gemultiplexten Adreßbus aufweisen. Der zeitliche Ablauf des 
Speicherzugriffs sieht folgendermaßen aus. 

Die Signale -CAS und -RAS sind high. Jetzt wird zuerst das 
niederwertige Adreßbyte auf den Bus gelegt. Nach kurzer Zeit 
wird das Signal -RAS Low. Damit wird das Adreßbyte in die 
RAMs übernommen und gespeichert. Jetzt ändert sich die Bus- 
ioformaiion. Aus AO wird A8, aus AI wird A9 usw. Wiederum 
nach kurzer Zeit wird jetzt das Signal -CAS Low. Diese ab- 
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fallende Flanke wird auf den AM gegeben und erzeugt am Aus¬ 
gang -CASRAM eine zeitlich geringfügig verzögerte abfallende 
Flanke. Mit dieser verzögerten Flanke wird nun das High-Byte 
in die RAMs übernommen. 

Jetzt liegt die vollständige Adresse vor und die Daten erscheinen 
auf dem Datenbus. Diese Vorgänge sind im Timing-Diagramm 
auf der nächsten Seite noch einmal dargestellt. 


Die Schnillstelle zwischen RAM und VfC 

Da wie schon gesagt, der VIC nur die Adreßbits AO bis A13 
erzeugt, müssen die für die Adressierung der ganzen 64 k RAM 
fehlenden Bits zusätzlich erzeugt werden. 

Dazu wird der Port A der CIA 2 herangezogen. Die Portbits 0 
und 1 stellen die Adreßbits 14 und IS dar. Um diese Signale in 
den Multiplex-Vorgang einzubeziehen, werden sie über das IC 
U14 geschaltet. 

Im U14 sind vier invertierende 2 zu !-Multiplexer integriert. So 
ein Multiplexer ist in seiner Funktion wohl am einfachsten als 
Wechselschalter zu sehen. Wahlweise einer von zwei Eingängen 
wird auf den zugehörigen Ausgang geführt. 

Im Detail funktioniert die Sache so: 

Geschaltet werden die Multiplexer durch das Signal am Eingang 
S. Liegt an S ein Low, dann sind die Eingänge mit der Bezeich¬ 
nung A auf den Ausgang durchgeschaltet, liegt S auf High- 
Pegel, dann sind die B-Eingänge durchgeschaltet. 

Die Adreßbits A6 und A7 vom VIC liegen am Multiplexer, und 
zwar A6 an den Eingängen 13 und 14 und A7 an den Eingängen 
10 und II. Wenn jetzt mittels des S-Signals zwischen den Ein¬ 
gängen hin- und hergeschaltet wird, so ist an den Ausgängen 
keine Änderung festzustellen, da die Adreßbits auf beide Ein¬ 
gänge geführt sind. Nur die Polarität der Signale ist an den Aus¬ 
gängen durch die Inverterwirkung der Multiplexer vertauscht. 
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Diese invertierten AdreOsignale werden auf die B-Eingänge der 
beiden anderen Multiplexer geführt, und zwar -A6 an den Pin 3 
und -A7 an den Pir» 6. Die A-Eingänge werden mit den ge¬ 
nannten Portbits der CIA 2 versorgt. Portbit 0 als -VA 14 an Pin 
2, Portbit I als -VAI5 an Pin 5. 

Da der S-Eingang von -CAS gesteuert wird, liegt am Ausgang 
Pin 4 bei -CAS High das nochmales invertierte Adreßbit A6, bei 
-CAS Low das Adreßbit A14. Am Ausgang Pin 7 wird entspre¬ 
chend zwischen -A7 und -VA15 geschaltet. Durch die Invertie¬ 
rung des Multiplexers erscheint dies Signal als A7 oder AIS. 

Der Pin IS von U14 ist mit dem Signal AEC verbunden. Er 
trägt die Bezeichnung -OE, Output Enable. Immer wenn AEC 
High ist, werden die Ausgänge des U14 abgeschaltet oder in den 
sogenannten Tri-State-Zustand versetzt. Dies ist wichtig, da bei 
AEC High der Prozessor den Bus belegt und seine Adressen über 
die Multiplexer U13 und U2S auf diesen Bus legt. Nur wenn 
AEC Low ist, kann der VIC ja den Bus belegen, dann sind die 
Ausgänge des UI4 freigegeben. 


16 Farben mit vier Bits, das Farb-RAM 

Sollen alle 512 möglichen Zeichen auch noch in 16 verschie¬ 
denen Farben dargestellt werden, dann sind vier weitere Daten¬ 
bits erforderlich. Es sind dies die vier Pins 35 bis 38 am VIC. 
An diesen Pins ist das Color-RAM U6 mit seinen Datenlei¬ 
tungen angeschlossen. Dies IC ist ein statisches RAM mit 4096 
Speicherplätzen. In jedem Speicherplatz kann ein Bit gespeichert 
werden. Jeweils 4 Speicherplätze werden durch eine Adresse an¬ 
gesprochen. Die Adressierung geschieht zuerst wieder durch das 
Signal -CS am U6. Wenn dieser Anschluß Low ist, wird das 
RAM selektiert, die Datenleitungen verlassen den Tri-State-Zu- 
stand. 

Erzeugt wird das -CS-Signal auf zwei verschiedene Arten vom 
AND-Gatter U27. So seltsam es auch klingen mag. dieses AND- 
Gatter wird in der Schaltung als ein OR-Gatter betrieben. 
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Ein AND-Gatter legt den Ausgang dann auf High, wenn alle 
Eingänge auch High sind. Wenn man jetzt die Logik ein wenig 
umdreht, kann man auch sagen, wenn der eine ODER, der 
andere Eingang Low ist, dann ist der Ausgang auch Low. Diese 
Betriebsart wird im C64 angewendet. 

Das Color-RAM belegt den Adreßbereich von SD800 bis 
SDBFF. Wenn das Signal AEC High ist, belegt der Prozessor den 
Bus. Damit ist der eine Eingang des AND-Gatters High. Wenn 
der Prozessor nicht auf das Color-RAM zugreift, ist der Aus¬ 
gang -COLOR des Dekoders UlS auch High. Damit ist der -CS- 
Eingang des Color-RAM auf High, das Farbram ist nicht selek¬ 
tiert. 

Wenn der Prozessor auf das Farbram zugreifen will, legt er die 
entsprechende Speicheradresse auf den Datenbus. Die Dekodie¬ 
rung läuft entsprechend wie die des VIC ab. Nur ist jetzt mit 
Sicherheit das Adreßbit All gesetzt. Damit wird der -COLOR- 
Ausgang des Dekoders UlS Low. Jetzt ist ein Eingang des 
AND-Gatters Low und entsprechend der Ausgang auch. Damit 
ist das Farbram selektiert. 

Da AEC zu diesem Zeitpunkt High ist, sind die vier Analog¬ 
schalter im IC U16 geschlossen, die Datenleitungen des Farbram 
sind mit den vier niederwertigen Datenleitungen des Prozessors 
verbunden. Damit kann nun das Farbram beschrieben und gele¬ 
sen werden. 

Wenn AEC Low wird und der VIC den Bus übernimmt, dann 
werden die Analogschalter geöffnet. Gleichzeitig wird der Aus¬ 
gang des AND-Gatters U27 Pin 8 Low, das Farbram ist selek¬ 
tiert, diesmal vom VIC. Da der VIC aber nur mit den Adreß¬ 
leitungen A8 bis All mit dem VIC verbunden ist, müssen die 
Adreßbits AO bis A7 anders gewonnen werden. Diese Aufgabe 
übernimmt das IC U26. Dies TTL-IC mit der Bezeichnung 
74LS373 enthält 8 Latches oder Zwischenspeicher. Die Eingänge 
dieses ICs sind mit dem gemultiplexten Adreßbus verbunden. 
Eingespeichert werden die Daten, wenn das Signal -RAS Low 
wird. Das ist der Zeitpunkt, wenn das niederwertige Adreßbyte 
auf dem Bus liegt. Die Ausgänge von U16 sind mit dem nieder- 
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wertigen Adreßbyte des Prozessorbusses verbunden und liefern 
die Adreßinformationen, wenn der Prozessor im Tri-State ist. 

Auf diese Weise kann der VIC das Farbram adressieren. 

Auch der Zwischenspeicher ist mit dem Signal AEC verbunden. 
Am Pin 1 des U16 bewirkt es im High-Zustand, daß die Aus¬ 
gänge hochohmig werden, um den Prozessor nicht zu stören. 

Wenn man sich diese Vorgänge genauer anschaut, ergibt sich 
eine interessante Frage. Wieso hat der VIC zusätzlich zum ge- 
multiplexten Adreßbus AO bis A 13 noch die vier Adreßleitungen 
A8 bis A11 an den Pins 23, 32, 33 und 34? 

Die Antwort ist relativ simpel. Der ViC muß zu jeder Bild¬ 
schirmspeicheradresse im Bereich von S0400 bis $07FF gleich¬ 
zeitig die entsprechende Farbspeicherzelle im Adreßbereich 
SD800 bis SDBFF ansprechen. Dieser gleichzeitige Zugriff auf 
zwei verschiedene Speicherplätze erfordert einen zweiten, vom 
normalen Adreßbus unabhängigen Bus. Dieser Bus wird durch 
die 4 separaten Adreßbits realisiert. 


7.7 Der Prozessor und das RAM 

Bisher haben wir uns nur mit dem Fall beschäftigt, daß der VIC 
auf die 64 K Arbeitsspeicher zugreifen will. Es fehlt noch die 
Beschreibung der Vorgänge bei einem Zugriff des Prozessors auf 
dieses RAM. 

Die Lesezugriffe des Prozessors sind den Zugriffen des VIC sehr 
ähnlich. In beiden Fällen liegt das Signal R/-W (lesen bei High, 
schreiben bei Low) auf High. 

Zuerst darum die Lesezugriffe. 

Wie bei der Beschreibung der RAM-VIC-Schnittstelle erläutert, 
benötigt das RAM einen gemultiplexten Adreßbus. Diese Forde¬ 
rung der RAMs kann der Prozessor aber nicht erfüllen. Darum 
ist ein Multiplexen mit zusätzlichen ICs notwendig. 
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Diese Multiplexer sind die ICs U13 und U2S, zwei 74LS257. 

Diese ICs arbeiten nach demselben Prinzip wie das U14 (be¬ 
schrieben im Abschnitt RAM und VIC). Der Unterschied zu 
Ui4 besteht darin, daß diese Multiplexer die Ausgangssignale 
nicht invertieren. 

An den Eingängen der beiden Multiplexer-lCs liegt der kom¬ 
plette Prozessoradreßbus AO bis AIS. Dabei sind die Eingänge so 
geschaltet, das mit dem Select-Signal jeweils zwischen AO und 
A8, Al und A9 usw. umgeschaltet wird. 

Die Adressierung der RAMs läßt sich wieder in drei Phasen zer¬ 
legen. 

In der ersten Phase liegt am Select-Eingang der Multiplexer ein 
High. Damit ist das niederwertige Adreßbyte auf die RAMs ge¬ 
schaltet. 

Mit der abfallenden Flanke des -RAS-Signals wird dies Byte in 
die RAMs übernommen. 

Kurze Zeit später wird auch das -CAS-Signal Low. Damit 
schalten die Multiplexer um, der jeweils zweite Eingang der 
Multiplexer wird auf die entsprechenden Ausgänge geschaltet 
und das höherwertige Adreßbyte liegt an den RAMs. 

Über den AM wird das Signal -CAS wieder etwas verzögert. Der 
Ausgang -CASRAM übernimmt auch hier die eigentliche Funk¬ 
tion des Signals -CAS. 

Mit der abfallenden Flanke vom -CASRAM wird nun das High- 
Byte der Adresse ln den RAMs gespeichert. 

Jetzt wird in den RAMs die adressierte Speicherzelle angespro¬ 
chen und die Daten erscheinen auf dem Datenbus. 


Die Schreibzugriffe des Prozessors unterscheiden sich von den 
Lesezyklen durch einen wesentlichen Umstand. 
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Bei einem Schreibzugriff wird der Prozessor-Pin R/-W Low, 
nachdem der Prozessor die Adresse der entsprechenden 
Speicherzelle auf den Adreßbus gelegt hat. Damit ist dem RAM 
signalisiert, daß das auf dem Datenbus liegende Byte in dieser 
Speicherzelle gespeichert werden soll. 

Die verwendeten RAM-Bausteine stellen an dies R/-W-Signal 
eine bestimmte Bedingung. Das Signal R/-W darf erst dann Low 
werden, nachdem -RAS Low geworden ist, -CASRAM aber 
noch High ist. R/-W muß also zwischen den beiden abfallenden 
Flanken von -RAS und -CASRAM Low werden. 

Der zeitliche Verlauf der -RAS-, -CAS- und -CASRAM- 
Signale ist mit denen bei Lesezugriffen identisch. 

Zur besseren Verdeutlichung dieser Vorgänge sind die Signale 
rOr Schreib- und Lesezugriffe in den Bildern auf der nächsten 
Seite dargestellt. 


7.8 Der SID 6581, ein Synthesizer mit 28 Beinen und mehr 

Dieses IC ist genau wie der VIC ein Paradebeispiel für die 
Möglichkeiten der Halbleiterindustrie. Durch dies IC erhält der 
CBM 64 seine fantastischen Klangmöglichkeiten. 

Vor wenigen Jahren hätte allein ein Synthesizer mit diesen in 
einem IC integrierten Möglichkeiten die ganze Leiterplatte des 
64 für sich in Anspruch genommen. 


Die 28 Pins des 6581 haben die folgenden Bezeichnungen: 
Pin Bezeichnung 

1 CAPU Externer KMYtensstor für Frequenzfilter 

2 CAP1B Wie Pin 1 

3 CAP2A Wie Pin t 
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4 

CAP2B 

wie Pin 1 

5 

-RES 

Eingang, Reset-Signat 

6 

02 

Eingang, Taktsignal 

7 

R/-U 

Eingang, Read/-Urita 

8 

-CS 

Eingang, Chip Select 

9 

bis 

AO 

Eingang, AdreBbit 0 

13 

A4 

Eingang, AdreBbit 4 

K 

GND 

Betriebssparming Nasse 

15 

bis 

DO 

Datenbit 0, bidirektional 

22 

07 

Datenbit 7, bidirektional 

23 

POTV 

Eingang, AO-Uaridler 2 

24 

P01X 

Eingang, AD-Uaridler 1 

25 

Vcc 

Betriebsspannung «5V 

26 

EXT IN 

Eingang, externe Signalquelle 

27 

AUDIO OUT 

Ausgang Synthesizer 

26 

vdd 

Betriebsspannung «12V 


Die meisten Signale sind bereits aus den vorherigen Kapiteln 
bekannt. 

Nicht vorgekommen sind bisher die Bezeichnungen der ersten 
vier Pins, CAPIA bis CAP2B. Wie man im Schaltbild sehen 
kann, sind an diesen Anschlüssen die 2 Kondensatoren CIO und 
ClI angeschlossen. Diese Kondensatoren werden für die im Chip 
U18, dem SID, integrierten Frequenzfilter benötigt. 

Ein Filter ist eine uns allen bekannte Einrichtung. Nehmen wir 
zum Beispiel mal den Kaffeefilter. Die Aufgabe dieses Filters ist 
es, bestimmte Anteile (nämlich das Wasser und die löslichen 
Stoffe des Kaffee-Pulvers) durchzulassen und andere Anteile (in 
unserem Beispiel die Reste des Kaffee-Pulvers) zurückzuhalten. 

Genau so arbeitet auch ein elektronischer Frequenzfilter. Be¬ 
stimmte Frequenzen werden durchgelassen, andere werden zu¬ 
rückgehalten. Es gibt insgesamt vier mögliche Arten von Fre¬ 
quenzfiltern, den Tiefpaß, den Hochpaß, den Bandpaß und den 
Sperrpaß. 
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Ein Tiefpaß läßt nur tiefe Frequenzen bis zu einer bestimmten 
höchsten Frequenz passieren. Diese Funktion ist an jeder Stereo¬ 
anlage in Form des Bass-Reglers zu finden. Mit diesem Regler 
läßt sich diese höchste, durchzulassende Frequenz, die soge¬ 
nannte Grenzfrequenz, einstellen. 

Ein Hochpaß zeigt genau das umgekehrte Verhalten, ab einer 
bestimmten niedrigsten Frequenz läßt er alle höheren Frequen¬ 
zen durch. Das ist an der Stereoanlage der Trebble- oder 
Höhenregler. 

Bleiben noch Bandpaß und Sperrpaß. Auch diese haben genau 
entgegengesetzte Funktionen. 

Ein Bandpaß ist eine Mischung aus Tief- und Hochpaß. Ab 
einer bestimmten Frequenz werden höhere Frequenzen durchge¬ 
lassen, dies aber nur bis zu einer höchsten Frequenz. Darüberlie¬ 
gende Frequenzen werden wieder gesperrt. 

Sperrfilter sperrt in einem bestimmten Frequenzbereich alle Fre¬ 
quenzen. Diese Funktion ist an manchen guten Stereoanlagen als 
Brummfilter vorhanden. Damit wird in diesem Fall nur eine be¬ 
stimmte Frequenz, die 50 Hertz der Netzfrequenz, herausge¬ 
filtert. 

Alle diese Filter lassen sich im SID programmieren. 

Der Pin 5, der Reseteingang von U18, wird benötigt, um das IC 
in einen definierten Zustand zu bringen. Wie bereits beschrie¬ 
ben, liegt an diesem Anschluß nach dem Einschalten für ca. 0.5 
Sekunden ein LOW-Pegel. Damit werden alle Register im 6581 
gelöscht. 

Ohne diesen Reset würden die Register nach dem Einschalten 
zufällige Werte haben, die Folge wäre ein genauso zufälliges 
Signal am Audioausgang; der angeschlossene Fernseher oder 
Verstärker würde nur ’Krach’ machen. 
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Aus der Frequenz des Signals 02 werden alle Tonfrequenzen des 
SID durch Frequenzteilung erzeugt. Gleichzeitig stellt 02 natür¬ 
lich wie bei allen anderen Peripherie-Bausteinen den Bezugstakt 
für die Schreib- und Lesezugriffe des Prozessors dar. 

Ob die im SID enthaltenen Register beschrieben oder gelesen 
werden, hängt in bekannter Weise von der Leitung R/-W ab. Bei 
einem HIGH werden die Register gelesen, bei einem LOW wird 
in die Register geschrieben. Voraussetzung ist natürlich, das der 
SID auch korrekt adressiert ist. 

Der Adreßbereich des 6581 liegt von SD400 bis $D7FF. Dieser 
Adreßbereich wird wie beim VIC durch den AM und die Deko¬ 
der im IC Ul5 dekodiert. Sobald der Prozessor eine Adresse in 
diesem Bereich auf den Bus legt und das Signal -CHAREN 
HIGH ist, wird der Ausgang Pin 5 des 74LS139 und damit auch 
der -CS'Eingang des SID LOW. 

Um nun auch die einzelnen Register im SID zu adressieren, 
werden die 5 Adreßleitungen AO bis A4 benötigt. 

Sind diese Adreßbits alle LOW und der SID mit -CS selektiert, 
kann das Register 0 beschrieben oder gelesen werden. Ist nur das 
Adreßbit AO HIGH, ist Register I selektiert usw. 

Auf diese Weise lassen sich alle 29 Register ansprechen. 

Die Datenleitungen DO bis D7 an den Pins 15 bis 22 sind mit 
dem Prozessordatenbus verbunden. So lange -CS HIGH ist, be¬ 
finden sich die Datenleitungen des SID im Tri-State. Wenn der - 
CS LOW wird, entscheidet R/-W, ob die Datenleitungen als Ein¬ 
gang (beim Schreiben der Register) oder als Ausgang (ent¬ 
sprechend beim Lesen) fungieren. 

Die Anschlüsse POTX und POTY stellen die Eingänge der AD- 
Wandler dar. Bis jetzt ist die Bezeichnung AD noch nicht erläu¬ 
tert worden. Das wollen wir schnell nachholen. 

AD-Wandler ist die Abkürzung für Analog-Digital-Wandler. Ein 
digitaler Wert kennt bekanntlich nur zwei Zustände, entweder 
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HIGH oder LOW, im CBM 64 und vielen anderen Digital- und 
Computerschaltungen durch eine Spannung von -«-SV als HIGH 
und 0 Volt als LOW signalisiert. 

Ein analoges Signal ist da nicht so festgelegt, es kann jeden be¬ 
liebigen Wert dazwischen, darüber und darunter annehmen. Nun 
ist es aber oft wünschenswert, einen solchen analogen Wert in 
einen Computer eingeben zu können, um ihn zu verarbeiten. 
Diese Möglichkeit der Eingabe analoger Werte ist im CBM 64 
eingebaut. 

Hauptsächlich genutzt werden die AD-Wandler in Verbindung 
mit den Paddies, das sind Drehregler, ähnlich den Reglern an 
Radiogeräten. Ein solcher Regler enthält einen veränderbaren 
Widerstand, Potentiometer oder kurz Poti genannt. Der Wider¬ 
standswert des Potis ändert sich mit dem Drehen. Der minimale 
Widerstand der in den Paddies eingebauten Potis beträgt ca. 100 
Ohm, der Maximalwert ca. SOO KOhm. Dazwischen kann der 
Widerstand theoretisch jeden beliebigen Wert annehmen. 

Der AD-Wandler erzeugt aus diesem Widerstandswert ein digi¬ 
tales Signal, ln unserem Fall wird ein 8-Bit-Signal erzeugt. Die¬ 
ses Byte kann aus einem der SID-Register gelesen werden. 

Die eigentliche AD-Wandlung geschieht mit dem eingestellten 
Widerstandswert und den Kondensatoren C48 und C93. 

Diese Kondensatoren werden für 0.25 Millisekunden über die 
Potis auf geladen. Wenn die Spannung an den Kondensatoren 
größer wird als die im SID erzeugte Vergleichsspannung, wird 
ein Zähler im SID angehalten, der Zählerstand ist das Maß für 
den eingestellten Widerstand. Je größer der Widerstand des Potis 
ist, desto langsamer wird der Kondensator aufgeladen, und die 
Spannung am Kondensator erreicht die Höhe der Referenzspan¬ 
nung später. Damit kann der Zähler länger laufen, der Zähler¬ 
wert wird größer. 

Ist der Widerstandswert zu hoch (ca. 200 KOhm), dann erreicht 
die Spannung am Eingang des AD-Wandlers in der Meßzeit 
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nicht die Referenzspannung. Der Zähler läuft dann bis zu sei¬ 
nem Endwert, im AD-Register steht der Wert 255. 

Wenn der Widerstand aber zu klein wird (ca. 200 Ohm), ist der 
Kondensator so schnell aufgeladen, daß der Zähler sofort ge¬ 
stoppt wird. Damit steht im Register ein Wert von 0. 

Nach Ablauf der Meßzeit von 0.25 Millisekunden werden die 
Kondensatoren schlagartig über den entsprechenden AD-Eingang 
entladen. Jetzt wird der Zähler auf 0 gesetzt und nach weiteren 
0.25 Millisekunden startet dann ein neuer Meßzyklus. Somit 
benötigt ein vollständiger Zyklus 0.5 Millisekunden, in einer Se¬ 
kunde werden 2000 mal die aktuellen Widerstandswerte gemes¬ 
sen und stehen zur Verfügung. 

Um eine Beschädigung der AD-Eingänge zu vermeiden, sollte 
der Widerstand nicht kleiner als 100 Ohm werden. Sonst werden 
die bei der Entladung der Kondensatoren auftretenden Ströme 
zu groß, und die Entladestufe am Eingang kann zerstört werden. 

Die zwei Eingänge POTX oder POTY liegen aber nicht direkt an 
einer der verschiedenen Buchsen des 64. Die beiden Eingänge 
liegen an den Pins 2, 3, 9 und 10 des IC U28. Dies IC, ein 
CMOS-Baustein mit der Bezeichnung 4066, enthält vier soge¬ 
nannte Analogschalter. Dies IC wird benötigt, da an den 64 zwei 
Paddlepaare, insgesammt also vier Potis, angeschlossen werden 
können. 

So ein Analogschalter arbeitet vergleichbar einem Relais. Wenn 
am Steuereingang eine Spannung anliegt, wird der Analogein¬ 
gang auf den Ausgang durchgeschaltet, der Schalter ist ge¬ 
schlossen. Liegt der Steuereingang auf Masse, dann ist der Aus¬ 
gang vom Eingang gesperrt, der Schalter ist geöffnet. 

Die Analogeingänge sind mit den Controllports CN8 und CN9 
verbunden. An diesen Controllports sind die Kontakte 5 und 9 
für den Anschluß der Paddies vorgesehen. 

Die Steuereingänge sind die Pins 5, 6, 12 und 13. Der Pin 13 
kontolliert den Schalter 1 zwischen den Anschlüssen 1 und 2, 
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Pin S den Schalter 2 zwischen 4 und 3, Pin 6 den Schalter 3 
zwischen 8 und 9 und Pin 12 Schalter 4 zwischen 11 und 10. 
Jeweils zwei dieser Eingänge sind zusammengeschaltet, Pin 13 
und 5 und Pin 6 und 12. 

Diese jeweils verbundenen Eingänge liegen an den beiden Pins 8 
und 9 der CIA Ul. Über diese Leitungen kann man auswählen, 
welche Potis an den Eingängen des AD-Wandlers liegen. Sind 
die Pins 8 und 9 der CIA Ul LOW, dann liegt kein Poti an den 
Wandlern. Ist Pin 8 HIGH, dann sind die Analogschalter 3 und 4 
geschlossen, die am Controllport 1 angeschlossenen Paddies wer¬ 
den an die Anschlüsse POTX und POTY gelegt. Ist dagegen Pin 
9 der CIA HIGH, dann sind Analogschalter 1 und 2 geschlossen, 
die Paddies an CN8 liegen an den Eingängen der AD-Wandler. 

Bleiben noch die Anschlüsse EXT IN und AUDIO OUT am 
6581. 

AUDIO OUT ist der NF-Ausgang des Synthesizers. Hier stehen 
die im Synthesizer erzeugten Töne und Geräusche zur Verfü¬ 
gung. Bei maximaler Lautstärke hat das Ausgangssignal eine 
Größe von 2Vss. 

Der Transistor Q8 ist als Emitterfolger an den Ausgang geschal¬ 
tet. Dadurch, daß das Signal am Emitter des Transistors über 
dem Widerstand R38 abgenommen wird, hat der Transistor keine 
Spannungsverstärkung. Das Signal am Ausgang Pin 3 des 8-poli- 
gen Video-Audio-Buchse CNS hat somit auch eine Höhe von 
2Vss. 

An diesen Ausgang kann man direkt einen kleinen 8-Ohm- 
Lautsprecher anschließen. Allerdings ist die Lautstärke sehr 
gering. Um eine vernünftige Wiedergabe zu erreichen, geben Sie 
das Signal am besten auf eine Stereoanlage oder ein gutes Kof¬ 
ferradio. Oder Sie benutzen den im Fernseher eingebauten 
Lautsprecher und das mit dem Bild übertragene Tonsignal. 

EXT IN gibt die Möglichkeit, auch externe Signale in den 
Synthesizer einzuspeisen und zu beeinflussen. Externe Signale 
können beispielsweise Mikrofonsignale sein, die mit einem klei- 
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nen Verstärker verstärkt worden sind. Auch eine Gitarre oder 
eine Orgel kann nach entsprechender Verstärkung das Eingangs¬ 
signal liefern, oder aber auch ein zweiter SID, also ein zweiter 
CBM 64. Damit hätte man dann noch wesentlich mehr Möglich¬ 
keiten der Klanggestaltung. 

Die einzige an das Eingangssignal gestellte Forderung lautet, daß 
das Signal nicht größer als 3Vss sein darf. 

Dieser Eingang ist über den Kondensator C12 mit dem Kontakt 
5 der 8-poligen Audio-Video-Buchse CN5 verbunden. 
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8. C64 Pflegen und Warten 


8.1 Allgemeines zu diesem Kapitel 

Das Ziel dieses Kapitels ist es, Ihren C64 im bescheidenen 
Maßstab aufzurösten und im Falle eines Fehlers den Fehler 
•elbst zu lokalisieren und ihn gegebenenfalls zu reparieren. 

Falls die Garantie Ihres Geräts noch nicht abgelaufen ist, sollten 
sie es sich vorher gut überlegen, ob Sie Ihr Gerät aufschrauben, 
und damit Ihren Garantieanspruch verlieren. 

Bevor Sie nach den, in diesem Kapitel gegebenen Kurzanleitun¬ 
gen, Geräte aufschrauben, ICs austauschen oder sonstiges unter¬ 
nehmen, untersuchen Sie als erstes, ob Sie wirklich alle nötigen 
Geräte ordnugsgemäß angeschlossen und eingeschaltet haben. 
Wenn sich bei einem Gerät Oberhaupt nichts tut, kontrollieren 
Sie als erstes die Kabel und Sicherungen. Wenn Sie im Heraus¬ 
nehmen von ICs noch keine Erfahrung haben, und dies in der 
entsprechenden Anleitung empfohlen wird, so lesen Sie sich 
vorher unbedingt Kapitel 8.9 durch. Nehmen Sie auch keine 
Eingriffe vor, die Sie sich nicht selbst Zutrauen, oder die Ihren 
Erfahrungsbereich weit übersteigen. ÜberschäSzen Sie sich nicht, 
denn das kann Sie weitaus mehr kosten als die Reparatur bei 
einem Fachmann. 

In den folgenden Absätzen werden wir auf die häufigsten Feh¬ 
lertypen näher eingehen: 


8.2 Der Bildausfall 

Unter Bildausfall verstehen wir, daß nach dem Einschalten des 
Computers und des entsprechenden Datensichtgeräts (Monitor, 
Fernseher) kein Bild erscheint, obwohl die LED am Computer 
leuchtet. 

Falls dies der Fall ist. so ist mit größter Warscheinlichkeit ein 
Teil der Stromzuleitung unterbrochen, welches meistens auf eine 
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defekte Sicherung zurückzuführen ist. Um dies festzustellen, 
lösen Sie die drei Schrauben an der Unterseite des Computers 
und klappen den oberen Teil vorsichtig nach hinten weg. Den 
Standort der Sicherung können Sie in den nachfolgenden Bildern 
ermitteln (die Stärke der Sicherung ist entweder 1 oder 1.25 
Ampere). Anschließend nehmen Sie die Sicherung vorsichtig aus 
der Fassung und ersetzen sie gegebenenfalls durch eine 1.25 
Ampere tragende Sicherung. Es ist häufig der Fall, daß die 
Sicherung ohne besonderen Grund durchbrennt. Der Ersatz 
durch eine 1.25 Ampere starke Sicherung ist völlig ohne Risiko, 
dagegen kann eine Überbrückung der Sicherung durch ein Stück 
Draht zu großen Schäden führen. 

Ist die Sicherung in Ordnung, liegt der Fehler wahrscheinlich 
beim Transformator. Falls Sie über das entsprechende Meßgerät 
verfügen, können Sie in der DIN-Buchse, die im Kapitel 7.9 
beschrieben werden, nachmessen. Oft fehlt die 5 VOLT Gleich¬ 
spannung, die von der Stabilisierungsschaltung im Netzteil ge¬ 
liefert werden soll. Aber auch die 9 VOLT Wechselspannung ist 
vereinzelt nicht vorhanden. 

Wenn Sie allerdings nicht die Möglichkeit haben, das Netzteil 
durchzumessen, tauschen Sie Ihr Netzteil durch das einens 
Freundes aus. Sollte sich heraussteilen, daß der Fehler im Netz¬ 
teil lag, so bringen Sie dieses zu Ihrem Fachhändler. 

Sollte sich herausstellen, daß auch das Netzteil funktioniert, so 
Oberprüfen Sie ihr Anschlußkabel an den Monitor oder Fernse¬ 
her. Sind die Kabel in Ordnung, so könnte der Modulator defekt 
sein. Um dieses zu überprüfen, bedarf es eines kleinen Tricks; 

Schließen sie Ihre Floppy oder Ihre Datasette an den Computer 
an. Im Falle der Datasette drücken Sie SHIFT/RUN-STOP und 
daraufhin die PLAY-Taste. Beginnt der Motor zu laufen, so 
wird der Modulator defekt sein und Ihr Computer muß in die 
Werkstatt. Ist eine Floppy angeschlossen, so tippen Sie blind 
L0AD"S",8. Beginnt der Laufwerksmotor sich zu drehen, so gilt 
das oben gesagte. 
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Wenn nicht einmal die LED an Ihrem Computer leuchtet, so 
sollten Sie die Sicherung an Ihrem Netzteil Überprüfen und ge¬ 
gebenenfalls durch eine gleicher Stärke ersetzen. Es ist auch 
möglich, daß Ihre Sicherung sich nur gelockert hat. Trifft beides 
nicht zu, so sollten Sie den Stecker für die Steckdose überprü¬ 
fen. 


8.3 Nur Bildschirm und Rahmen 

Häufiger aber auch schwerwiegender sind die Fehler, wenn nach 
dem Einschalten der Rahmen und die Hintergrundfarbe erschei¬ 
nen, danach jedoch jede Aktivität stoppt. In diesem Fall sollten 
Sie zuerst einmal die IRQ-Leitung messen. Im Normalfall, also 
bei funktionierendem Gerät, tritt an diesem Anschluß (Pin 3 des 
Prozessors) alle 16 Millisekunden ein negativer Impuls von ca. 
200 Microsekunden auf. Mit einem Vielfachmeßgerät ist nur 
eine Gleichspannung von ca, 4.5 VOLT zu messen. Mit einer 
LED und einem Widerstand von 200 Ohm kann man oben sehen, 
ob die Interrupts ausgelöst werden. Dazu wird der Widerstand 
mit 5 VOLT verbunden und als Vorwiderstand für die LED 
benutzt. Die Kathode der LED wird an Pin 3 des Prozessors ge¬ 
halten. Jetzt muß die LED soeben sichtbar leuchten und etwas 
flackern. Besser geeignet ist natürlich ein Logik-Tester oder ein 
Oszilloskop. 

Was aber, wenn die Interrupts ausbleiben? Wenn die IRQ-Lei¬ 
tung nach dem Einschalten HIGH ist, dann nach kurzer Zeit 
LOW wird, kommen als Fehlerquellen das Betriebssystem-ROM, 
das RAM, die CIAs oder der Prozessor in Frage. Ein Fall für 
eine gut ausgerüstete Werkstatt, wenn Sie nicht die Möglichkeit 
haben, die ICs aus einem anderen Rechner zu probieren. 

Sind die CIAs defekt, so ist dieser Fehler leicht festzustellen. 
Der C64 kann ohne CIA 2 arbeiten, und deshalb ist es möglich, 
die beiden ICs, deren Lage anhand der Bilder ermittelt werden 
kann, auszutauschen. Falls der Computer nun wieder funktio¬ 
niert, müssen Sie das defekte IC, das vorher im Sockel von CIA 
1 steckte, austauschen. 
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Hat diese Operation auch nicht den gewünschten Erfolg, können 
Sie untersuchen, ob der Prozessorport defekt ist. 

Um dieses feststellen zu können, sollten Sie jedoch schon einige 
Erfahrung im Umgang mit ICs haben. 

Dazu messen Sie die Leitungen -LORAM, -HIRAM und - 
CHAREN an den Pins 27, 28 und 29 des Prozessors. Diese Lei¬ 
tungen sollten nach dem Einschalten auf HIGH liegen. Stellt sich 
nach dem Einschalten aber ein LOW-Pegel an einem dieser Pins 
ein, so kann der Rechner das Betriebsystem-,ROM nicht ord¬ 
nungsgemäß adressieren. Es wird ausgeblendet und das darun¬ 
terliegende RAM kommt zum Vorschein. Folglich kann der 
Computer die RESET-Routine nicht anspringen, was unweiger¬ 
lich zum ’Absturz’ führt. 

Stellt sich also ein LOW-Pegel ein, so können Sie jetzt den Pro¬ 
zessorport untersuchen. Dafür löten Sie den Prozessor aus und 
löten eine 40-beinige Fassung an diese Stelle. Nun müssen Sie 
die Pins 27, 28 und 29 des Prozessors rechtwinklig abbiegen und 
ihn zurück in die Fassung stecken, so daß diese Pins keinen 
Kontakt zur Platine haben. Auf diese Art wird dem Ardeß- 
Manager U17 vorgegaukelt, daß alles in Ordnung ist, da ein 
offener Eingang an TTL-ICs als HIGH gewertet wird. Wenn der 
Rechner nach dieser Prozedur arbeitet, so ist ein neuer Prozessor 
nötig. 

Schlägt diese Methode fehl, so ist es unumgänglich, den Com¬ 
puter in eine Werkstatt zu geben, da der Fehler mit kaum mit 
normalen Mitteln zu lokalisieren ist. 


8.4 Farbige Zeichen auf dem Bildschirm 

Wenn Sie zum Beispiel beim Listen einer Directory oder eines 
BASIC-Programms ungewollt lauter farbige Zeichen auf dem 
Bildschirm erhalten, so muß dies nicht unbedingt am VIC liegen. 
Der Fehler kann auch an dem Netzteil liegen, welches zu wenig 
Spannung liefert. Um dieses zu überprüfen, messen Sie die 
Spannung nach, oder tauschen Sie Ihr Netzteil aus. 
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8.5 Die Tastatur fuoktlooiert nicht richtig! 

In diesem Fall liegt bestimmt ein Fehler der CIA 1 vor, die für 
die Tastaturabfrage zuständig ist. Gewißheit darüber können Sie 
sich jedoch mit dem Testprogramm verschaffen. 


8.6 Der Joystick funktioniert nicht! 

Hier liegt der Fehler, sofern keine Störungen der Tastatur vor¬ 
liegen, ausschließlich am Joystick selbst. Mit Hilfe des Testpro¬ 
gramms können Sie die Joystickfunktionen überprüfen. 


8.7 Wenn er nicht richtig lädt! 

Hier muß man zwischen Datasette und Floppy unterscheiden. 
Beim Bandbetrieb gibt es drei Fehlermöglichkeiten: 


In der Datasette selbst: 

Der Tonkopf ist dejustiert. Mit einem kleinen Schraubenzieher 
kann man versuchen, die Stellung des Tonkopfs anhand der 
Justageschraube zu justieren (merken Sie sich die ursprüngliche 
Einstellung, damit Sie, falls dies nicht die Fehlerquelle war, sich 
nicht die Datasette selbst dejustieren). Eine weitere Möglichkeit 
ist der verschmutzte Tonkopf, den man mit einer Reinigungs¬ 
kassette oder einem Tonkopf spray säubern kann. 


Im Computer: 

Auch hier muß zwischen zwei Fällen unterschieden werden: 

Es wurde nicht richtig gesavet, was auf einen de¬ 
fekten Prozessorport zurOckzuführen ist. In diesem 
Fall müssen Sie den Computer in die Reparatur 
schicken. 


I. 
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2. Es wird nicht richtig geladen, was auf eine defekte 
CIA I schließen läßt. In diesem Fall können Sie, wie 
im Kapitel 8.3 ab Absatz 3 erläutert wird, die beiden 
ClAs vertauschen. 


Die Floppy lädt nicht! 

Falls der Fehler im Computer liegt, so kann dies nur bei der 
CIA 2 der Fall sein, da diese für die Kommunikation mit der 
Floppy zuständig ist. Hier ist es ratsam, die CIA 2 mit der eines 
Freundes auszutauschen, um sich Gewißheit zu verschaffen. 
Wenn dies nicht hilft, so mußte der Fehler in der Floppy liegen, 
die man, wenn es nicht auf eine defekte Sicherung in der 
Floppy zurückzuführen ist, zu einer Reparaturwerkstatt bringen 
muß. 


8.8 Fehler, die nach längerem Betrieb auftreten 

Zeitweise oder spontan auftretende Fehler sind in einer Werk¬ 
statt immer die unbeliebtesten Defekte. Da kann es dann ohne 
weiteres Vorkommen, daß ein Gerät mehrere Tage im Test ord¬ 
nungsgemäß funktioniert, obwohl der Kunde als Fehler angege¬ 
ben hat, daß sich das Gerät nach 1/2 Stunde 'verabschiedet*. 
Häufige Ursache dieser Fehler ist ein thermischer Defekt in 
einem Bauteil. Sollte Ihr C64 irgendwann einmal solche Symp¬ 
tome zeigen, so empfiehlt sich die Anschaffung einer großen 
Dose Kältespray. Dieses Spray ist im Elektronikfachhandel für 
ein paar DM zu erhalten. Durch einfaches Ansprfihen lassen sich 
die Bauteile auf bis zu -40 Grad abkühlen. Dabei hat sich das 
folgende Prinzip bewährt: 

Nachdem die Tastatur entfernt ist, wird die Rechnerplatine mit 
einem normalen Haarfön gleichmäßig erhitzt. Sobald der Rech¬ 
ner einen Fehler zeigt, werden die einzelnen Bauteile systema¬ 
tisch mit dem Spray gekühlt und der Rechner nach jedem Bau¬ 
teil aus- und wieder eingeschaltet. Sobald nach dem Einschalten 
der Rechner wieder funktioniert, werden die zuletzt abgekühlten 
Bauteile nocheinmal erwärmt, um zu sehen, ob wirklich eines 
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dieser Bauteile den Defekt verursachte. Auf diese Weise kann 
man nun das defekte Bauteil immer weiter einkreisen und zu¬ 
letzt austauschen. 

Leider sind nicht nur die Bauteile als Fehlerursache möglich. 
Auch die Leiterplatte kann als Ursache in Frage kommen. Durch 
die Erwarmung dehnt sie das Material aus, und obwohl diese 
Ausdehnung sehr gering ist, können winzige Haarrisse entstehen, 
die dann zu Versagen des Gerätes führen. Diese Haarrise zu fin¬ 
den ist nur mit viel Glück möglich. Glücklicherweise ist das im 
C64 verwendete Leiterplattenmaterial von sehr guter Qualität, so 
daß diese Fehler ausgesprochen selten sind. 

Eine Ursache für sporadisch auftretende Fehler können auch die 
RAMs sein. Mit dem in diesem Kapitel abgedrucktem Testpro¬ 
gramm ist es möglich, das gesamte RAM des C64 zu prüfen, 
und das vermutlich fehlerhafte RAM-IC anzuzeigen. 


8.9 Das Herausnehmeo von ICs 

Diese Anleitung gilt nur für ICs, die gesockelt sind. Sollte dies 
nicht der Fall sein, überlassen sie diese Arbeit einem Fachmann. 

Nehmen Sie einen kleinen Schraubenzieher und schieben Sie ihn 
vorsichtig unter die eine der kurzen Seiten des ICs. Drücken Sie 
den Schraubenzieher nun allmählich nach unten, um den IC an 
der Stelle etwas aus der Fassung zu heben. Genauso verfahren 
Sie an der anderen Seite. Achten Sie dabei darauf, daß Sie das 
IC nicht einseitig zuweit anheben, weil di^ zum Verbiegen der 
noch steckenden Beinchen auf der anderen Seite des ICs zur 
Folge haben könnte. Wenn Sie das IC nun soweit aus der Fas¬ 
sung gehoben haben, daß Sie es mühelos mit Daumen und Zei¬ 
gefinger, die die beiden Enden des ICs halten, herausziehen 
können, dann nehmen Sie es an beiden Enden gleichmäßig zie¬ 
hend aus der Fassung heraus. 

Fassen Sie die Beinchen des ICs nicht an, weil Sie statisch auf¬ 
geladen sein können, was eine Zerstörung des iCs zur Folge ha¬ 
ben könnte. 
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8.10 Wie stelle ich mir meiae Tastatur strammer? 

Dieser kleine Trick ist sehr nützlich, wenn man die Tastatur satt 
hat. Alle Tasten des C64 sind mit Federn ausgestattet, die die 
Tasten vom Kontakt auf der Tastaturplatine wegdrücken. Die 
Tasten sind auf einem kleinen Stäbchen festgesteckt. Mit Hilfe 
eines Schraubenziehers kann man die Tasten vom Keyboard 
lösen. 

Man schiebt den Schraubenzieher unter eine Taste und drückt 
dann vorsichtig den Schraubenzieher nach unten, um die Taste 
aus der Halterung zu hebeln. Gleichzeitig zieht man die Taste 
mit Daumen und Zeigefinger nach oben. Nachdem Sie die Taste 
entfernt haben, nehmen Sie die Feder heraus, die ca. I cm lang 
ist. Sie können sie jetzt vorsichtig auseinanderziehen. Es ist nicht 
ratsam, sie länger als I.S cm zu ziehen, da der Anschlag sonst zu 
hart wird. 

Nachdem Sie die Feder präpariert haben, setzen Sie sie wieder 
auf ihren alten Platz. Dann stecken Sie die Taste auf den Pin 
und pressen sie nach unten, bis sie einrastet. 

Die Taste hat nun einen härteren Anschlag. Am besten stellt 
man sich die Tasten härter, die am meisten benutzt werden, zum 
Beispiel die RETURN-, RUN-STOP- und RESTORE-Tasten. 


8.11 Wie baue ich eioeo RESET-Taster eia? 

Bevor wir in die Praxis übergehen, wollen wir Ihnen zuvor erst 
die Arbeitsweise eines RESETs erklären. Beim Auslösen eines 
Hardware-RESETs geschieht das gleiche wie beim Einschalten 
des Computers. Die RESET-Leitung des Computers, die mit den 
wichtigsten Bauteilen verbunden ist, wird kurzzeitig auf LOW 
(MASSE) gelegt. Daraufhin springt der Prozessor die RESET- 
Routine, deren Vektor in Speicheradresse $FFFC und SFFFD 
liegt, an. ln dieser Routine werden die wichtigsten Bausteine 
initialisiert, wärend der Speicherinhalt zum größten Teil erhalten 
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bleibt. In unserer Anleitung haben wir die einfachste Möglich¬ 
keit zum Bau eines RESET-Tasters gewählt. Es werden die Lei¬ 
tungen RESET und MASSE des USER-PORTs per Taster mit¬ 
einander verbunden. 

Zum Bau benötigen Sie folgende Bauteile; 

Einen Taster und zwei dünne Kabel 

Falls Sie nichts an Ihren Computer anlöten wollen, dann besor¬ 
gen Sie sich noch einen USER-PORT-Stecker und löten die bei¬ 
den Kabel nicht direkt an den USER-PORT, sondern an den 
Stecker. 

Jetzt löten Sie die beiden Kabelenden an die Pin I und 3 des 
USER-Ports oder des Steckers. Die Belegung des USER-Ports 
finden sie am Ende des Kapitels S. 

Drücken Sie nun auf den Taster, und Sie werden feststellen, daß 
Ihr Rechner einen RESET ausführt. Den gleichen Vorgang kön¬ 
nen Sie auch mit SYS64738 vom BASIC aus erzielen. 


8.12 Das Testprogramm 

Ans Ende dieses Kapitels haben wir noch ein kleines Testpro¬ 
gramm gehängt, mit dessen Hilfe Sie das RAM, den Soundchip 
und Ihren Joystick überprüfen können. Außerdem enthält es 
noch ein Testbild, mit dem Sie die Farben und den Kontrast 
Ihres Fernsehers oder Monitors einstellen können. Dieses Pro¬ 
gamm ist in Assembler geschrieben und liegt hier als BASIC- 
Lader vor. 


5 H=49152 

10 READX:IFX=-1THEH30 
20 S«S-fX:POXEN,X:N-N«1:COTO 10 

30 IF $<>124998 OR NO50359 THEN PRINfFEHLER IN DATAS^iEND 
40 SYS49152 
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101 DATA 169,0,141.32,208,141,33,20 8.170.169.5,141,134,2,189,58.19 
2.32.210 

102 DATA 255,232,201,0,208,245,32,62.241,240.251,201,49,208,3,76,1 
54,192,201 

103 DATA 50.208,3,76,125,195.201,51.208.3.76,59,194.201,52,208.201 
,76,56,193 

104 DATA 147,13,32.32,32.32.32,32.32,67,72,69,67,75,80,82,79,71,82 
.65,77,77 

105 DATA 32,13,13,13,13.32,32,18,32,49.32,146,32,84,69,83,84.66.73 
,76,68,13 

106 DATA 13,32.32,18.32.50,32,146.32,83,79,85,78,66,13,13,32,32,18 
.32,51.32 

107 DATA 146.32.82.65,77.84,69,83,84,13,13,32,32.18.32,52,32,146.3 
2,74,79 

108 DATA 89,83,84,73.67.75,13,13,0,169,147,32,210.255,160,28,162.0 
,189,223 

109 DATA 192,32,210,255,232,201,0,208,245,136,208,240,162,0,160,40 
,189,255 

110 DATA 192,32,210,255.136.206,250.232,224,20,208,240,162,0,189,2 
1,193,240 

111 DATA 7,32,210,255,232,76,197,192,162,18,160,12,24,32,10,229,32 
.86.195 

112 DATA 76,0.192,18,154,32.32.5.32.32,28.32,32,159,32.32,156.32.3 

2.30.32 

113 DATA 32,31,32,32,158,32,32,152,32,32,153.32,32,0,18.154.32.5,3 

2.28.32 

114 DATA 159,32,156,32.30,32,31,32,158,32,152,32,153,32,0,19,5,18, 
29,29,29 

115 DATA 29,29.29.29,29,29,17,84,69,83,84.66,73,76,68,32,68,69,83, 
32,68,65 

116 DATA 84,65.83,65,64,13,0,162,0,189,211,193,32,210,255,232,201, 
0.206,245 

117 DATA 162.13,160,16.24,32,240,255,162,0,189,44,194,32.210,255.2 
32,201,0 

118 DATA 208,245,162,13,160,16,24.32,240,255,162,0,173,0,220,41,1, 
208,13,189 

119 DATA 9.194,32.210,255,232,201,0,208,245.240,205,173,0.220,41.2 
.208,13 

120 DATA 189,16,194,32,210,255.232,201,0,208,245,240,185,173,0,220 
,41,4.208 
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121 DATA 13,169,23,19(,32,210,255,232,201,0,208,245,240,165,173.0, 
220,41,8 

122 DATA 20 8,13,189,30,194,32,210,255,232,201,0,208,245,240,25,173 
,0,220,41 

123 DATA 16,2 08,13,189,37,194,32,210,255,232,201,0,208,245,240,5,3 
2,62,241 

124 DATA 208,3,76,69,193,76,0,192,147.13.83,84,69.67,75.69,78.32.8 

3.73.69 

125 DATA 32,68,69,78,32,74,79,89,83,84,73,67,75,32,73.78,32,80.79, 
82,84,32 

126 DATA 35,50,13,17,18,69,78,68,69,146,32,61,32,84,65,83,84,69,0, 

79.66.69 

127 DATA 78.32,32,0,85,78,84,69,78,32,0,76,73,78,75,83.32,0,82.69. 
67,72,84 

128 DATA 83.0,70.69.85.69.82,32,0,32,32,32,32,32,32.32.157,157,157 
,157,157 

129 DATA 157,157,0,120,162,0,189,7,195,32,210.255.232.201,0.208.24 
5,162.0 

130 DATA 181,0.141,144,4,160,0,200,208,253,213,0,240,3,76,235,194, 
232,208 

131 DATA 236,162,0,189,53,195,32,210,255,232,201,0,208,245,162,0,1 
89,64,195 

132 DATA 32,210,255.232,201,0.208,245,162,0,189,0,1,160,0,200.208, 
253,141 

133 DATA 144.4.157.0,1.221,0,1,208,93,232,208.234,162,0,189,53.195 
,32,210 

134 DATA 255,232,201,0,208,245,162,0,189,75,195.32,210,255,232,201 
,0,208,245 

135 DATA 120,169,48,133,1,162,0,160,4,134,251,132,252,162,0,160,25 
1,161,251 

136 DATA 129.251,141,144.4,193.251,208,36,232,208,242,230,252,136, 
208,237 

137 DATA 169,55,133,1,162,0,189,53,195,32,210,255,232.201,0,208,24 

5.169.13 

138 DATA 32,210,255,32,86,195,76,0,192,169.55,133.1,162,0,189,40,1 
95,32,210 

139 DATA 255,232,201,0,208,245,169.13,32,210,255,32,86,195,76,0,19 

2.147.13 

140 DATA 32,32,32,32,32,32,32,32,82.65.77.84,69,83,04,17,17,17,17, 

17.13.13 




624 


64 Inlern 


Ul DATA 90,69.82,79,80,65,71.69,0,32,32,32,32,32,32,70,69,72,76.6 
9.82,0,32 

U2 DATA 32,32,32,32,32.32,32,79,75,0,13,13,83.86,65.80,69,76.32,3 
2,0,13,13 

U3 DATA 54,52,75,32,82,65,77,32,0,162.0,189.105,195,32,210,255,23 

2.201.0 

144 DATA 208.245,32,62,241,240,251,96,18,17,17.17,84,65.83.84,69,3 
2,68,82 

145 DATA 85,69,67,75,69,78,146,0.32,63,229,162,0,134,124,169.8,133 
,125.32 

146 DATA 49.196,166,124.169,15,141,24,212,169,1,157.0.212.133,126, 

169.22.157 

147 DATA 1.212,169.34,157,5,212,169,133,157,6,212,169.15,157,3.212 
,157,2.212 

148 DATA 6,125.32,2,196,165,125,9,1,166,124,157,4,212,32,232,195.1 

65.125.157 

149 DATA 4,212,32,232,195.32,243.195,176,231,36,125,48.3.76,176.19 
5,169,0 

150 DATA 157,4,212,165,124,24,105,7,133,124,201,21,144,159,76,0,19 
2,160,0 

151 DATA 162,5,136.208,253,202,208.250,96,166,124,230,126,165,126, 

240.5.157 

152 DATA 1,212.56.96.24,96,32,87,196.169,32,36,125,112.14.48,17.20 
8.5.162 

153 DATA 0,76,32,196,162,14.76,32,196,162.30,76,32,196,162,44,189, 
105,196 

154 DATA 240,7.32,210,255.232.76,32,196,169,13,76,210,255.32.68,22 
9,32,97 

155 DATA 196,165.124,240,10,201,7.240,3,162,59,44.162.56,44,162,53 
,32.32,196 

156 DATA 162,62.32,32,196.169.13,32.210,255,76,210,255,56,32.240,2 
55,160,7 

157 DATA 24,76.240,255,162,5,160,7,24,76,240.255,68.82,69,73,69,67 
.75,45,87 

158 DATA 69.76,76,69,0,83,69,65,71.69,90,65.72.78.45,87,69,76,76,6 
9,0,82,69 

159 DATA 67.72,69,67,75,45.87.69,76.76,69,0,82,65,85,83,67,72,69.7 
8,0.49,46 

160 DATA 0.50,46.0,51,46,0,32,32,84,79,78,71,69,78,69,82,65,84,79, 
82,0.9,-1 
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9. Vergleich der Rechner 


Der neue C64 11 hat sich optisch zu seinem Vorläufermodell 
recht stark verändert. Das neue Gehäuse entspricht nicht mehr 
dem alten etwas klobig wirkenden "Buckelgehäuse". 

Die Designer haben sich bei ihrer Arbeit eher am Commodore 
128 orientiert, wohl in der Hoffnung, wenigstens optisch einen 
PC zu schaffen. Eine Bestätigung dafür findet sich auch in der 
neuen Aufschrift, die der Rechnerjetzt trägt. 

Aus dem simplen 'Commodore 64' ist jetzt ein respeklschaf- 
fender 'Commodore 64 PERSONAL COMPUTER’ geworden. 

Insgesamt ist das Gerät flacher geworden und die Tastatur etwas 
tiefer und schräger angebracht als vorher. Dadurch wird das 
Eintippen von Programmen oder Texten erheblich erleichtert. 
Außerdem sind die Sonderzeichen, die vorher unter den Buch¬ 
staben gedruckt waren, neben die Buchstaben gesetzt worden, 
was jedoch kein Nachteil ist. 

Die Mechanik der Tastatur ist identisch mit der alten, nur die 
Farbe der Tasten hat sich geändert. Auch die einzelnen 
Anschlüsse des Rechners sind gleich geblieben. Nicht einmal der 
so dringend benötigte RESET-Schalter hat an dem neuen Rech¬ 
ner einen Platz gefunden. 

Durch das veränderte Gehäuse steht im Computer kein Platz zur 
Verfügung, um zum Beispiel ein zweites Betriebsystem einzu¬ 
bauen. Schraubt man das Gehäuse auf, so ist die Platine noch 
gar nicht sichtbar, weil diese unter der Tastatur und einer 
dicken Isolation aus Blech verborgen ist. 

Um an die Platine heranzukommen, müssen also erst sämtliche 
Schrauben und Stecker, die mit der Platine verbunden sind, ge¬ 
löst werden, um das Isolationsblech abnehmen zu können. Erst 
jetzt wird einem ein Blick auf die stark veränderte Platine ge¬ 
währt, die ca. 40 Prozent kleiner ist als die alte. Die Platine ist 
von der Größe her ungefähr mit einer Steckkarte für den IBM- 
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AT zu vergleichen. In ihr stecken weitaus weniger Bausteine und 
elektronische Teile als in der alten Platine. Sie beinhaltet näm¬ 
lich nur noch 17 Cips, wogegen die alte Platine noch ca. 30 
hatte. 

Die CIAs 6526 sind gleich geblieben, sie liegen nur an unter¬ 
schiedlichen Stellen, eine davon links außen und die andere 
direkt neben der Tastatur, woraus sich schießen läßt, daß die 
linke zum Steuern des USER-Ports und'der RS232 und die 
andere zur Abfrage von Tastatur und Control-Port dient. 

An den RAM-Bausteinen wurde ebenfalls gespart. Wo vorher 
acht 8-KByte-RAM-Bausteine waren, befinden sich nur noch 
zwei 32-KByte-RAM-Chips des Types 41464. 

Die Taktbausteine des Types 8701 beinhalten quasi alle vier 
Bausteine der alten Platine, die vorher in dem abgeschirmten 
Teil neben dem VIC lagen. 

Der Modulator ist erheblich kleiner geworden, wobei er nichts 
von seiner Leistungsfähigkeit eingebüßt hat. 

Der VIC ist nicht mehr der alte 6569, der gesondert abgeschirmt 
in einem Blechgehäuse auf der Platine lag, sondern er ist durch 
einen neuen mit der Typenbezeichnung 8565 ausgetauscht 
worden, der im Gegensatz zum alten nur noch mit 5V aus¬ 
kommt. Er liegt außerdem wie die anderen Chips frei auf der 
Platine, was aber keinen Unterschied macht, weil die Platine 
auch so ausreichend abgeschirmt ist. 

Der neue Prozessor mit der Typenbezeichnung 8500 ist mit dem 
alten 6510 vollkommen kompatibel, so daß auf jeden Fall alle 
Programme auch mit dem neuen Baustein laufen. 

Das Zeichensatz-ROM ist in beiden Fällen identisch und be¬ 
findet sich sogar noch an der gleichen Stelle wie vorher. 

Leider hat man bei dem neuen Rechner das BASIC- und 
KERNAL-ROM in einem Baustein zusammengefaßt, was den 
Nachteil hat, daß man nicht so einfach eine Betriebs- 
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systemumschaltplatine einbauen kann, da man jetzt immer das 
BASIC mitbrennen muß. Außerdem ist dieses Vorhaben sowieso 
wegen des Platzmangels stark eingeschränkt. 

Das Farb-RAM ist zwar bei dem neuen C64 11 an anderer Stelle, 
ist aber immer noch das alte. 

Der neue STD mit der Typenbezeichnung 8580 ist mit dem alten 
6581 vollkommen kompatibel. Er liegt lediglich an einer anderen 
Stelle. 

Die Multiplexer, die zur Adressierung der RAM-Bausteine nötig 
sind, sind bei der neuen Version alle in einem Chip vom Typ 
251715 untergebracht. Er übernimmt somit alle Funktionen der 
Speicherverwaltung. 

Trotz aller Änderungen läßt sich mit Bestimmtheit sagen, daß 
der neue C64 11 100% kompatibel mit seinem Vorläufermodell 
ist, denn alle Programme oder Module arbeiten beim 'neuen' 
genausogut wie beim guten alten C64. 
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Anhang A 


Der folgende BASIC-Loader entspricht dem bereits im Kapitel 
2.1 beschriebenen Maschinensprachemonitor, der im Speicher¬ 
bereich $9000 (36864) bis S9D10 (40208) liegt. 


5 li»9*16‘3 

10 REAO K:IF X«-1 THEN 30 
12 POKE N.X 

15 S<*X;N>N«1rCOTO 10 

30 IF SO363070 Ott NO40208 THEN PR1NT"FEHLER IN DATAS":EIIO 

35 SYS 9*16‘3 

36 DATA120,169,39,161,22,3,169,152,161,23,3,169,0,133,103,76,139,1 
52,162 

57 DATA255,160,155.132,99,160,0,260,11,169,168.133,98,32,17,165,32 
,161,165 

36 DATA96.177,96,232,226,160.260,236,221,171,155,208,266.136,56,26 
9,216 

39 DATA1S6.166,3.200,206,267,132.2,1S2,10.26.101,2,133,98,32,17,16 
5,189 

60 DATA65,156,208.8.169.3S.32,260,165.76.9S,165.201.1,2 08.3.76.113 
.165.201 

61 OATA2.208.6,32.113,165.76,156,165,201,3,208,6,32,113,165,76,166 
,165,201 

62 DATA6,20S.3,76.95.165,201.5.20S.6.32,95.165.76.156,165,201.6,20 
8.6.32 

63 DATA9S,165,76,166.165.201.7,208,16.169.60.32,260.165.32.95.165, 
32,156 

66 0ATA165,169,61,76,260.165.201,8.208,16,169,60,32,260,165,32,95, 
165,169 

65 DATA61,32,260.165.76,166,165,201.9,208.58.32.161,165,169,36.32, 
260,165 

66 DATA160,0,177.96.68.28.56,101,96,72,166,10,166,97,200,152,32,58 
.165.26 

67 DATA166.5,165,97.32,58.165,106.32,58.165,76.161.165,56,101.96.7 
2,176 

68 DATA238.166,97,136,152,32,58,165,26,166,233.201,10,208,13.169,6 
0,32,260 
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69 DATAU5,32.113.US,169,41,76.260,165,76,Ul, 145.32.176.US,169, 
58,32 

50 DATA260,165,76,68,165.32,176,165,169,66.32,260.165,32.68.165.32 
,67,166 

51 DATA160,0,177,98,32.260,165,200,192,3,208,266,169,32,76,260,165 
.165,97 

52 DATA32,58,165,165.96.76.58,165,32.70,165,72,152,32,260,165,106, 
76,260 

53 DATA165.72,76,76,76,76,32.83,165,168,106,76,83,165,61,15,201,10 
.26,68 

56 DATA2,105,7,105,66,96,169,36,32,260,165,32,161,165,160,0,177,96 
.32,58 

55 DATA165,76,161,165,169,36,32,260,165,160,2,177,96,32,58,165,160 
.1.177 

56 DATA96,32.58.165,32.U1,U5,32.U1.165,76,161,165,230,96,208,10 
.230,97 

57 DATA206,6,72,169.255,133,102.106,96,169,66,32,260,165,169,88,76 
,260,165 

58 DATA169,66,32,260,U5,169,69,76,260,165,32,62,166,169,66,76,260 
,165,32 

59 DATA200,U5,133,2,152,32,200,165,10,10,10,10,5,2,96,201,65,56,6 
8,2,233 

60 0ATA7,233,68,96.32.217.165,170.76,217,165,32,231,165,201,32,260 
,269,168 

61 DATA32,231,165,76,186,165,32,52,166,260,1,96,76,66,166,32,11.16 
6,32,210 

62 DATA255,76,23,166,32,11,166,32,207,255,76,23,166,32,11,166,32,6 
2,261 

63 DATA76,23,166.72.165.1,133,251,169,55,133,1,106,88,96,72,120,16 
5,251 

66 DATA133,1,106,96,32,2,166,201.3.260.1,96,76,66,166,169.13,76,26 
0,165 

65 DATA169,32,76,260,165,32.269,165,201,13,96,32,231,165,201,32,96 
.32,176 

66 DATA165,162,255,156,32,52,166,260,265,201,32,260,266,201,66,260 
,260,160 

67 CIATA19,136,68,16,217,138,156,208,268,185,100,156,72,185,119,156 
,72.96 

68 DATA169,63,32,260.165.76,66.166.32,158.166.32,31.166,32,127,166 
.166,199 
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69 DATA32,18,144,76,113,146,165,102,240,7,169,0,133,102,76,154,146 
.165,97 

70 DATA197,101,144,12,208,8,165,96,197,100,144,4,240,2,24,96,56,96 
,32,210 

71 DATA145,134,97,133,96,32,52,146,240,16,201,32,208,184,32,220,14 
5,170 

72 DATA32,217,145,134,101,133,100,96,165,96,133,100,165,97,133,101 
.96,32 

73 0ATA210,145,134,97,133,96,32,52,146,208,151,88,108,96,0,120,108 
,2.160 

74 DATA32,158,146,32,31,146,32,127,146,144,6,32,235,146,76,218,146 
.76,64 

75 DATA146,32,6,145,160,0,132,3,177,96,72,32,47,146,104,32,58,145, 
164,3 

76 DATA200,192,8,208,237,162,8,160,0,32,47,146,169,1,133,199,177,9 
6,41,127 

7? DATA201,32,144,10,32,240,145,169,0,133,212,24,144,3,32.179,145, 
32,141 

78 DATA145,202,208,229,169,0,133.199,96,32,210,145,134,97,133,96,1 
60,0,32 

79 DATA231,145,132,3,32,231,145,32,135,147,168,32,231,145,32,135,1 
47.32 

80 DATA184,145,164,3,145,96,200,192,8,208,226,169,145,32,240,145,3 
2,235 

81 0ATA146,32.176,145,169,58.141,119,2,165,97,32,70,145,140.120,2, 
141,121 

82 DATA2,165,96,32,70,145,140,122,2,141,123,2,169,32,141,124,2,169 
,6,133 

83 DATA198,76,67,146,201,32,240,1,96,76,102,146,32,210,145,134,97, 
133,96 

S4 0ATA169,155,133,99,32,58,146.240.251,98.62,148,224,31,144,11.22 
4,39,176 

85 DATA7,169.0,141.1,2,240,5,169,1,141,1,2,32,117.148,133,3,169.0, 
224,0 

86 DATA240,12,202,24,125,216,156,76.189,147,224.0,208,240,164,4,19 
0,216 

87 DATA 156,168,165.3,217,65.156,208.10,185,171,155,160,0,145.96,24 
,144.7 

88 DATA200,202,208,237,76,102,146,200,162,6,165,3,202,48,25,221,15 
7,154 
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89 DATA208,248,165,98,165,96,169.145,32,240,US.32.IS.144,32,176,1 
45,169 

90 DATA44,76,98.147,201,11,240,236,201,9.208,30,56,165.99,233.2.13 
3,99,165 

91 DATA98,229,97,201,2,144,4,201,255,208.75,32,114,149,24,101,99.1 

45.96 

92 DATA76,252.147,165,99,145,96,200.165,98,145,96,76,252,147,162,0 
,157,224 

93 DATA158,232,224,3.240,6,32,231,145,24,144,242,162,0,134,98,160, 
255,200 

96 0ATA185,224,158,209,98,240,15,232,230,98,230,98,230,98,164,98,1 
92,168 

95 DATA176,9,144.231,192,2,208.229,134.4.96,76,102,146,32,52,146,2 
08,3,169 

96 DATA11,96,201.32.240,244,201,35,208,19,32,231,145,32,73,149,32, 
217,145 

97 DATA133,98.32.52.146,208,221,169,0,96,201,40,208,54,32,231,145, 
32,73 

98 DATA149.32,217,145,133,98,32,231,145,201,41,240,25,201,44,240,3 
,76,53 

99 DATA149,32,87,149,32,231,145,201,41.208,179,32,52,146,208,174,1 

69.7.96 

100 DATA32.95,149,32,52,146,208,163,169,8,96,32.73,149,32,217,145, 
133,98 

101 DATA32.52.146,240.83.201,44.240,52,32,224.145,133,99,32,52,146 
.240,31 

102 DATA201,44,208,129,32,231,145,201,88,240,12,201.89,208,193.32, 
52,146 

103 DATA208.188.169,3,96.32,S2,146,208,180,169,2,96,173,1,2,240,3, 

169.1.96 

104 DATA169,9.96,32.231.US,201,88,240,12,201,89,208,47,32,52,146, 
208,42 

105 DATA169.6.96.32,S2,146.208,34,169,5,96,169,4,96,32,224,145,133 
.99,32 

106 DATA231.145,201,41,208,16,32.52,146,208.11.169,10.96,201,36,24 
0,3,76 

107 DATA102,U6,96.76,102,146,32,106,149,32,231,145.201,88,208,243 
,96,32 

108 DATA106,149,32,231,145,201,89.208,232,96,32,231,145,201,44,208 
,224,96 
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109 DATA165,96.73.255,170.232,138,9&,32,231,149,32,52.146,208.7,16 
9.8.133 

110 0ATA166.76,174,149,201,44,208,12.32.217,145.133,186,32.52,146, 
240,23 

111 DATA201,44,208,119,32.210,145.133.98,134,99,32,52,146.208,242, 
169,0,133 

112 DATA185.24,144,4,162,1,134.185,165,186,201,8,240,10,201,9,240, 
3,76,215 

113 DATA149.32.21,150,169,0,32,11,146,166,96,164,99,32.213,255,32, 
105,150 

114 DATA32,23,146,76,141,153,201,1,208,55,76.194,149,169,1,133,185 
,133,186 

115 DATA76,194.149.32.52,146,240,242.201,32,240,247,201,34,208,30, 
162,0,32 

116 DATA249.145,201,34,240,10,157,224,158,232,224,17,240,13,208,23 
9,134,183 

117 DATA169,158,133.188,169,224,133,187,96,76,102.146,169,165,162, 

244.32 

118 DATA69,150,162,3,189,163,154,157.84.159.202,16,247,162,15,189, 

167.154 

119 DATA157,105.159,202,16,247,162,2,189,183,154,157,142,159,202,1 
6,247,169 

120 DATA3,141,138,159,198,186,96,32,11,146,133,100,134,101,160,0,1 
77,100 

121 0ATA153,0,159,200,208,248,169,0,141,48.3,141,50,3.169,159,141, 
49,3,141 

122 DATA51,3,76,23.146,162,3,189,76,253,157,48.3,202,16,247,96,32, 
231,149 

123 DATA32,106,149,32.217.145,133,186,32,106,149,32,210,145,133,96 
,134.97 

124 DATA32,106,149,32,210.145,133,98,134,99,32,52,146,208,53,165,1 

66,201 

125 DATA8,240,7,201,9,208,32,32,209,150,169,1.133,185,169,96,166.9 
8,164,99 

126 DATA232,208.1,200,32.11,146,32,216,255,32,23.146,32,105,150.76 
,141,153 

127 DATA72,32,42,146.104,201,1,208.2,240.216,76,102,146,169,237,16 

2.245.32 

128 DATA69,150,162.2,189,186,154.157,52,159,202,16,247,162,4,189,1 

89.154 
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129 DATA157,60,159,202,16,247,198,186,96.32,23,146,177,172,32,11,1 
46,76,221 

130 DATA237,32,158,146,162,0,32,52,146,240,200,201,32,208,196,134, 
3,32,217 

131 0ATA145,166,3,157,0,159,232,32,52,146,208,236,134,3,162,0,32,1 
27,146 

132 DATA144,17,160,0,189,0,159,145,96,32,141,145,232,228,3,208,236 
,240,232 

133 DATA76,64,146,32,158,146,32,210,145,133.98,134,99,228,97,144,6 
.208,27 

134 0ATA197,96,176,23,32,127,146,144,228,160,0.177,96.145.98,32,14 
1,145,230 

135 0ATA98,208.238,230,99,76,75.151,165,100,56,229,96,72.165.101,2 

29.97.144 

136 DATA61.24,101,99,133,99,104,24,101,98,144,2,230,99,133,98,32,1 
27,146 

137 DATA144,204,160.0,177,100. 145,98,198,100,165,100,201,255,208,2 
,198,101 

138 OArA198,%,165,98,201,255,208,227,198,99,76,125,151,32,158,146 
,32,52 

139 0ATA146,240,125,162,0,201,32,208,119,32,247,151,144,16,134,3,3 

2.224.145 

140 DATA166.3,157,0,159,232,32,52,146,208,231,32,42,146,134,3,160, 
0,32,127 

141 DATA146,144,38,32,31,146,185,0,2,240,13,177,96,217,0,159,240,6 
,32,141 

142 DATA145,76,199,151,200,196,3,208,225,32,48.145,32,141,145,32,4 
7,146,76 

143 DATA199.151,76,64,146,32,231,145,201,63,208,29,32,249,145,201, 
63,208 

144 0ATA31,169,0,157,0,2,232,32,52,146,240,9,201.32,208,16.104.104 
.76,173 

145 OATA15t,24,96,72,169,255,157.0,2,104,56,96,76,102,146,120,216, 
104,141 

146 0ATA69,2.1O4,141,68,2,104,141,67,2,104,141,66,2,104,141,64,2,1 
04,141 

147 DA1A65,2,206,64,2,208,3,206,65,2,186,142,70,2,162,0,189,194,15 
4,32,240 

148 DATA145,232,224,61,208,245,173,65,2,32,58,145,173,64,2,32,58,1 
45,32,47 
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149 0ATA146,173.21,3.32,58,145,173.20,3.32,58,1*5,162,0.32,47.146, 
189,66 

150 0ATA2,32.58,145,232,224.5.208,242,32,42,146,76,64,146,141,67.2 
.142,68 

151 DATA2,140,69,2,76,53,152.32,158,146.32,210,145,133,98,134.99,3 
2.42,146 

152 OATA52.127,146.144.29,160.0,177,96,209,98,208.12,32,141,1*5.23 
0,98.208 

153 OATA236,230,99,76,164,152,32,48.145,32,47,146,76,177,152,76,64 
.146.32 

154 DATA210.145,168,32,42,146,138,72,152,170,104,32,11,146,32,205, 
169,32 

155 0ATA23,146,76,64.146,160,0,132.96.132.97,32.249,145.41,15.24,1 
01,96,133 

156 0ATA96,144.2.230,97,32,249,145,201.48,144.26.72.165,96,164.97, 

10.38.97 

157 DATA10,38.97,101,96,133.96.152.101,97,6,96,42.133,97,104,144,2 
12,32,42 

158 DATA146,32.48,145,76,64,146,32,158,146,165,96,24,101,100,133,9 

6.165.97 

159 0ATA101,101,133,97,32,42,146,32,48,145.76.64,146,32,158.146,16 
5,96,56 

160 0ATA229,100,133,96,165,97,229,101,133,97.76,47.153.32,11,1*6,3 
2.231.255 

161 DATA32,23,146.32,52,146.240.52.201,32,240,247,201,36,240,86,16 
2.0.157 

162 DATA224,158,232,224,17,240,73,32.52,146.208.243,138.162.224.16 
0,158,32 

163 0ATA11,146,32,189,255,169,1,162,8,160,15,32.186,255,32,192,255 
.32.231 

164 DATA255,32.23,146,32,42,146.32,11,146,169,8,133,186,32,180,255 
,169,111 

165 DATAt33,185,32,150,255,32.165,255.32.210.255.201,13,208,246,32 
,171,255 

166 0ATA32,23,146,76.64.146,76,102,146,72,32,42,146,104.32.11,146, 
141,224 

167 0ATA158,162,224,160,158,169,1,32,189,255,162,8,160,96,32,186,2 
55.32,213 

168 DATA243,165,186,32,180,255,165,185.32,150,255,169,0,133,144,16 
0,3,140 
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169 DATA224,158,32,165,255,161,225,158,166,146,208,49,32,165,255,1 
64,144 

170 DATA208,42,172,224,158,136,208,230,174,225,158,32,205,189,169, 
32,32,210 

171 0414255,32,165,255,166,166,208,18.170.260.6,32,210.255,76.10.1 
54,169 

172 041413,32,210,255,160,2,208.194.32,66,246,32,23,146,76,64,146, 
32,52,146 

173 0414208,48.32.42.146.32,11,146.165,103,208,27,198,103.169,1.16 

2.6.32 

174 0414186,255,169,0,133,183,32,192,255,162,1,32,201,255,32,23,14 

6.76.64 

175 0414146,230,103,32,231,255,32,204,255,76,80,154,76,102,146,146 
,146,146 

176 0414146.147.147.149,150,150,151,151,152.152.152.152.153.153.15 
3,156,109 

177 0414214,194.210,65.162.121,116.251,56,158.76,150.200,224,30,55 
,74.43 

178 041468,77,71,88,58,44,76.83,70,84,72,82,67,36,35,43.45,64,80,0 
.4.5.6 

179 04147.8.236.234,24,166.120,72,169.48,133,1.104.145,176.169.55, 
133,1,234 

180 0414234.234,76.169.265.32,221.237.32.261.150.236.234.13,13,73, 
78,84,69 

181 041482.78.32.77.79.78.73,86,79.82.32,66.89.32,82.46.32.71.69.7 

6.70.65 

182 041478,68,13.13,32,32,32,80,82,32,32,73,82,81,32,32,83,82,32,6 

5.67.32 

183 041488.82.32.89,82.32.83,80.13.46.42.0.76.68,65.76,68,88,76,68 
.89.83 

184 041484.65.83.84.88.83,84,89,84.65.88,84.65.89.84.88.65,84,89,6 
5.84.88 

185 041483.84.83,88.80,76.65,80.72,65,80,76.80,80,72,80,65.68,67,8 

3.66.67 

186 041473.78.67.68,69.67.73,78,88.68.69.88,73.78.89.68.69,89,65.7 
8,68,79 

187 041482,65,69,79.82,67,77,80,67,80,88,67,80,89,66,73,84.66,67,6 

7.66.67 

188 041483,66,69,81,66,78,69,66.77,73,66,80,76.66,86,67,66.86,83,7 
*.77.80 
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189 DATA74,83,82,65,83.76,76.83,82,82,79,76,82,79,82,67,76,67,67,7 
6,68,67 

190 DATA76,73,67.76,86,83.69,67,83,69.68,83,69,73,78,79,80.82,64,8 
3.82,84 

191 DATA73,66,82.75,63.63.63,169,173,189,185,165,181,161,177,162,1 
74,190 

192 DATA166,182,160,172,188,164,180.141,157,153,133,149,129,145,14 
2.134.150 

193 DATA140,132,148.170,168,138.152,154,186,104,72,40,8.105,109,12 
5,121,101 

19« DATA117.97,113.233,237,253.249.229,245.22^,241,238,254,230,246 
.206,222 

195 DATA198,214,232,202,200,136,41,45,61,57,37,53,33,49,9,13,29,25 
.5.21,1 

196 DATA17,73.77,93,89.69,85,65,81,201.205,221,217,197,213,193,209 
.224,236 

197 DATA228,192.204.196.44.36,144.176.240.208,48,16.80,112,76,108, 
32.14,30 

198 0ATA6,22.10,78.94,70,86,74,46,62.38.54,42,110,126,102,118,106, 
24,216 

199 DATA88,184.56,248,120,234,96,64,0,1,2,3,4,5,7,8,0,1.3,4,6,0,1, 
2.«.5,1 

200 DATA2.3.4.5.7.8,1,4,6,1,4,5,11,11,11,11,11,11,11.11.11,11,0,1, 
2.3,4,5 

201 DArA7,8.0,1,2,3,4,5,7,8,1,2,4.5,1,2,4,5,11,11,11,11.0,1,2,3.4, 
5,7.8,0 

202 0ATAl,2.3,4,5.7.8,0,1,2,3,4,5.7.8,0,1,2,3,4,5,7,8,O,1,4,0,1,4, 
1.4.9.9 

203 DATA9,9,9,9.9,9.1,10.1.1,2,4,5.11,1,2.4.5.11,1,2,4.5,11,1,2,4, 
5,11.11 

20« DATA11,11,11,11,11,11,11,11,11,11,8,5,5,7,3.3,1,1,1,1,1,1,1,1, 
1.1.8,8 

205 0ATA4,«.1,1,1,1.8,8,8.8,3,3,2,1.1,1,1,1.1,1.1,2,1,5.5,5,5.1,1. 

1.1.1.1 

206 OATAl.l,1,1,1,-1 
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Anhang B 


Glossar 

Assernbler: 

Programmiersprache, die es ermöglicht, die CPU direkt anzu¬ 
sprechen. Sie ist sehr unkomfortabe, dafür aber die schnellste 
Sprache, da der Computer sie direkt verarbeiten kann 
(Maschinensprache). 

Betriebssystem: 

Das Betriebssystem ist im ROM fest abgelegt und ein Programm, 
das die wichtigsten Computerabläufe steuert, die für jede Pro¬ 
grammiersprache gebraucht werden. Unter anderem sind dies die 
Aufgaben der Ein-/Ausgabesteuerung. 


Bidirektional: 

Bidirektional heißt, daß eine Operation in zwei (beide) Richtun¬ 
gen ausgeführt werden kann. 


Expansionsport (Modul-Steckplatz): 

Der Expansionsport ist der Erweiterungssteckplatz des Com¬ 
puters. An ihm können Zusatzmodule eingesteckt werden. Diese 
können BASIC-Erweiterungen, andere Programmiersprachen 
oder ein Steckmodul darstellen. Grundsätzlich ist dieser Port 
durch ein BASIC-Programm nicht zu bearbeiten. 


Handshake: 

Über eine Handshakeleitung verständigen sich Sender und 
Empfänger über die Bereitschaft, neue Daten zu senden bezie¬ 
hungsweise zu empfangen. 
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Latch: 

Kommt bei einer Zweierteilung einer Speicherzelle vor. Der 
Latch (Vorspeicher) ist der Teil dieser Speicherzelle, der nur 
beschrieben werden kann. Bei einem Lesezugiff erhällt man je¬ 
doch immer den anderen Teil der Speicherzelle, der ebenfalls ein 
Acht-Bit-Wert ist. 


Maus: 

Eingabegerät, das am Joystickport angeschlossen wird. Bewegt 
man es auf einer Unterlage, werden ensprechend der Bewegung 
Objekte auf dem Bildschirm bewegt. 


Mantisse: 

Als Mantisse bezeichnet man bei der Exponentialschreibweise 
den Wert, mit dem die Potenz multipliziert wird. Die Mantisse 
liegt laut Definition zwischen 1 und 10. Bei der Zahl 1986, in 
Exponentialschreibweise 1.986*10''3, ist 1.986 die Mantisse. 


NMI: 

Nicht maskierbarer Interrupt. Eine Unterbrechung des Pro¬ 
grammablaufs, die durch das Setzen (auf Masse legen) der NMl- 
Leitung ausgelöst wird. Dieser Interrupt ist vom Programmierer 
nicht beeinflußbar (maskierbar). 


Paddle: 

Eingabegerät, das am Joystickport angeschlossen wird. Es besteht 
aus einem Potentiometer, dessen Widerstand durch einen Dreh¬ 
knopf beeinflußt wird. Dieser Widerstand ist als Zahlwert in 
Port X und Y des SID anzulesen. 


Parallel: 

Form der Datenübertragung, bei der die Bits nebeneinander 
(parallel) und somit gleichzeitig übertragen werden. Dies ermög¬ 
licht eine hohe Datenübertragungsgeschwindigkeit. 
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Parität: 

Anzahl der ’T einer Bitgruppe, die übertragen wird. Von einer 
geraden Parität wird gesprochen, wenn die Anzahl der ’T gerade 
ist. Dementsprechend bedeutet eine ungerade Parität die unge¬ 
rade Anzahl von M’. 


Parilälsbil: 

Bit, das bei der Datenübertragung zu der Bitgruppe mitgesandt 
wird. Ist die Parität gerade, so wird eine Eins als Bit mitgesen¬ 
det. So kann der Empfänger überprüfen, ob bei der Übertragung 
ein Fehler aufgetreten ist. 


Peripherie: 

Darunter versteht man alle Geräte, die an einem Computer an¬ 
geschlossen werden können. Solche Geräte sind Drucker, Floppy, 
Joystick, Lightpen, Monitor und so weiter. 


Sektor: 

Jede Spur auf Diskette ist in Sektoren aufgeteilt. Die Anzahl der 
Sektoren ist abhängig von der Lage der Spur. Innere Spuren ha¬ 
ben weniger Sektoren als äußere. Die Länge eines Sektors beträgt 
2S6 Bytes. 


Seriell: 

Form der Datenübertragung. Bei dieser Art der Daten¬ 
übertragung werden die Bits nacheinander über eine Leitung 
geschickt. Der Vorteil ist, daß nur zwei Leitungen benötigt wer¬ 
den. Der Nachteil ist die geringe Geschwindigkeit. 


Spur: 

Die Diskette wird zu Verwaltungszwecken in 35 Spuren (Tracks) 
auf geteilt. Diese Spuren sind ringförmig auf der Diskette ange¬ 
ordnet und von 1 bis 35 duchnumeriert. Außerdem sind die 
Spuren in verschiedene Sektoren unterteilt. 
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Stopp-Bit: 

Das Stopp-Bit wird bei der seriellen Datenübertragung verwen¬ 
det, um das Ende eines übertragenen Bytes zu kennzeichnen. 
Üblicherweise werden 1 oder 2 Stopp-Bits verwendet, was 
sowohl im Sender als auch im Empfänger festgelegt werden 
muß. 


Systeminterrupl: 

Ein Interrupt (Unterbrechung des Hauptprogramms), der von 
Timer A der CIA 1 je 1/60 Sekunde ausgelöst wird, um unter 
anderem die Tastatur abzufragen. 


Taktzyklus: 

Länge eines Systemtaktes. Wird als Zeiteinheit benutzt, um die 
Ausführungszeit eines Befehls darzustellen. 


Trigger: 

Ein Trigger ist ein Auslöser. Ist beispielsweise eine Operation 
timergetriggert, so bedeutet das, daß diese Operation nach dem 
Ablauf des Timers ausgelöst wird. Der Timer ist hierbei der 
Auslöser (Trigger). 


Zeropage: 

Die Zeropage ist eine Besonderheit der 65xx-Microprozessoren. 
Sie ist im Bereich von 0 bis 255 abgelegt und kann somit mit ei¬ 
nem Zweibytebefehl angesprochen werden, was sowohl platz- als 
auch zeitsparend ist. In ihr sind unter anderem die wichtigsten 
Zeiger abgelegt. 
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Anhang C 

Stichwortverzeichnis 

251715 . 627 

41464 . 626 

6510 . 626 

6526 . 626 

6569 . 626 

6581 . 627 

8500 . 626 

8565 . 626 

8580 . 627 

8701 . 626 

A/D-Wandler . 173 

Adressierung . 243 

Akkumulator . 76 

Alarmzeit. 227 

AM.226 

Analog . 173 

AND . 14 

Arrayberechnung . 272 

Arrays .22 

ASCII-Code . 18 

Atari . 213 

ATTACK . 165 

Ausgabepuffer . 230 

Auto-Start . 273 

BANDPASS . 171 

BASIC-Interpreter . 20 

BASIC-Kompaktor . 61 

BASIC-Loader . 60 

BASIC-ROM . 73 

BASIC-Zeile . 18 

BASIN . 267 

Baud. 231 

BCD-FORMAT . 228 
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Befehlssatz. 135 

Bildschirmcode . 266 

Bildschirmreset. 266 

Binärsystem . 11 

Bit . 118 

Block . 117 

BSOUT . 189, 267 

Buckelgehäuse . 625 

Carryflag . 185 

CHKIN . 189 

CIAs. 183 

CKUOT . 189 

CLOSE . 189 

Commodore .273 

COMPARE . 74 

CONTINUOUS . 225 

Controller . 266 

COS. 266 

Counter . 224 

CPU . 103, 109 

CTRL.273 

Cursor .30 

DATA . 116 

Datenformate . 56 

Datenregister . 204 

Datenrichtungsregister. 204 

Datentransfer . 245 

DDR . 204 

DECAY . 165 

Dekodiertabelle . 274 

Dezimalsystem. 11 

Digitalwandler. 173 

Directory .78 

Direktmodus. 18 

Disassemblieren. 74 

Division . 50 

Drop out . 190 









































644 


64 Intern 


E/A-Port . 203 

Echtzeituhr .226 

Eingabewarteschleife . 264 

EOI . 239 

EOR . 15 

Exponent . 51 

FACs. 53 

Farbregister . 119 

Farb-RAM . 110 

Fehlermeldung . 264 

Feinscrolling. 144, 146 

Feld. 24 

Filter . 170, 177 

Fließkomma-Arithmetik .50 

Fließkommakonstante .56 

FORCE LOAD . 225 

Frequenz . 161 

FRMEVL . 271 

FRMNUM . 272 

FX80 . 133 

Geräteadresse . 188, 198 

Grafik . 117 

Grafikhilfsprogramm . 126, 128 

Grafikmodus . 105 

Halbtonschritte . 162 

Handshake . 231, 232 

Header . 193 

Hertz . 227 

HEX-Zahl . 186 

Hexadezimalsystem . 11, 161 

HIGH-Nibbel . 165 

Highbyte . 138 

HIGHPASS . 171 

Hochkomma . 274 

Hüllkurve . 165, 172 
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I/O-Bereich . 73 

lEC-BUS . 237 

INTEGER . 275 

Interpretercode . 19 

Interruptvektor. 137 

Interrupt . 109 

Interruptprogrammierung . 137 

Interruptroutine . 141 

Invertieren . 129 

Joystick. 213 

Kassette . 190 

Kassettenpuffer.60 

KERNAL-ROM . 73 

KEY-Bit . 168 

Kollision . 120 

Kompatibel .627 

Komprimiert . 62 

Latch. 140 

LISTEN . 241 

Listing . 116 

LOAD . 73 

Logische File-Nummer . 188 

Logische Verknüpfungen . 14 

Low . 138 

LOW-Nibbel. 166 

LOWPASS . 171 

Mantisse. 52 

Maschinensprache . 50 

Maschinensprachemonitor . 73 

Matrix . 204 

MAUS. 212 

Multicolormodus . 121 

Multicolorsprite. 121 

Multiplikationstabelle . 131 
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NMI . 234 

NOT . 15 

NTSC-Version. 275 

ONE-SHOT . 225 

Opcode. 100 

OPEN. 265 

Oszillator . 172 

Overlay . 200 

Paddle .210 

PAL-Version . 275 

Parität . 231 

Peripheriegeräte . 278 

Personal Computer.625 

Platine.625 

PM . 226 

Polynom 273 

Portleitung. 246 

POTX . 174 

POTY. 174 

PR . 204 

Programmzeiger .76 

Prozessor . 137 

Prozessorstatusregister . 76 

Prüfsumme . 192 

Pulsbreite. 163 

Quarz . 162 

Rahmenfarbe . 141 

Rasterzeileninlerrupl . 142 

Rauschgenerator. 177 

REAL . 275 

Rechteckwelle . 163 

Register . 118 

Release. 165 

REM . 19 

RENEW .28 

RESET . 60 
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RESTORE . 46 

ROM . 54 

ROM-Listing . 261 

Routine. 261 

RS-232 . 230 

SAVE . 73 

Scrollen . 266 

SEI . 138 

Serielle Schieberegister . 250 

Shift . 273 

SID. 161 

SIN . 266 

Soundcontroller . 161 

Source-Code .-. 148 

Speicheraufteilung . 263 

Sprites . 116 

Sprungvektoren . 43 

SQR. 265 

ST.242 

Stop-Taste . 273 

String . 37 

Stringstack.279 

SUSTAIN. 165 

SYS. 30 

Systemlakt . 250, 252, 259 

Systeminterrupt . 226 

Taktzyklus . 225 

TALK . 241 

TAN. 266 

TIS . 226 

TOGGLE . 225 

Token. 20 

Tongenerator . 161 

Trigger... 225 

Unterlauf. 224, 225 

USR . 30 
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Variablen . 22 

VC 20 .45 

Vektor. 137 

Vergleich der Rechner . 625 

VERIFY . 265 

VIA . 203 

VIC . 142 

Video-Reset . 266 

Videocontroller . 266 

Virus .59 

Virus-Killer . 59 

Wahrheitstabelle . 17 

Word . 12 

Zeropage . 276 
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DASSTEHTDRIN: 


ln der 7. überarbeiteten Neuauflage liefert die Bibel des C64^rogram- 
mierers eine Fülle von Kniffen, Facts und Details. Selbst der erfaiv 
reneC64-Anwender erhält wertvolle Anregungen und Informationen zum 
Innenleben seines Computers. Professioneller C64-Ein$atz- mit diesem 
Buch ein Kinderspiel! 

Aus dem Inhalt; 

- Fließkomma-Arithmetik 

- BASIC-Erweiterungen selbst gemacht 

- Sprungvektoren und Autostart 

- Einführung In die Assemblerprogrammierung 

- Illegal-Codes und Taktzyklen 

- Profi-Grafikprogrammierung 

- Interruptprogrammierung 
-Virus-Killer 

• BASIC-Kompaktor 

- Saeen-Scrolling 

- Ein-ZAusgabesteuerung in Maschinensprache 
-Joystickund Paddle 

- Die Commodore-Maus 1351 
•Der serielle lEC-Bus 

- Zeilenweise kommentiertes ROM-ListIng 

- Pflege und Wartung 

- Die Unterschiede der drei Cd4 

- Original Commodore-Schaltpläne 


UND GESCHRIEBEN HAT DIESES BUCH: 


Ralf Gdfand, Darko Krsnik und Jacques Feit sind Hardware, Grafik- und 
Assemblerspeziallsten und haben für die komplette Überarbeitung ge 
sorgt. Das DATA BECKER-EntwIcklungsteam Rolf Brückmann, Klaus 
Gerits und Lothar Englisch, die ihr Know-how zum C64 schon in welen 
Standardwerken unter Beweis gestellt haben, standen mit Rat undTat zur 
Seite. 


ISB N 3-89011-000-2 OM -t-069.00 


OM 69.00 

ÖS 

sFr 

DATA 

BECKER 


9 783 90 113708 


0 69 00 







































